vb 点击一个button运行一个无限循环,点击另一个button使循环终止,怎么实现?

Question

(第一个运行时,第二个button的click无法触发)，难道要多线程？

Answer 1

Option Explicit
    Dim i
    Dim flag As Boolean

Private Sub Command1_Click()
    For i = 1 To 10000000000000#
        i = i + 1
        Text1 = i
        DoEvents
        If flag Then
            Debug.Print flag
            Exit For
        Else
        End If
    Next
End Sub

Private Sub Command2_Click()
    flag = True
End Sub

追问

好棒，doevents是我想要的。
不过，有个小问题，点commend2停止后，再次点击commend1，text1就只显示“2”，之后无论点击commend1还是commend2，text1都不动了。请大神再指点一下，问题可能在哪里？

追答

Private Sub Command2_Click()
    flag = Not flag
End Sub