IBM Lotus Symphony


Do...Loop-setningen [kjøretid]

Gjentar uttrykkene mellom Do- og Loop-setningen mens betingelsen er Sann, eller inntil betingelsen blir Sann.

Syntaks

Do [{While | Until} betingelse = Sant]

setningsblokk

[Exit Do]

setningsblokk

Loop

eller

Do

setningsblokk

[Exit Do]

setningsblokk

Loop [{While | Until} Betingelse = Sann]

Parametere/elementer

Betingelse: En sammenligning, et numerisk uttrykk eller et strenguttrykk som evaluerer enten Sant eller Usant.

Setningsblokk: Setninger du vil gjenta mens eller inntil betingelsen er Sann.

Do...Loop-setningen utfører en sløyfe så lenge som, eller inntil, en bestemt betingelse er Sann. Betingelsen for å avslutte sløyfen må angis etter enten Do- eller Loop-setningen. Følgende eksempler er gyldige kombinasjoner:

Syntaks

Do While betingelse = Sann

...setningsblokk

Loop

Setningsblokken mellom Do While- og Loop-setningene blir gjentatt så lenge betingelsen er sann.

Do Until betingelse = Sann

...setningsblokk

Loop

Setningsblokken mellom Do Until- og Loop-setningene blir gjentatt så lenge betingelsen er usann.

Do

...setningsblokk

Loop While betingelse = Sann

Setningsblokken mellom Do- og Loop-setningene blir gjentatt så lenge betingelsen er sann.

Do

...setningsblokk

Loop Until Betingelse = Sann

Setningsblokken mellom Do- og Loop-setningene blir gjentatt helt til betingelsen er sann.

Bruk Exit Do-setningen til å avslutte sløyfen uten betingelse. Du kan legge til denne setningen hvor som helst i en Do...Loop-setning. Du kan også definere en avslutningsbetingelse ved hjelp av If...Then-strukturen, slik:

Do...

uttrykk

If betingelse = Sann Then Exit Do

uttrykk

Loop...

Eksempel

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


Tilbakemelding om produktet | Annen dokumentasjon | Varemerker