其中秧点动轨迹坐标是一个循环，for k3= 0 to 360     x(k3),y(k3)的运算。期望你能编写出附件的要求，谢谢了。

谢谢了，之前那个有问题，这个你自己看。

嗯嗯，试过了，老是有问题，do，，，，loop，也试过，就是不行，不会了才问呀，会了，我就自己搞了，不过你说的很好，我有点急着要答案了。

 If ye(k1) < shu Then
            shu = ye(k1)
            zdj = k1
  End If
  Next k1
  
  shu = -(Val(Text1.Text) + Val(Text2.Text) + 15 * Sqr(3)) '最低点纵坐标
    For i = 50 To 180
        If ye(i) < shu Then
            shu = ye(i)
            zdj = i
            Exit For
        End If
    Next i
    
    Dim xj(1 To 20), yj(1 To 20)
     u = 0
     For i = 0 To 360
        If Abs(ye(i) - ye(zdj) - 20) < 1.5 Then
           u = u + 1
           xj(u) = xe(i)
           yj(u) = ye(i)   '找秧苗与水平面的交点
        End If
      Next i
        numx = u       '找到的点个数
        xkdis = 0        '计算穴口大小
        For i = 2 To numx
            If Abs(xj(i) - xj(1)) > xk Then
                xk = Abs(xj(i) - xj(1) )
                Text9.Text = Format(xk, "0.00")
            End If
        Next i

     这个可以吧，感觉稍微有点问题，你能看出来不？嘿嘿

有问题，你看shu 是最低点，那么ye(k1)（轨迹点）怎么可能 比shu 还小？？

而且你这个代码我之前有写过。1.会出现M没有被读写，根本就是无用的。2.X1和X2的代码编写中只有一个算的对，另外一个无用，因为没有读入，换句话，他俩中只有一个穴口坐标，又要怎么算穴口的值哪？期望你好好看一下，谢谢了。