退出 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 语句:
<PRE><CODE>Sub RandomLoop Dim I, MyNum Do ' </CODE>设置死循环。<CODE> For I = 1 To 1000 ' </CODE>循环<CODE> 1000 </CODE>次。<CODE> MyNum = Int(Rnd * 100) '</CODE>产生随机数。<CODE> Select Case MyNum '</CODE>求随机数的值。<CODE> Case 17: MsgBox "Case 17"</CODE><CODE> <SPAN class=cfe><B>Exit</B></SPAN> For ' </CODE>如果是<CODE> 17</CODE>,退出<CODE> For...Next</CODE>。<CODE> Case 29: MsgBox "Case 29"</CODE><CODE> <SPAN class=cfe><B>Exit</B></SPAN> Do ' </CODE>如果是<CODE> 29</CODE>,退出<CODE> Do...Loop</CODE>。<CODE> Case 54: MsgBox "Case 54"</CODE><CODE> <SPAN class=cfe><B>Exit</B></SPAN> Sub ' </CODE>如果是<CODE> 54</CODE>,退出<CODE> Sub </CODE>过程。<CODE> End Select</CODE><CODE> Next</CODE><CODE> Loop</CODE><CODE>End Sub</CODE></PRE>