IBM Lotus Symphony


Instrukcja Do...Loop [środowisko wykonawcze]

Powtarza instrukcje zawarte między instrukcjami Do i Loop dopóki warunek ma wartość True lub do momentu, gdy warunek przyjmie wartość True.

Składnia

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]

Parametry/Elementy

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:

Składnia

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...

Przykład

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


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe