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