Příkaz Do...Loop
Příkazy mezi příkazy Do a Loop se budou opakovat, je-li podmínka True, nebo dokud podmínka nenabude hodnoty True.
Do {While | Until} condition = True
' Do While: Blok příkazů se opakuje, pokud je podmínka splněna
' Do Until: Blok příkazů se opakuje, pokud podmínka splněna není
statements
[Exit Do]
statements
Loop
Do
statements
[Exit Do]
statements
' Loop While: Blok příkazů se opakuje, pokud je podmínka splněna
' Loop Until: Blok příkazů se opakuje, dokud podmínka splněna není
Loop {While | Until} condition = True
Příkaz Do...Loop se spouští ve smyčce podle toho, zda má určitá podmínka hodnotu True. Podmínka pro ukončení smyčky se zadává buď po příkazu Do nebo Loop. Následující příkazy jsou platné kombinace:
Podmínka: Porovnávací či číselný výraz nebo výraz Basicu, který se vyhodnotí jako True nebo False.
Příkazy: Příkazy, které chcete opakovat, zatímco podmínka má hodnotu True, nebo dokud ji nemá.
Bezpodmínečně smyčku ukončíte příkazem Exit Do. Tento příkaz je možné přidat kamkoliv mezi příkazy Do...Loop. Ukončovací podmínku je také možné určit pomocí struktury If...Then takto:
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