<< Click to Display Table of Contents >> Do ... Loop (Anweisung)

Do [{While|Until} Bedingung]

 [Anweisungen]

 [Exit Do]

 [Anweisungen]

Loop

Oder:

Do

 [Anweisungen]

 [Exit Do]

 [Anweisungen]

Loop [{While|Until} Bedingung]

Führt eine Gruppe von Anweisungen wiederholt aus, solange eine Bedingung wahr ist (Do ... While) beziehungsweise bis eine Bedingung wahr wird (Do ... Until). Siehe auch Abschnitt Kontrollstrukturen.

Siehe auch: While Wend, Abschnitt Kontrollstrukturen

Beispiel:

Sub Main

 Dim Value, Msg

 Do

         Value = InputBox("Geben Sie eine Zahl zwischen 5 und 10 ein.")

         If Value >= 5 And Value <= 10 Then

                 Exit Do      ' Zahl OK -> Exit

         Else

                 Beep         ' Zahl nicht OK -> nochmal von vorn

         End If

 Loop

End Sub