求助：一段Qbasic代码转化为VB代码，嵌套迷糊了
9670 For Ll=0 to m
9680 For k=0 to n-3
9690 if u(Ll)<=x(k+1) then 9720
9700 Next k
9710 k=n-2
9720 if k=0 then 9750
9730 if u(Ll)-X(k)>=X(k+1)-u(Ll) then 9750
9740 k= k-1
9750 X0=x(k):X1=x(k+1):X2=x(k+2)
9760 pqr1=(u(Ll)-X1)*(u(Ll)-X2)/((X0-X1)*(X0-X2))
9770 pqr2=(u(Ll)-X0)*(u(Ll)-X2)/((X1-X0)*(X1-X2)): pqr3=(u(Ll)-X1)*(u(Ll)-X0)/((X2-X1)*(X2-X0))
9780 if dwz > 0.1 then 9800
9790 v(Ll)=pqr1*y(k)+pqr2*y(k+1)+pqr3*y(k+2): goto 9810
9800 v(Ll)=pqr1*Z(k)+pqr2*Z(k+1)+pqr3*Z(k+2)
9810 Next Ll
[解决办法]
忘记 goto 了
For Ll = 0 To m
For k = 0 To n - 3
If u(Ll) <= x(k + 1) Then GoTo goto1
Next k
k = n - 2
goto1:
If k = 0 Then goto2
If u(Ll) - x(k) >= x(k + 1) - u(Ll) Then GoTo goto2
k = k - 1
goto2:
X0 = x(k): X1 = x(k + 1): X2 = x(k + 2)
pqr1 = (u(Ll) - X1) * (u(Ll) - X2) / ((X0 - X1) * (X0 - X2))
pqr2 = (u(Ll) - X0) * (u(Ll) - X2) / ((X1 - X0) * (X1 - X2)): pqr3 = (u(Ll) - X1) * (u(Ll) - X0) / ((X2 - X1) * (X2 - X0))
If dwz > 0.1 Then GoTo goto3
v(Ll) = pqr1 * y(k) + pqr2 * y(k + 1) + pqr3 * y(k + 2): GoTo goto4
goto3:
v(Ll) = pqr1 * Z(k) + pqr2 * Z(k + 1) + pqr3 * Z(k + 2)
goto4:
Next Ll
