Inhalte

# Anweisung Do…Loop

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

### Syntax:

      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

### Parameter:

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...

### Beispiel:

    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

Verwandte Themen

Anweisungen For, Select Case oder While

Funktionen IIf oder Switch

Bitte unterstützen Sie uns!