Exit 语句

退出 Do...Loop、For...Next、Function 或 Sub 代码块。

Exit Do

Exit For

Exit Function

Exit Property

Exit Sub

Exit 语句的语法有以下几种形式：

下面例子举例说明如何使用 Exit 语句:

Sub RandomLoop  Dim I, MyNum  Do                           ' 设置死循环。    For I = 1 To 1000          ' 循环 1000 次。      MyNum = Int(Rnd * 100)   '产生随机数。      Select Case MyNum        '求随机数的值。        Case 17: MsgBox "Case 17"          Exit For             ' 如果是 17，退出 For...Next。        Case 29: MsgBox "Case 29"          Exit Do              ' 如果是 29，退出 Do...Loop。        Case 54: MsgBox "Case 54"          Exit Sub             ' 如果是 54，退出 Sub 过程。        End Select    Next  LoopEnd Sub