Anweisung Do…Loop

Wiederholt die Anweisungen zwischen den Anweisungen Do und Loop, solange die Bedingung True ist oder bis die Bedingung True wird.

  Do {While | Until} condition = True
  ' Do While: Der Anweisungsblock wird solange wiederholt, wie die Bedingung wahr ist
  ' Do Until: Der Anweisungsblock wird solange wiederholt, wie die Bedingung falsch ist
     statements
     [Exit Do]
     statements
  Loop

  Do
     statements
     [Exit Do]
     statements
  ' Loop While: Der Anweisungsblock wiederholt sich, solange die Bedingung wahr ist
  ' Loop Until: Der Anweisungsblock wird wiederholt, bis die Bedingung wahr ist
  Loop {While | Until} condition = True

Die Anweisung Do…Loop führt eine Schleife aus, solange oder bis eine bestimmte Bedingung Wahr ist. Die Bedingung zum Verlassen der Schleife muss entweder nach der Anweisung Do oder Loop eingegeben werden. Die obigen Beispiele sind gültige Kombinationen.

condition: Ein numerischer oder einfacher Vergleichsausdruck, der entweder True oder False ergibt.

statements: Anweisungen, die Sie wiederholen möchten, solange oder bis eine Bedingung True ist.

Um die Schleife bedingungslos zu verlassen, verwenden Sie die Anweisung Exit Do. Sie können diese Anweisung an einer beliebigen Position innerhalb einer Anweisung Do…Loop einfügen. Sie können eine Abbruchbedingung auch mit einer Struktur If…Then wie folgt definieren:

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

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