Do
        Z(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，就直接进行下面的语句了。。。就没有循环，我拿手算应该循环的。。这肯定不对嘛。哪里有问题请赐教。谢谢了

可为什么还不满足Abs(b - A1) < 0.01，就直接进行下面的语句了，我先自己计算了一下，然后让计算机算，发现结果不一样。

而且我在 Loop Until Abs(b - A1) < 0.01后 Debug.Print "Abs(b - A1)  = "; Abs(b - A1) 也不显示结果

If FXC = 0 Then
       GoTo shuchu
显示我的FXC也不等于0啊，为什么会GOTO

因为我的Debug窗体下面显示的结果都是只有一次的，没有循环，所以就显示计算结果了

我是在调试，所以想看看中间计算的结果，我想问的是我的代码应该没有什么问题，可是为什么不循环呢