Module
Contents
Index 🔎︎

# Exit Statement

Exit-lauseella poistutaan Do...Loop ja For...Next -rakenteista, funktiosta tai aliohjelmasta.

## Syntaksi:

    katso parametrit-kohdasta alempaa

## Parametrit:

Exit Do

Kelvollinen vain Do...Loop -rakenteen sisällä silmukasta poistumiseen. Ohjelman suoritus jatkuu Loop-lauseen jälkeen. Jos Do...Loop -rakenteet ovat sisäkkäisiä, siirtyy ohjelman suoritus vain yhden tason ylemmäksi sisäkkäisissä silmukoissa.

Exit For

Kelvollinen vain For...Next -rakenteen sisällä silmukasta poistumiseen. Ohjelman suoritus jatkuu Next-lauseen jälkeen. Sisäkkäisissä silmukoissa siirtyy ohjelman suoritus vain yhden tason ylemmäksi.

Exit Function

Poistuminen Function-aliohjelmasta tapahtuu välittömästi. Ohjelman suoritus jatkuu Function-kutsua seuraavasta lauseesta.

Exit Sub

Tapahtuu välitön poistuminen aliohjelmasta. Ohjelman suoritus jatkuu Sub-kutsua seuraavasta lauseesta.

Exit-lauseella ei määritetään rakenteen loppua eikä sitä pidä sekoittaa End-lauseeseen.

## Esimerkki:

    Sub ExampleExit

    Dim sReturn As String

    Dim sListArray(10) As String

    Dim siStep As Single

        For iStep = 1 to 10 ' täytetään taulukko testiaineistolla aakkosten alkupäästä

            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 etsii TextEntry:ä sList()-tekstitaulukosta

    ' Palautetaan rivinumero tai 0 ( Null)

        For iCount=1 To Ubound( sList() )

            If sList( iCount ) = sItem Then

                Exit for ' sItem löytyi

            End If

        Next iCount

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

        LinSearch = iCount

    End Function