IBM Lotus Symphony
|
Powtarza instrukcje zawarte między instrukcjami Do i Loop dopóki warunek ma wartość True lub do momentu, gdy warunek przyjmie wartość True.
Do [{While | Until} Warunek = True]
Blok instrukcji
[Exit Do]
Blok instrukcji
Loop
lub
Do
Blok instrukcji
[Exit Do]
Blok instrukcji
Loop [{While | Until} Warunek = True]
Warunek: Porównanie, wyrażenie liczbowe lub łańcuch, który przyjmuje wartość True lub False.
Blok instrukcji: Instrukcje, które mają być powtarzane, gdy warunek ma wartość True lub do momentu, gdy warunek przyjmie wartość True.
Instrukcja Do...Loop wykonuje pętlę tak długo, jak dany warunek ma wartość True, lub do momentu, gdy dany warunek przyjmie wartość True. Warunek istniejącej pętli należy wprowadzić po instrukcji Do lub Loop. Poniższe przykłady są poprawnymi kombinacjami:
Do While Warunek = True
Blok instrukcji
Loop
Blok instrukcji między instrukcjami Do While i Loop jest powtarzany dopóki warunek ma wartość True.
Do Until Warunek = True
Blok instrukcji
Loop
Blok instrukcji między instrukcjami Do Until i Loop jest powtarzany dopóki warunek ma wartość False.
Do
Blok instrukcji
Loop While Warunek = True
Blok instrukcji między instrukcjami Do i Loop jest powtarzany dopóki warunek ma wartość True.
Do
Blok instrukcji
Loop Until Warunek = True
Blok instrukcji między instrukcjami Do i Loop jest powtarzany do momentu, gdy warunek przyjmie wartość True (czyli dopóki warunek ma wartość False).
Instrukcja Exit Do służy do bezwarunkowego zakończenia pętli. Tę instrukcję można dodać w dowolnym miejscu instrukcji Do...Loop. Można również zdefiniować warunek wyjścia, używając poniższej struktury If...Then:
Do...
instrukcje
If Warunek = True Then Exit Do
instrukcje
Loop...
Sub Przyklad_DoLoop
Dim sPlik As String
Dim sSciezka As String
sSciezka = "c:\"
sPlik = Dir$( sSciezka ,22)
If sPlik <> "" Then
Do
MsgBox sPlik
sPlik = Dir$
Loop Until sPlik = ""
End If
End Sub