Condividi tramite

Mentre... Istruzione End While (Visual Basic)

Esegue una serie di istruzioni purché una determinata condizione sia True.

Sintassi

While condition
    [ statements ]
    [ Continue While ]
    [ statements ]
    [ Exit While ]
    [ statements ]
End While

Parti

Termine Definizione
condition Obbligatorio. Boolean espressione. Se condition è Nothing, Visual Basic lo considera come False.
statements Opzionale. Una o più istruzioni seguenti While, che vengono eseguite ogni volta condition che è True.
Continue While Opzionale. Trasferisce il controllo all'iterazione successiva del While blocco.
Exit While Opzionale. Trasferisce il controllo fuori dal While blocco.
End While Obbligatorio. Termina la definizione del While blocco.

Osservazioni:

Usare una While...End While struttura quando si desidera ripetere un set di istruzioni un numero illimitato di volte, purché una condizione rimanga True. Se si vuole una maggiore flessibilità con la posizione in cui si testa la condizione o il risultato per cui si esegue il test, è consigliabile scegliere Do... Istruzione Loop. Se si desidera ripetere le istruzioni un numero di volte impostato, for ... L'istruzione successiva è in genere una scelta migliore.

Annotazioni

La While parola chiave viene usata anche in Do... Istruzione Loop, la clausola Skip While e la clausola Take While.

Se condition è True, tutte le statements esecuzioni fino a quando non viene rilevata l'istruzione End While . Il controllo torna quindi all'istruzione While e condition viene nuovamente controllato. Se condition è ancora True, il processo viene ripetuto. Se è False, il controllo passa all'istruzione che segue l'istruzione End While .

L'istruzione While controlla sempre la condizione prima di avviare il ciclo. Il ciclo continua mentre la condizione rimane True. Se condition è False quando si immette per la prima volta il ciclo, non viene eseguito nemmeno una volta.

Il condition risultato in genere deriva da un confronto di due valori, ma può essere qualsiasi espressione che restituisce un valore di tipo di dati booleano (True o False). Questa espressione può includere un valore di un altro tipo di dati, ad esempio un tipo numerico, convertito in Boolean.

È possibile annidare While i cicli inserendo un ciclo all'interno di un altro. È anche possibile annidare diversi tipi di strutture di controllo tra loro. Per altre informazioni, vedere Strutture di controllo annidate.

Exit While

L'istruzione Exit While può fornire un altro modo per uscire da un While ciclo. Exit While trasferisce immediatamente il controllo all'istruzione che segue l'istruzione End While .

In genere si usa Exit While dopo la valutazione di una condizione, ad esempio in una If...Then...Else struttura. È possibile uscire da un ciclo se si rileva una condizione che rende superfluo o impossibile continuare l'iterazione, ad esempio un valore errato o una richiesta di terminazione. È possibile usare Exit While quando si testa una condizione che potrebbe causare un ciclo infinito, ovvero un ciclo che potrebbe eseguire un numero estremamente elevato o persino infinito di volte. È quindi possibile usare per eseguire Exit While l'escape del ciclo.

È possibile inserire qualsiasi numero di Exit While istruzioni in qualsiasi punto del While ciclo.

Se usato all'interno di cicli annidati While , Exit While trasferisce il controllo all'esterno del ciclo più interno e nel successivo livello superiore di annidamento.

L'istruzione Continue While trasferisce immediatamente il controllo all'iterazione successiva del ciclo. Per altre informazioni, vedere istruzione 'Continue'.

Esempio 1

Nell'esempio seguente le istruzioni nel ciclo continuano a essere eseguite fino a quando la index variabile non è maggiore di 10.

Dim index As Integer = 0
While index <= 10
    Debug.Write(index.ToString & " ")
    index += 1
End While

Debug.WriteLine("")
' Output: 0 1 2 3 4 5 6 7 8 9 10

Esempio 2

Nell'esempio seguente viene illustrato l'uso delle istruzioni Continue While e Exit While.

Dim index As Integer = 0
While index < 100000
    index += 1

    ' If index is between 5 and 7, continue
    ' with the next iteration.
    If index >= 5 And index <= 8 Then
        Continue While
    End If

    ' Display the index.
    Debug.Write(index.ToString & " ")

    ' If index is 10, exit the loop.
    If index = 10 Then
        Exit While
    End If
End While

Debug.WriteLine("")
' Output: 1 2 3 4 9 10

Esempio 3

Nell'esempio seguente vengono lette tutte le righe di un file di testo. Il OpenText metodo apre il file e restituisce un oggetto StreamReader che legge i caratteri. While Nella condizione il Peek metodo dell'oggetto StreamReader determina se il file contiene caratteri aggiuntivi.

Private Sub ShowText(ByVal textFilePath As String)
    If System.IO.File.Exists(textFilePath) = False Then
        Debug.WriteLine("File Not Found: " & textFilePath)
    Else
        Dim sr As System.IO.StreamReader = System.IO.File.OpenText(textFilePath)

        While sr.Peek() >= 0
            Debug.WriteLine(sr.ReadLine())
        End While

        sr.Close()
    End If
End Sub

Vedere anche

  • Last updated on