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

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

个人意见，因你提供的说明不详细
有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

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

楼上正解

exit do

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