Contents
Index 🔎︎

# Exit Statement

Suleb lause Do...Loop, For...Next, funktsiooni või alamprogrammi.

## Süntaks:

    vaata parameetrid

## Parameetrid:

Exit Do

Kehtib ainult lauses Do...Loop tsükli sulgemiseks. Programmi käitamine jätkub tsükli lausele jätkuva lausega. Kui laused Do...Loop on pesestatud, viiakse juhtelement järgmise taseme tsüklisse.

Exit For

Kehtib ainult lauses For...Next tsükli sulgemiseks. Programmi käitamine jätkub tsükli lausele jätkuva lausega. Kui laused For...Next on pesestatud, viiakse juhtelement järgmise taseme tsüklisse.

Exit Function

Suleb kohe protseduuri Function. Programmi käitamine jätkub kutsele Function järgneva lausega.

Exit Sub

Suleb kohe alaprogrammi. Programmi käitamine jätkub kutsele Sub järgneva lausega.

Lause Exit ei määratle struktuuri lõppu ja seda ei tohi segamini ajada lausega End.

## Näide:

    Sub ExampleExit
    Dim sReturn As String
    Dim sListArray(10) As String
    Dim siStep As Single
        For siStep = 0 to 10 REM Täidab massiivi testandmetega
            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 otsib TextArray:sList() seest TextEntry:
    REM tagastab kirje indeksi või 0 (Null)
        For iCount=1 To Ubound( sList() )
            If sList( iCount ) = sItem Then
                Exit for REM leiti sItem
            End If
        Next iCount
        If iCount = Ubound( sList() ) Then iCount = 0
        LinSearch = iCount
    End Function