Spis treści

# 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:

      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

      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

Tematy pokrewne

Instrukcje For, Select Case lub While

Funkcje Iif lub Switch

Prosimy o wsparcie!