IBM Lotus Symphony


Sætningen Do...Loop [Runtime]

Gentager sætningerne mellem Do og Loop, mens betingelsen er sand, eller indtil betingelsen er sand.

Syntaks

Do [{While | Until} Betingelse = True]

Sætningsblok

[Exit Do]

Sætningsblok

Loop

eller

Do

Sætningsblok

[Exit Do]

Sætningsblok

Loop [{While | Until} Betingelse = True]

Parametre/elementer

Betingelse: En sammenligning, der består af et numerisk udtryk eller et strengudtryk, og som enten evalueres til sandt eller falsk.

Sætningsblok: Sætninger, der skal gentages, mens eller indtil betingelsen er sand.

Sætningen Do...Loop udfører en løkke så længe eller indtil en bestemt betingelse er sand. Betingelsen for afslutning af løkken skal enten indsættes efter Do eller efter Loop. Følgende eksempler er gyldige kombinationer:

Syntaks

Do While Betingelse = True

...Sætningsblok

Loop

Sætningsblokken mellem Do While og Loop gentages, så længe betingelsen er sand.

Do Until Betingelse = True

...Sætningsblok

Loop

Sætningsblokken mellem Do Until og Loop gentages, så længe betingelsen er falsk.

Do

...Sætningsblok

Loop While Betingelse = True

Sætningsblokken mellem Do og Loop gentages, så længe betingelsen er sand.

Do

...Sætningsblok

Loop Until Betingelse = True

Sætningsblokken mellem Do og Loop gentages, indtil betingelsen er sand.

Brug sætningen Exit Do til at afbryde løkken uanset betingelserne. Sætningen kan indsættes hvor som helst i en Do ... Loop-sætning. Du kan også definere en afslutningsbetingelse vha. strukturen If...Then som vist herunder:

Do...

sætninger

If Betingelse = True Then Exit Do

sætninger

Loop...

Eksempel

Sub EksempelDoLoop

Dim sFil As String

Dim sSti As String

sSti = "c:\"

sFil = Dir$( sSti ,22)

If sFil <> "" Then

Do

MsgBox sFil

sFil = Dir$

Loop Until sFil = ""

End If

End Sub


Produktfeedback | Yderligere dokumentation | Varemærker