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