IBM Lotus Symphony
|
Toistaa lauseet Do- ja Loop-lauseen välillä, kun ehdon arvo on True tai kunnes ehdon arvoksi tulee True.
Do [{While | Until} condition = True]
lauselohko
Exit Do]
lauselohko
Loop
tai
Do
lauselohko
Exit Do]
lauselohko
Loop [{While | Until} condition = True]
Condition: Vertailu, numeerinen tai merkkijonolauseke, jonka arvoksi tulee joko True tai False.
Lauselohko: Lauseet, jotka haluat toistaa kun tai kunnes ehdon arvo on True.
Do...Loop-lause suorittaa silmukan niin kauan kuin tai kunnes tietyn ehdon arvo on True. Silmukasta poistumisen ehto on kirjoitettava joko Do- tai Loop-lauseen jälkeen. Seuraavat esimerkit ovat kelvollisia yhdistelmiä:
Do While condition = True
lauselohko
Loop
Do While- ja Loop-lauseiden välistä lauselohkoa toistetaan niin kauan kuin ehdon arvo on True.
Do Until condition = True
lauselohko
Loop
Do Until- ja Loop-lauseiden välistä lauselohkoa toistetaan niin kauan kuin ehdon arvo on False.
Do
lauselohko
Loop While condition = True
Do- ja Loop-lauseiden välistä lauselohkoa toistetaan niin kauan kuin ehdon arvo on True.
Do
lauselohko
Loop Until condition = True
Do- ja Loop-lauseiden välistä lauselohkoa toistetaan, kunnes ehdon arvo on True.
Exit Do -lauseen avulla voit lopettaa silmukan ehdoitta. Voit lisätä tämän lauseen mihin tahansa Do...Loop-lauseessa. Voit määrittää lopetusehdon myös If...Then-rakenteen avulla seuraavasti:
Do...
lauseet
If condition = True Then Exit Do
lauseet
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