Exit-Anweisung

Syntax

Exit Do

Exit For

Exit Function

Exit Sub

Anmerkungen

Mögliche Syntaxformen der Exit-Anweisung sind:

Exit Do

Stellt eine Möglichkeit zum Beenden einerDo...Loop-Anweisung bereit. Kann nur innerhalb einer Do...Loop-Anweisung verwendet werden. Exit Do übergibt die Kontrolle an die Anweisung nach der Loop-Anweisung. Wenn Exit Do in verschachtelten Do...Loop-Anweisungen verwendet wird, übergibt "Exit Do" die Kontrolle an die Schleife in der Verschachtelungsebene über der Schleife, in der sie vorkommt.

Exit For

Stellt eine Möglichkeit zum Beenden einer For-Schleife bereit. Kann nur in einer For...Next- oder For Each...Next-Schleife verwendet werden. Exit For übergibt die Kontrolle an die Anweisung, die auf die Next-Anweisung folgt. Bei Verwendung in verschachtelten For-Schleifen übergibt die Exit For-Anweisung die Kontrolle an die Schleife in der Verschachtelungsebene über der Schleife, in der sie vorkommt.

Exit-Funktion

Beendet sofort die Function-Prozedur, in der sie vorkommt. Die Ausführung wird mit der Anweisung fortgesetzt, die auf die Anweisung folgt, in der "Function" aufgerufen wurde.

Exit Sub

Beendet sofort die Sub-Prozedur, in der sie vorkommt. Die Ausführung wird mit der Anweisung fortgesetzt, die auf die Anweisung folgt, in der "Sub" aufgerufen wurde.

Das folgende Beispiel veranschaulicht die Verwendung der Exit-Anweisung

Beispiel 1:

Sub RandomLoop
   Dim I, MyNum
   
      For I = 1 To 1000   ' Loop 1000 times.
         MyNum = Int(Rnd * 100)   ' Generate random numbers.
         Select Case MyNum   ' Evaluate random number.
            Case 17 'Operations based on the requirement for this case
               Exit For   ' If 17, exit For...Next.            
            Case 54 'Operations based on the requirement for this case
               Exit Sub   ' If 54, exit Sub procedure.
            End Select
      Next
End Sub

Beispiel 2:

Function CalculateValue(x)
        If x < 0 Then
             CalculateValue = 0
             Exit Function
        End If
        CalculateValue = x * 4
End Function
'In this example, if x is negative, the function returns 0 and exits before executing any further calculations.

Beispiel 3:

Dim count 
count = 0 
Do While True 
        count = count + 1 
        If count > 10 Then 
                Exit Do ' Exits the loop after count exceeds ten.
        End If 
        ' Additional processing...
Loop 
'Here, once count exceeds 10, the loop will terminate.

Beispiel 4:

For i = 1 To 10
        If i = 5 Then
                Exit For ' Exits the loop when i equals 5.
        End If
        ' Code for other iterations...
Next
'In this case, when i reaches 5, the loop terminates early.