Condividi tramite

Fare... Istruzione Loop (Visual Basic)

Ripete un blocco di istruzioni mentre una Boolean condizione è True o finché la condizione non diventa True.

Sintassi

Do [ { While | Until } condition ]
    [ statements ]
    [ Continue Do ]
    [ statements ]
    [ Exit Do ]
    [ statements ]
Loop
' -or-
Do
    [ statements ]
    [ Continue Do ]
    [ statements ]
    [ Exit Do ]
    [ statements ]
Loop [ { While | Until } condition ]

Parti

Termine Definizione
Do Obbligatorio. Avvia la definizione del Do ciclo.
While Non è possibile specificare se Until viene utilizzato. Ripetere il ciclo fino a condition quando non è False.
Until Non è possibile specificare se While viene utilizzato. Ripetere il ciclo fino a condition quando non è True.
condition Opzionale. Boolean espressione. Se condition è Nothing, Visual Basic lo considera come False.
statements Opzionale. Una o più istruzioni ripetute durante o fino a quando non condition è True.
Continue Do Opzionale. Trasferisce il controllo all'iterazione successiva del Do ciclo.
Exit Do Opzionale. Trasferisce il controllo fuori dal Do ciclo.
Loop Obbligatorio. Termina la definizione del Do ciclo.

Osservazioni:

Usare una Do...Loop struttura quando si desidera ripetere un set di istruzioni un numero illimitato di volte, fino a quando non viene soddisfatta una condizione. Se si desidera ripetere le istruzioni un numero di volte impostato, for ... L'istruzione successiva è in genere una scelta migliore.

È possibile usare o WhileUntil per specificare condition, ma non entrambi. Se non si assegnano nessuna delle due opzioni, il ciclo continua fino a quando non viene eseguito un Exit controllo di trasferimento all'esterno del ciclo.

È possibile testare condition una sola volta, all'inizio o alla fine del ciclo. Se si esegue il test condition all'inizio del ciclo (nell'istruzione Do ), il ciclo potrebbe non essere eseguito nemmeno una volta. Se si esegue il test alla fine del ciclo (nell'istruzione Loop ), il ciclo viene sempre eseguito almeno una volta.

La condizione restituisce in genere un confronto di due valori, ma può essere qualsiasi espressione che restituisce un valore di tipo di dati booleano (True o False). Sono inclusi i valori di altri tipi di dati, ad esempio i tipi numerici, che sono stati convertiti in Boolean.

È possibile annidare Do 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.

Annotazioni

La Do...Loop struttura ti offre maggiore flessibilità rispetto a While... End While Statement perché consente di decidere se terminare il ciclo quando condition smette di essere True o quando diventa Trueper la prima volta . Consente anche di eseguire il test condition all'inizio o alla fine del ciclo.

Esci da Fare

L'istruzione Exit Do può fornire un modo alternativo per uscire da un oggetto Do…Loop. Exit Do trasferisce immediatamente il controllo all'istruzione che segue l'istruzione Loop .

Exit Do viene spesso usato 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. Un uso di Exit Do consiste nel testare una condizione che potrebbe causare un ciclo infinito, ovvero un ciclo che potrebbe eseguire un numero elevato o persino infinito di volte. È possibile usare per eseguire Exit Do l'escape del ciclo.

È possibile includere un numero qualsiasi di Exit Do istruzioni in qualsiasi punto di un oggetto Do…Loop.

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

Esempio 1

Nell'esempio seguente le istruzioni nel ciclo continuano a essere eseguite fino a quando la index variabile non è maggiore di 10. La Until clausola si trova alla fine del ciclo.

Dim index As Integer = 0
Do
    Debug.Write(index.ToString & " ")
    index += 1
Loop Until index > 10

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

Esempio 2

Nell'esempio seguente viene utilizzata una While clausola anziché una Until clausola e condition viene testata all'inizio del ciclo anziché alla fine.

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

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

Esempio 3

Nell'esempio seguente arresta condition il ciclo quando la index variabile è maggiore di 100. L'istruzione If nel ciclo, tuttavia, fa sì che l'istruzione Exit Do arresti il ciclo quando la variabile di indice è maggiore di 10.

Dim index As Integer = 0
Do While index <= 100
    If index > 10 Then
        Exit Do
    End If

    Debug.Write(index.ToString & " ")
    index += 1
Loop

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

Esempio 4

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. Do...Loop Nella condizione il Peek metodo dell'oggetto StreamReader determina se sono presenti 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)

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

        sr.Close()
    End If
End Sub

Vedere anche

  • Last updated on