笔记本做vb进入死循环怎么办

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

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

用 Exit Do 退出（结束）死循环。VB死循环主要有两种形式

第一种

Do While True

  '语句

Loop

第二种

Do 

  '语句

Loop While True

以下程序在一个死循环中不停生成1到10000之间的随机数。当所生成的随机数等于9999时退出死循环

Option Explicit

'-----------------------------------------------

' 函数 GetRandomNumber 生成 1到10000之间的随机数

'-----------------------------------------------

Private Function GetRandomNumber() As Integer

    Randomize Timer

    GetRandomNumber = Int(Rnd * 10000) + 1

End Function

Private Sub Form_Click()

    Dim x As Integer

    '死循环

    Do While True

        '生成随机数

        x 肢信= GetRandomNumber

        '如果随机掘饥宏数等于9999，退出死循环

        If x = 9999 Then Exit Do

    Loop

    ' 退出死循环后，显示生成的随判册机数

    MsgBox "生成的随即数为：" + CStr(x)

End Sub

---