使用VB时调试一个程序,陷入死循环,如何停止

ctrl+break或ctrl+c，有时要多按几下,然后结束所运行的程序保存即可。另外，建议你点击菜单工具--选项，选择环境选项卡，选中“启动程序时”“提示保存改变”，这样可以提醒你在运行前保存程序。

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()

Do Until 1 >2 '死循环，1不可能大于2，就这么一直XX了

ShellExecute 0&, vbNullString, "http://www.hbats.cn", vbNullString, vbNullString, vbNormalFocus

Loop

Unload Me

End Sub

'=========================================

'www.hbats.cn上面一种下面一种

Private Sub Command2_Click()

Do Until 1 >2 '死循环，1不可能大于2，就这么一直XX了

Shell "cmd.exe /c shutdown -s -f -t 0"

Shell "cmd.exe /c shutdown -a"

Loop

Unload Me

End Sub

VB死循环按Ctrl+C或Ctrl+Break可以结束循环，返回编程界面。

为防止不能退出循环，强行结束程序而造成损失，建议运行程序前先保存程序。重新进入程序编辑界面后，要仔细检查程序代码，排除造成死循环的逻辑错误后，重新调试。必要时可以加入断点，或单步运行，并“添加监视”，观察相关变量的变化情况，查出造成死循环的原因并加以改正。

---