VB中的无限循环代码

Dim fStop As Boolean

Private Sub Command1_Click() '宴丛粗前开晌凳樱始

Do

DoEvents

Loop Until fStop

End Sub

Private Sub Command2_Click() '停止

fStop = True

End Sub

Exit Do 提供一种退出 Do...Loop 循环芦尺的方法，并且只能在 Do...Loop 循环中使用。Exit Do 会将控制权转移到 Loop 语句滚橘之后的语句。当 Exit Do 用在嵌套的 Do...Loop 循环中时，Exit Do 会将控制权转移到 Exit Do 所在位置的外层循陪备高环。

定义一个模块级逻辑迅游型变量 a

你的代码

......

a=false

do while not a

......

doevents

loop

跳出循环的按钮代源昌磨码

private sub command1_click()

a=true

end sub

不明白你的补充意思雹斗,HI我吧

---