在一个循环中是否能让循环暂时停止，等到满足一定条件再从停止的地方继续进行？

Question

在一个循环中是否能让循环暂时停止，等到满足一定条件再从停止的地方继续进行？
能详细说一下吗？

Answer 1

Option Explicit
Dim ii As Boolean
Dim i As Long
Private Sub Command1_Click()
    ii = True
    While ii
        DoEvents
        i = i + 1
        Text1.Text = i
    Wend
End SubPrivate Sub Command2_Click()
    ii = False
End Sub

Answer 2

Option Explicit
Dim ii As Boolean
Dim i As Long
Private Sub Command1_Click()
    For i = 1 To 10000
        While ii
            DoEvents
        Wend
        DoEvents
        Text1.Text = i
    Next
End SubPrivate Sub Command2_Click()
    ii = Not ii
End Sub------------------------
先按下COMMAND1后按COMMAND2就行了。循环没完成时不要退出！

Answer 3

While a=b
    DoEvents
Wend当有其他代码（比如Timer控件中的代码）使a<>b，则会继续执行其他语句，不光是循环其他地方也可用。