UC知道vb 循环问题
来源：百度知道 编辑：UC知道 时间：2024/09/22 16:46:18
If Abs((SS - S)) > 0.00001 Then GoTo 100
X(L) = A0
Y(L) = YC(1) - X(L) * X(L) / (2# * RL(1))
DK(L) = RL(1) / X(L)
DJ(L) = 90# - ATAN(DK(L)) * 180# / 3.14159
20 Next
这里用next对么
不对的话怎么改
20: For L = 1 To 9
SS = SS + SZ(L)
A1 = 0#
A2 = XOL(1)
100 ： A0 = (A1 + A2) / 2#
S = A0 / 2# * Sqr(1# + A0 * A0 / (RL(1) * RL(1))) + RL(1) / 2# * Log(A0 / RL(1) + Sqr(1# + A0 * A0 / (RL(1) * RL(1))))
If (SS.GT.S) Then
A1 = A0
Else
A2 = A0
End If
代码前边还有这些
X(L) = A0
Y(L) = YC(1) - X(L) * X(L) / (2# * RL(1))
DK(L) = RL(1) / X(L)
DJ(L) = 90# - ATAN(DK(L)) * 180# / 3.14159
20 Next
这里用next对么
不对的话怎么改
20: For L = 1 To 9
SS = SS + SZ(L)
A1 = 0#
A2 = XOL(1)
100 ： A0 = (A1 + A2) / 2#
S = A0 / 2# * Sqr(1# + A0 * A0 / (RL(1) * RL(1))) + RL(1) / 2# * Log(A0 / RL(1) + Sqr(1# + A0 * A0 / (RL(1) * RL(1))))
If (SS.GT.S) Then
A1 = A0
Else
A2 = A0
End If
代码前边还有这些
不好，NEXT 是与 FOR 配套的，你的FOR 呢？这里我觉得应该还是用 GoTo 100 好
Goto语句是编程大忌...
这样的编程思路不可取，用：
IF 条件 THEN
FOR R=0 TO X
........
NEXT R
ELSE
..........
END IF
这样的格式比较合理