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.

Märkuse ikoon

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