Do...Loop Statement
Kordab lause Do ja Loop vahelisi lauseid, kui tingimuse väärtus on või kuni selleks saab Tõene.
SĂĽntaks
Do [{While | Until} condition = True]
lause sisu
[Exit Do]
lause sisu
Loop
või
Do
lause sisu
[Exit Do]
lause sisu
Loop [{While | Until} condition = True]
Parameetrid/Elemendid
Condition: A comparison, numeric or string expression, that evaluates either True or False.
Statement block: laused, mida soovid korrata, kui või kuni tingimuse väärtus on Tõene.
Lause Do...Loop käivitab tsükli seni või kuni määratud tingimuse väärtus on Tõene. Tsüklist väljumise tingimus peab olema sisestatud lause Do või Loop järele. Järgmised näited on sobivad kombinatsioonid:
SĂĽntaks
Do While condition = True
...lause sisu
Loop
Lausete Do While ja Loop vahelist lause sisu korratakse seni, kuni tingimus on tõene.
Do Until condition = True
...lause sisu
Loop
Lausete Do Until ja Loop vahelist lause sisu korratakse seni, kuni tingimus on väär.
Do
...lause sisu
Loop While condition = True
Lausete Do ja Loop vahelist lause sisu korratakse seni, kuni tingimus on tõene.
Do
...lause sisu
Loop Until condition = True
Lausete Do ja Loop vahelist lause sisu korratakse, kuni tingimus on tõene.
Tsüklist tingimusteta väljumiseks kasuta lauset Exit Do. Selle lause saad lisada suvalisse kohta lauses Do...Loop. Väljumistingimuse saad määrata ja struktuuri If...Then abil järgmiselt:
Do...
laused
If condition = True Then Exit Do
laused
Loop...
Näide
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