IBM Lotus Symphony
|
Gentager sætningerne mellem Do og Loop, mens betingelsen er sand, eller indtil betingelsen er sand.
Do [{While | Until} Betingelse = True]
Sætningsblok
[Exit Do]
Sætningsblok
Loop
eller
Do
Sætningsblok
[Exit Do]
Sætningsblok
Loop [{While | Until} Betingelse = True]
Betingelse: En sammenligning, der består af et numerisk udtryk eller et strengudtryk, og som enten evalueres til sandt eller falsk.
Sætningsblok: Sætninger, der skal gentages, mens eller indtil betingelsen er sand.
Sætningen Do...Loop udfører en løkke så længe eller indtil en bestemt betingelse er sand. Betingelsen for afslutning af løkken skal enten indsættes efter Do eller efter Loop. Følgende eksempler er gyldige kombinationer:
Do While Betingelse = True
...Sætningsblok
Loop
Sætningsblokken mellem Do While og Loop gentages, så længe betingelsen er sand.
Do Until Betingelse = True
...Sætningsblok
Loop
Sætningsblokken mellem Do Until og Loop gentages, så længe betingelsen er falsk.
Do
...Sætningsblok
Loop While Betingelse = True
Sætningsblokken mellem Do og Loop gentages, så længe betingelsen er sand.
Do
...Sætningsblok
Loop Until Betingelse = True
Sætningsblokken mellem Do og Loop gentages, indtil betingelsen er sand.
Brug sætningen Exit Do til at afbryde løkken uanset betingelserne. Sætningen kan indsættes hvor som helst i en Do ... Loop-sætning. Du kan også definere en afslutningsbetingelse vha. strukturen If...Then som vist herunder:
Do...
sætninger
If Betingelse = True Then Exit Do
sætninger
Loop...
Sub EksempelDoLoop
Dim sFil As String
Dim sSti As String
sSti = "c:\"
sFil = Dir$( sSti ,22)
If sFil <> "" Then
Do
MsgBox sFil
sFil = Dir$
Loop Until sFil = ""
End If
End Sub