Module
Contents
Index 🔎︎

# Do...Loop Statement

Kordab lause Do ja Loop vahelisi lauseid, kui tingimuse väärtus on või kuni selleks saab Tõene.

## Süntaks

    Do [{While | Until} condition = True]

lause sisu

    [Exit Do]

lause sisu

    Loop

või

    Do

lause sisu

    [Exit Do]

lause sisu

    Loop [{While | Until} condition = True]

## Parameetrid/Elemendid

Condition: A comparison, numeric or string expression, that evaluates either True or False.

Statement block: laused, mida soovid korrata, kui või kuni tingimuse väärtus on Tõene.

Lause Do...Loop käivitab tsükli seni või kuni määratud tingimuse väärtus on Tõene. Tsüklist väljumise tingimus peab olema sisestatud lause Do või Loop järele. Järgmised näited on sobivad kombinatsioonid:

## Süntaks

    Do While condition = True

...lause sisu

    Loop

Lausete Do While ja Loop vahelist lause sisu korratakse seni, kuni tingimus on tõene.

    Do Until condition = True

...lause sisu

    Loop

Lausete Do Until ja Loop vahelist lause sisu korratakse seni, kuni tingimus on väär.

    Do

...lause sisu

    Loop While condition = True

Lausete Do ja Loop vahelist lause sisu korratakse seni, kuni tingimus on tõene.

    Do

...lause sisu

    Loop Until condition = True

Lausete Do ja Loop vahelist lause sisu korratakse, kuni tingimus on tõene.

Tsüklist tingimusteta väljumiseks kasuta lauset Exit Do. Selle lause saad lisada suvalisse kohta lauses Do...Loop. Väljumistingimuse saad määrata ja struktuuri If...Then abil järgmiselt:

    Do...

laused

    If condition = True Then Exit Do

laused

    Loop...

## Näide

    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