Moduł
Spis treści
Indeks 🔎︎

# Instrukcja Exit

Powoduje wyjście z pętli Do...Loop, For...Next, funkcji lub podprogramu.

## Składnia:

    Zobacz Parametry

## Parametry:

Exit Do

Instrukcja powodująca wyjście z pętli, poprawna tylko wewnątrz pętli Do...Loop. Wykonywanie programu jest kontynuowane od instrukcji następującej bezpośrednio po instrukcji Loop. Jeśli pętla Do...Loop jest zagnieżdżona, sterowanie jest przekazywane do pętli na kolejnym wyższym poziomie.

Exit For

Instrukcja powodująca wyjście z pętli, poprawna tylko wewnątrz pętli For...Next. Wykonywanie programu jest kontynuowane od pierwszej instrukcji występującej po instrukcji Next. Jeśli pętla jest zagnieżdżona, sterowanie jest przekazywane do pętli na kolejnym wyższym poziomie.

Exit Function

Powoduje natychmiastowe wyjście z procedury Function. Wykonywanie programu jest kontynuowane od instrukcji występującej po wywołaniu Function.

Exit Sub

Powoduje natychmiastowe wyjście z podprogramu. Wykonywanie programu jest kontynuowane od instrukcji występującej po wywołaniu Sub.

Instrukcja Exit nie definiuje końca struktury i nie należy jej mylić z instrukcją End.

## Przykład:

    Sub ExampleExit

    Dim sReturn As String

    Dim sListArray(10) As String

    Dim siStep As Single

        For siStep = 0 to 10 ' Wypełnienie tablicy danymi testowymi

            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

    ' Funkcja LinSearch poszukuje wyrażenia TextEntry w tablicy TextArray:sList():

    ' Wynikiem funkcji jest indeks wystąpienia wyrażenia lub wartość 0 (Null)

        For iCount=1 To Ubound( sList() )

            If sList( iCount ) = sItem Then

                Exit For ' Odnalezione wyrażenie sItem

            End If

        Next iCount

        If iCount = Ubound( sList() ) Then iCount = 0

        LinSearch = iCount

    End Function