作者：杜勇

描述：提前退出控制结构、循环或过程的语句体。
一、语法：
Exit　Do
Exit　For
Exit　Function
Exit　Property
Exit　Sub
Exit语句的语法包含下面部分：

部分	描述
Exit　Do	在Do...Loop循环中使用，退出Do...Loop循环。当Exit　Do用在嵌套的Do...Loop循环中时，Exit　Do只能退出本层循环，即Exit　Do所在的那层循环。
Exit　For	在For...Next或For　Each...Next循环中，提供一种退出For循环的方法。当Exit　For用在嵌套的For循环中时，Exit　For只能退出本层循环。
Exit　Function	在Function过程中，可以使用Exit　Function退出过程。程序会从调用Function的语句之后的语句继续执行。
Exit　Property	在Property过程中，可以使用Exit　Property退出过程。程序会从调用Property过程的语句之后的语句继续执行。
Exit　Sub	在Sub过程中，可以使用Exit　Sub退出过程。程序会从调用Sub过程的语句之后的语句继续执行。

二、说明：
　　不要将Exit语句与End语句搞混了。End语句结束一个结构；Exit只是退出一个结构。

三、应用举例：
　　本示例使用Exit语句退出Do...Loop循环及子过程。建立一标准工程，在窗体上添加一个命令按钮，将下面的程序粘贴过去。
Private Sub Command1_Click()
　Dim I
　Do '建立无穷循环。
　　I = I + 1
　　If I = 50 Then Exit Do '当I =50时，退出Do...Loop循环。
　Loop
　Debug.Print "I=" & I '在立即窗口显示I=50
　For I = 50 To 1050 '循环1000次。
　　If I = 100 Then
　　　Debug.Print "I=" & I '在立即窗口显示I=100
　　　Exit Sub '当I =100时，退出子过程。
　　End If
　Next I
　Debug.Print 2000 '在立即窗口显示2000
End Sub