Exit 语句
退出 Do...Loop、For...Next、Function 或 Sub 代码块 。
Exit Do
Exit For
Exit Function
Exit Property
Exit Sub
Exit 语句的语法有以下几种形式：
| 语句 | 描述 |
|---|
| Exit Do | 提供一种退出 Do...Loop 语句的方法 。只能在 Do...Loop 语句中使用 。Exit Do 将控制权转移到 Loop 语句之后的语句 。在嵌套的 Do...Loop 语句中使用时，Exit Do 将控制权转移到循环所在位置的上一层嵌套循环 。 |
| Exit For | 提供一种退出 For 循环的方法 。只能在 For...Next 或 For Each...Next 循环中使用 。Exit For 将控制权转移到 Next 之后的语句 。在嵌套的 For 循环中使用时，Exit For 将控制权转移到循环所在位置的上一层嵌套循环 。 |
| Exit Function | 立即从出现的位置退出 Function 过程 。继续执行调用 Function 的语句后面的语句 。 |
| Exit Property | 立即从所在的 Property 过程中退出 。继续执行下面调用 Property 过程的语句 。 |
| Exit Sub | 立即从出现的位置退出 Sub 过程，继续执行调用 Sub 的语句后面的语句 。 |
下面例子举例说明如何使用 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
