Question

vb 如何让程序中途回到Do重新循环

10 do
20 if 条件 then 回到do ??????
30 loop while

Answer 1

你可以用 Goto 语句，但是不推荐。
你完全可以用一个 IF Then …… End If 解决这个问题。
把 End If 放在 loop 的上面一行就行了。

Answer 2

Private Sub Form_Load()
Dim a As Integer, b As Integer
Do
Do
If a = 3 Then a = 0: b = b + 1
a = a + 1
Loop While b < 10
Loop While b < 10

End Sub

嵌套循环 何须GOTO

Answer 3

如果是 Do While 条件，例如 X > 5000，循环体内有 X = X + 1，你设置在循环体内有个条件达成后 X 恢复初始值例如 0，这个 Do 就相当于重新开始了

Answer 4

goto可以不过确实不建议用，