Istruzione Exit

Sintassi

Exit Do

Exit For

Exit Function

Exit Sub

Note

La sintassi dell'istruzione Exit ha i seguenti formati:

Exit Do

Offre un modo per uscire da un'istruzione Do...Loop. Può essere utilizzato solo all'interno di un'istruzione Do...Loop. Exit Do trasferisce il controllo all'istruzione successiva all'istruzione Loop. Se utilizzata all'interno di istruzioni Do...Loop nidificate, l'istruzione Exit Do trasferisce il controllo al loop nidificato di un livello superiore al loop in cui viene eseguita.

Exit For

Fornisce un modo per uscire da un loop For. Può essere utilizzato solo in un loop For...Next o For Each...Next. Exit For trasferisce il controllo all'istruzione successiva all'istruzione Next. Se utilizzata all'interno di loop For nidificati, l'istruzione Exit For trasferisce il controllo al loop nidificato di un livello superiore al loop viene eseguita.

Exit Function

Esce immediatamente dalla routine Function in cui l'istruzione è contenuta. L'esecuzione continua con l'istruzione che segue l'istruzione che ha chiamato la routine Function.

Exit Sub

Esce immediatamente dalla subroutine in cui l'istruzione è contenuta. L'esecuzione continua con l'istruzione che segue l'istruzione che ha chiamato la subroutine.

Nell'esempio seguente viene illustrato l'uso dell'istruzione Exit.

Esempio 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

Esempio 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.

Esempio 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.

Esempio 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.