退出 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 SelectNextLoopEnd Sub
新聞熱點
疑難解答
