有关DO While循环的
DoZ(I) = (b + A1) / 2
Debug.Print "Z(I) = "; Z(I)
Call AERA(I)
Debug.Print "W(I) = "; W(I)
Debug.Print "X(I) = "; X(I)
Call SHUIWEI(I)
Debug.Print "FX = "; FX
FXC = FX
If FXC = 0 Then
GoTo shuchu
Else
If FXB * FXC > 0 Then
b = Z(I)
FXB = FXC
Else
A1 = Z(I)
End If
If W(I) < 0.05 Then
GG(I) = GG(I) + 0.2
GoTo BiaoJi
End If
End If
Loop Until Abs(b - A1) < 0.01
shuchu: Open App.Path & "\out.txt" For Append As #2
Print #2, Z(I); W(I); V(I)
Close #2
个人觉得这个循环没有什么问题,可为什么还不满足Abs(b - A1) < 0.01,就直接进行下面的语句了。。。就没有循环,我拿手算应该循环的。。这肯定不对嘛。哪里有问题请赐教。谢谢了