VB 如何让下面程序停止运行?

Question

a=1
do until a=0
doevents
loop
请问有办法让它停止么，或者让程序的所有代码都停止运行也行。但不要让程序退出！
我的意思是如何用一个按钮来终止这个循环，a是无法改变的！

Answer 1

增加一个全局变量，然后改变它的值，再在do里面判断一下就可以了！

例子：

Option Explicit
Private mCancel As Boolean

Private Sub Form_Load()
mCancel = False '初始化标识
End Sub

Private Sub Command1_Click()
mCancel = True '停止退出
End Sub

然后在你的代码中加入：

a=1
do until a=0
DoEvents
if mCancel Then Exit Do
loop

Answer 2

doevents 下面加一行
a = a - 1

Answer 3

a=1
do until a=0
doevents
exit do
loop