Instrukcja Do...Loop

Powtarza instrukcje pomiędzy Do i Loop, dopóki warunek jest True lub dopóki warunek nie stanie się True.

Składnia:

Instrukcja Do

Do {While | Until} condition = True
' Do While: blok instrukcji jest powtarzany tak długo, jak długo warunek jest prawdziwy
' Do Until: blok instrukcji jest powtarzany tak długo, jak długo warunek jest fałszywy
   statements
   [Exit Do]
   statements
Loop

Instrukcja Do...Loop

Do
   statements
   [Exit Do]
   statements
' Loop While: blok instrukcji jest powtarzany, dopóki warunek jest prawdziwy
' Loop Until: blok instrukcji jest powtarzany, dopóki warunek jest prawdziwy
Loop {While | Until} condition = True

Parametry:

Instrukcja Do...Loop wykonuje pętlę tak długo, jak długo określony warunek jest True lub dopóki tak nie jest. Warunek wyjścia z pętli musi zostać wprowadzony po instrukcji Do lub Loop. Powyższe przykłady to prawidłowe kombinacje.

condition: Porównanie, numeryczne lub podstawowe wyrażenie, którego wynikiem jest True lub False.

statements: Instrukcje, które chcesz powtarzać, gdy warunek jest True lub dopóki tak nie jest.

W celu bezwarunkowego zakończenia pętli można użyć instrukcji Exit Do. Można ją umieścić w dowolnym miejscu wewnątrz struktury Do...Loop. Warunek wyjścia z pętli można także zdefiniować za pomocą struktury If...Then:

Do...
   statements
   If condition = True Then Exit Do
   statements
Loop...

Przykład:

Sub ExampleDoLoop
    Dim sFile As String
    Dim sPath As String
    sPath = "c:\"
    sFile = Dir$( sPath ,22)
    If sFile <> "" Then
        Do
            MsgBox sFile
            sFile = Dir$
        Loop Until sFile = ""
    End If
End Sub

Instrukcje For, Select Case lub While

Funkcje Iif lub Switch