如果一个差是0。001，另二个是0。999，那么差值之平均值也会很大，从实际应用来说应该求一个三个差值都很大（并且尽量相等），这样才有用嘛~~ r3 = 1000 r2 = 1368 r1 = 2308 这样得来的应是最佳实用值~~ 下面是VB计算程序（只要建个工程，加入下面代码运行就可，不用加任何东东） Private Sub form_Click() Dim u(3) As Single, r1 As Long, r2 As Long, r3 As Long Dim max(3) As Single, maxu(3) As Single, maxr(3) As Long, maxx As Single i = 0 r3 = 1000 For r1 = 1 To 6000 For r2 = 1 To 6000 u(1) = 5 * r3 / (r1 + r3) u(2) = 5 * r3 / (r2 + r3) u(3) = 5 * r3 / ((r1 * r2 / (r1 + r2)) + r3) max(1) = u(2) - u(1) max(2) = u(3) - u(2) If Int(max(1) * 10) = Int(max(2) * 10) And max(1) > maxx Then maxx = max(1) maxr(1) = r1: maxr(2) = r2: maxr(3) = r3 End If DoEvents Next Next Print maxx, maxr(1), maxr(2), maxr(3) End Sub
