VB中在do until ... loop 循环中怎样设置点击按钮推出循环？

Private Sub Form_Load()

a = 1

Do Until a <> 1
... '中间的东东省略了
Loop

... '继续省略

End Sub

如何在——

“Do Until a <> 1
... '中间的东东省略了
Loop”

这段中加入一段代码，时点击图中按钮“推出循环”【（名称）：ComExit】时退出该循环而继续执行下面的语句？（VB菜鸟，让高手见笑了……）

你这样在Form_Load()里添加一个无限循环，程序会卡死的

我有个办法 可以实现你要的效果 就是添加一个time控件 然后把你循环里的语句添加到Timer1_Timer（）块中 然后设置 Timer1的Enabled属性为True,Interval属性为1,然后 在那个按钮的Click事件里添加代码：Timer1.enabled=False 就可以实现了，至于Loop 和 End sub 之间的语句完全可以再添加一个time控件 然后再Timer2_Timer()块中 然后再按钮的Click事件里添加代码： Timer2.enabled=True Timer2.Interval=1 就可以了 不要忘了在Timer2_Timer()块的最后加上 Timer2.enabled = False 就可以了

Option Explicit

Dim mbln_Exit As Boolean

Private Sub Command1_Click() '循环打印例子

Dim lngtmp As Long lngtmp = 0

mbln_Exit = False

Do Until (mbln_Exit) Debug.Print lngtmp lngtmp = lngtmp + 1 DoEvents Loop MsgBox "Exit!" End Sub

Private Sub Command2_Click() mbln_Exit = True End Sub

'点击command1开始打印,按下command2中断,不中断的话直到lngtmp超出Long类型为至(即出错).

这种方式不可能实现退出！