跳出死循环

Question

这样实现以下功能:
敲击键盘上的某个键跳出死循环,谢谢

Answer 1

设一个变量
在循环中检查这个变量的值
如果是某一特定值时
退出循环在键盘事件中检查
如果按下的是某个键
把变量值改变成退出循环的值别忘了在循环中加
doevents语句

Answer 2

在死循环中是不会响应键盘消息的，除非用do events或是多线程

Answer 3

设置窗体的keypreview属性为TRUEDim flag As BooleanPrivate Sub Command1_Click()
Dim i As Long
flag = True
Do
i = i + 1
DoEvents
Loop While flag = True
End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 97 Then  ' 按下A键停止循环
     flag = False
End IfEnd Sub

Answer 4

如果是for循环用exit for也可以
do循环用用exit do
前提是有doevents这句