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