IBM Lotus Symphony
|
Gjentar uttrykkene mellom Do- og Loop-setningen mens betingelsen er Sann, eller inntil betingelsen blir Sann.
Do [{While | Until} betingelse = Sant]
setningsblokk
[Exit Do]
setningsblokk
Loop
eller
Do
setningsblokk
[Exit Do]
setningsblokk
Loop [{While | Until} Betingelse = Sann]
Betingelse: En sammenligning, et numerisk uttrykk eller et strenguttrykk som evaluerer enten Sant eller Usant.
Setningsblokk: Setninger du vil gjenta mens eller inntil betingelsen er Sann.
Do...Loop-setningen utfører en sløyfe så lenge som, eller inntil, en bestemt betingelse er Sann. Betingelsen for å avslutte sløyfen må angis etter enten Do- eller Loop-setningen. Følgende eksempler er gyldige kombinasjoner:
Do While betingelse = Sann
...setningsblokk
Loop
Setningsblokken mellom Do While- og Loop-setningene blir gjentatt så lenge betingelsen er sann.
Do Until betingelse = Sann
...setningsblokk
Loop
Setningsblokken mellom Do Until- og Loop-setningene blir gjentatt så lenge betingelsen er usann.
Do
...setningsblokk
Loop While betingelse = Sann
Setningsblokken mellom Do- og Loop-setningene blir gjentatt så lenge betingelsen er sann.
Do
...setningsblokk
Loop Until Betingelse = Sann
Setningsblokken mellom Do- og Loop-setningene blir gjentatt helt til betingelsen er sann.
Bruk Exit Do-setningen til å avslutte sløyfen uten betingelse. Du kan legge til denne setningen hvor som helst i en Do...Loop-setning. Du kan også definere en avslutningsbetingelse ved hjelp av If...Then-strukturen, slik:
Do...
uttrykk
If betingelse = Sann Then Exit Do
uttrykk
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