退出 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 將控制權轉(zhuǎn)移到 Loop 語句之后的語句。在嵌套的 Do...Loop 語句中使用時，Exit Do 將控制權轉(zhuǎn)移到循環(huán)所在位置的上一層嵌套循環(huán)。 |
| Exit For | 提供一種退出 For 循環(huán)的方法。只能在 For...Next 或 For Each...Next 循環(huán)中使用。Exit For 將控制權轉(zhuǎn)移到 Next 之后的語句。在嵌套的 For 循環(huán)中使用時，Exit For 將控制權轉(zhuǎn)移到循環(huán)所在位置的上一層嵌套循環(huán)。 |
| Exit Function | 立即從出現(xiàn)的位置退出 Function 過程。繼續(xù)執(zhí)行調(diào)用 Function 的語句后面的語句。 |
| Exit Property | 立即從所在的 Property 過程中退出。繼續(xù)執(zhí)行下面調(diào)用 Property 過程的語句。 |
| Exit Sub | 立即從出現(xiàn)的位置退出 Sub 過程，繼續(xù)執(zhí)行調(diào)用 Sub 的語句后面的語句。 |
下面例子舉例說明如何使用 Exit 語句:
Sub RandomLoop Dim I, MyNum Do '設置死循環(huán)。For I = 1 To 1000 '循環(huán)1000次。MyNum = Int(Rnd * 100) '產(chǎn)生隨機數(shù)。Select Case MyNum '求隨機數(shù)的值。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
新聞熱點
疑難解答
