Exit 語句 退出 Do...Loop、For...Next、Function 或 Sub 代碼塊。 Exit 語句的語法有以下幾種形式: 下面例子舉例說明如何使用 Exit 語句: Exit Do
Exit For
Exit Function
Exit Property
Exit Sub
語句
描述
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 的語句后面的語句。
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
Loop
End Sub