Содержимое

# Exit Statement

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

Осуществляет немедленный выход из процедуры Function. Выполнение программы продолжается с инструкции, следующей за вызовом Function.

Exit Property

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

Exit Sub

Осуществляет немедленный выход из процедуры Sub. Выполнение программы продолжается с инструкции, следующей за вызовом Sub.

Инструкция Exit не определяет конец участка программы, и его не надо путать с инструкцией End.

### Пример:

    Sub ExampleExit
    Dim sReturn As String
    Dim sListArray(10) As String
    Dim siStep As Single
        For siStep = 0 to 10 REM Заполнение массива контрольными данными
            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
    REM LinSearch ищет TextArray:sList() для TextEntry:
    REM Возвращает индекс записи или 0 (Null)
        For iCount=1 To Ubound( sList() )
            If sList( iCount ) = sItem Then
                Exit for REM sItem обнаружена
            End If
        Next iCount
        If iCount = Ubound( sList() ) Then iCount = 0
        LinSearch = iCount
    End Function

Пожалуйста, поддержите нас!