Question

VB，不退出程序，如何强制退出DO循环。

我的程序有DO循环，然后我有个停止按钮。每次当DO循环运行的时候，按停止按钮总要等DO循环运行完后才结束程序？
怎么让程序在接到停止程序指令后DO循环也立即停止？

Answer 1

个人意见，因你提供的说明不详细
有2个疑点：
1、一般do 循环是完全执行完了，再执行其他的代码，你应该是没法在do循环的过程中再执行其他的代码，但具体情况具体分析(如循环中有判断等待就另说)，这没详细说。
2、何谓强制

个人认为可以添加一个全局变量来中断循环。
'在通用---声明中添加一个全局变量
Public Point As Boolean
'----------------------
Private Sub Form_Load()
Point = False
End sub
'----------------------
Do While condition
Statements
if Point=True then
exit do
end if
Loop
Point=False
'----------------------
Private Sub Command1_Click()
Point=True
End sub

Answer 2

一般情况下，程序进入循环后是不能随便停止的，但是，如果你在循环体中加入一句代码DoEvents就不同了，这样，程序可以随时停止或者进行其它工作。

Answer 3

在循环内加判断语句，即如果你按了某按钮，则执行 exit do操作

Answer 4

楼上正解

Answer 5

exit do