目录

# Exit 语句

Exits a Do...Loop, For...Next, a function, a property, or a subroutine.

### 语法:

    Exit Do, Exit For, Exit Function, Exit Property, Exit Sub

### 参数:

Exit Do

仅在「Do...Loop」语句内有效，作用是退出循环。程序继续执行 Loop 语句之后的语句。如果「Do...Loop」语句是嵌套语句，控制将传递到下一个较高级别的循环中。

Exit For

仅在「For...Next 循环内有效，作用是退出循环。程序继续执行 Next」语句之后的第一条语句。在嵌套语句中，控制将传递到下一个较高级别的循环中。

Exit Function

立即退出「函数」过程。程序继续执行「函数」调用之后的语句。

Exit Property

Exits the Property procedure immediately. Program execution continues with the statement that follows the Property call.

Exit Sub

立即退出子例程。程序继续执行「子程序」调用之后的语句。

Exit 语句不能定义程序结构的结束，请勿与 End 语句混淆。

### 示例:

    Sub ExampleExit
    Dim sReturn As String
    Dim sListArray(10) As String
    Dim siStep As Single
        For siStep = 0 To 10 ' 用测试数据填充数组
            sListArray(siStep) = chr(siStep + 65)
            MsgBox sListArray(siStep)
        Next siStep
        sReturn = LinSearch(sListArray(), "B")
        Print sReturn
    End Sub

    Function LinSearch( sList(), sItem As String ) As Integer
    Dim iCount As Integer
    ' LinSearch 搜索 TextArray:sList() 中的 TextEntry:
    ' 返回条目的索引或 0 (Null)
        For iCount=1 To Ubound( sList() )
            If sList( iCount ) = sItem Then
                Exit For ' 找到 sItem
            End If
        Next iCount
        If iCount = Ubound( sList() ) Then iCount = 0
        LinSearch = iCount
    End Function