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

do
...
loop until 条件
如果条件满足就执行后续语句。

do
...
loop while 条件
如果条件满足就重复执行

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

不喜欢 do开头的循环

循环中有goto shuchu

而且我在 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语句  把程序弄的乱乱的

你怎么知道执行这句了？
shuchu:       Open App.Path & "\out.txt" For Append As #2
再补充一句，用动态二维数组保存地形点，有问题。可能你没发现，因为样本中只有两个截面，而且第二个比第一个地形点多。如果后续的截面地形点少于前面截面的，数据会丢失.
最开始没考虑用结构体，只能用固定的二维数组了。

[ 本帖最后由 lianyicq 于 2015-6-2 10:28 编辑 ]

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