vb如何结束死循环

用 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

break;或者exit;