Do...Loop — Instrukcja (Visual Basic)

Artykuł
03/05/2024

Powtarza blok instrukcji, gdy Boolean warunek jest True lub do momentu, aż warunek stanie się True.

Składnia

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 ]

generatora

Termin	Definicja
`Do`	Wymagany. Uruchamia definicję `Do` pętli.
`While`	Nie można podać, jeśli `Until` jest używany. Powtarzaj pętlę, dopóki `condition` nie ma parametru `False`.
`Until`	Nie można podać, jeśli `While` jest używany. Powtarzaj pętlę, dopóki `condition` nie ma parametru `True`.
`condition`	Opcjonalny. `Boolean` Wyrażenie. Jeśli `condition` element to `Nothing`, Visual Basic traktuje go jako `False`.
`statements`	Opcjonalny. Co najmniej jedna instrukcja powtarzana w czasie lub do czasu `condition` to `True`.
`Continue Do`	Opcjonalny. Przenosi kontrolkę do następnej `Do` iteracji pętli.
`Exit Do`	Opcjonalny. Przenosi kontrolkę poza pętlę `Do` .
`Loop`	Wymagany. Przerywa definicję `Do` pętli.

Uwagi

Do...Loop Użyj struktury, jeśli chcesz powtórzyć zestaw instrukcji w nieskończoność, dopóki warunek nie zostanie spełniony. Jeśli chcesz powtórzyć instrukcje określoną liczbę razy, dla ... Następna instrukcja jest zwykle lepszym wyborem.

Możesz użyć polecenia While lub Until , aby określić conditionparametr , ale nie oba te elementy. Jeśli żadna z nich nie zostanie nadana, pętla będzie kontynuowana, dopóki Exit kontrolka transferu nie zostanie wyjęła z pętli.

Możesz przetestować condition tylko jeden raz na początku lub na końcu pętli. Jeśli testujesz condition na początku pętli (w instrukcji Do ), pętla może nie działać nawet raz. Jeśli testujesz na końcu pętli (w instrukcji Loop ), pętla zawsze jest uruchamiana co najmniej raz.

Warunek zwykle wynika z porównania dwóch wartości, ale może to być dowolne wyrażenie, które daje w wyniku wartość typu danych logicznych (True lub False). Obejmuje to wartości innych typów danych, takich jak typy liczbowe, które zostały przekonwertowane na Boolean.

Pętle można zagnieżdżać Do , umieszczając jedną pętlę w innej. Można również zagnieżdżać różne rodzaje struktur sterujących w sobie. Aby uzyskać więcej informacji, zobacz Zagnieżdżone struktury kontrolek.

Uwaga

Struktura Do...Loop zapewnia większą elastyczność niż while... End While, ponieważ umożliwia podjęcie decyzji, czy zakończyć pętlę po condition zatrzymaniuTrue, czy po raz pierwszy staje się .True Umożliwia również testowanie condition na początku lub na końcu pętli.

Zakończ pracę

Instrukcja Exit Do może zapewnić alternatywny sposób zakończenia działania .Do…Loop Exit Do przenosi kontrolkę natychmiast do instrukcji, która jest zgodna z instrukcją Loop .

Exit Do jest często używany po ocenie pewnego warunku, na przykład w If...Then...Else strukturze. Możesz chcieć zamknąć pętlę, jeśli wykryjesz warunek, który sprawia, że iteracja jest niepotrzebna lub niemożliwa, na przykład błędna wartość lub żądanie zakończenia. Jednym z nich Exit Do jest przetestowanie warunku, który może spowodować nieskończoną pętlę, czyli pętlę, która może uruchamiać dużą lub nawet nieskończoną liczbę razy. Możesz użyć Exit Do polecenia , aby uciec od pętli.

Możesz uwzględnić dowolną liczbę instrukcji Exit Do w dowolnym miejscu w obiekcie Do…Loop.

W przypadku użycia w zagnieżdżonych Do pętlach Exit Do transferuje kontrolę poza pętlę najbardziej wewnętrzną i do następnego wyższego poziomu zagnieżdżania.

Przykład 1

W poniższym przykładzie instrukcje w pętli będą nadal działać, dopóki zmienna index nie będzie większa niż 10. Klauzula Until znajduje się na końcu pętli.

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

Przykład 2

W poniższym przykładzie użyto While klauzuli zamiast Until klauzuli i condition testowano na początku pętli, a nie na końcu.

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

Przykład 3

W poniższym przykładzie zatrzymuje pętlę, condition gdy zmienna index jest większa niż 100. Instrukcja If w pętli powoduje Exit Do jednak zatrzymanie pętli przez instrukcję, gdy zmienna indeksu jest większa niż 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

Przykład 4

Poniższy przykład odczytuje wszystkie wiersze w pliku tekstowym. Metoda OpenText otwiera plik i zwraca element StreamReader , który odczytuje znaki. Do...Loop W warunku metoda StreamReader określa, Peek czy istnieją jakieś dodatkowe znaki.

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