IBM Lotus Symphony
|
Ponavlja stavek med stavkoma Do in Loop, medtem ko je pogoj true ali dokler pogoj ne postane True.
Do [{While | Until} condition = True]
blok stavka
[Exit Do]
blok stavka
Loop
ali
Do
blok stavka
[Exit Do]
blok stavka
Loop [{While | Until} condition = True]
Condition (Pogoj): Primerjava, številski izraz ali nizovni izraz, ki ocenjuje ali True ali False.
Blok stavka Stavki, ki jih želite ponavljati medtem ali dokler pogoj ne postane True.
Stavek Do...Loop izvaja zanko dokler je ali dokler ne postane določen pogoj True. Pogoj za izhod iz zanke mora biti vnesen ali za stavkom Do ali za stavkom Loop. Naslednji primeri so veljavne kombinacije:
Do While condition = True
...blok stavka
Loop
Blok stavka med stavkoma Do While in Loop se ponavlja, dokler je pogoj True.
Do Until condition = True
...blok stavka
Loop
Blok stavka med stavkoma Do Until in Loop se ponavlja, dokler je pogoj false.
Do
...blok stavka
Loop While condition = True
Blok stavka med stavkoma Do in Loop se ponavlja, dokler je pogoj True.
Do
...blok stavka
Loop Until condition = True
Blok stavka med stavkoma Do in Loop se ponavlja, dokler se pogoj ne spremeni v True.
Uporabite stavek Exit Do, če želite brezpogojno končati zanko. Ta stavek lahko dodate kamorkoli v stavek Do ... Loop. Prav tako lahko definirate izhodne pogoje s strukturo If...Then podobno kot v naslednjem primeru:
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