Instrukcja Exit
Powoduje wyjście z pętli Do...Loop, For...Next, funkcji lub podprogramu.
Składnia:
Zobacz Parametry
Parametry:
Exit Do
Instrukcja powodująca wyjście z pętli, poprawna tylko wewnątrz pętli Do...Loop. Wykonywanie programu jest kontynuowane od instrukcji następującej bezpośrednio po instrukcji Loop. Jeśli pętla Do...Loop jest zagnieżdżona, sterowanie jest przekazywane do pętli na kolejnym wyższym poziomie.
Exit For
Instrukcja powodująca wyjście z pętli, poprawna tylko wewnątrz pętli For...Next. Wykonywanie programu jest kontynuowane od pierwszej instrukcji występującej po instrukcji Next. Jeśli pętla jest zagnieżdżona, sterowanie jest przekazywane do pętli na kolejnym wyższym poziomie.
Exit Function
Powoduje natychmiastowe wyjście z procedury Function. Wykonywanie programu jest kontynuowane od instrukcji występującej po wywołaniu Function.
Exit Sub
Powoduje natychmiastowe wyjście z podprogramu. Wykonywanie programu jest kontynuowane od instrukcji występującej po wywołaniu Sub.
Instrukcja Exit nie definiuje końca struktury i nie należy jej mylić z instrukcją End.
Przykład:
Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) As String
Dim siStep As Single
For siStep = 0 to 10 ' Wypełnienie tablicy danymi testowymi
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
' Funkcja LinSearch poszukuje wyrażenia TextEntry w tablicy TextArray:sList():
' Wynikiem funkcji jest indeks wystąpienia wyrażenia lub wartość 0 (Null)
For iCount=1 To Ubound( sList() )
If sList( iCount ) = sItem Then
Exit For ' Odnalezione wyrażenie sItem
End If
Next iCount
If iCount = Ubound( sList() ) Then iCount = 0
LinSearch = iCount
End Function