Do-While-Schleife mit Bedingung am Schleifenende

Die Schleife benötigt keine Laufvariable. Die Schleife wird solange durchlaufen, solange die Fortsetzungsbedingung erfüllt ist. Die Schleife wird mindestens einmalig durchlaufen.

Die Schleife kann mit dem Befehl Exit Do vorzeitig abgebrochen werden.

Die Schleife kann mit dem Befehl Continue unmittelbar fortgesetzt werden.

 

 

Dim i As Long, k As Long

 

i := 0

 

Do

   k := k + 100

   If k > 1000 Then

      Exit Do

   End If

   i := i + 1

End Do While i < 100