IBM Lotus Symphony


Príkaz Do...Loop [Runtime]

Opakuje príkazy medzi časťami Do a Loop príkazu cyklu dovtedy, kým podmienka má hodnotu true alebo dovtedy, kým podmienka nenadobudne hodnotu true.

Syntax

Do [{While | Until} podmienka = True]

blok príkazov

[Exit Do]

blok príkazov

Loop

alebo

Do

blok príkazov

[Exit Do]

blok príkazov

Loop [{While | Until} podmienka = True]

Parametre/Prvky

Podmienka: porovnanie, numerický alebo reťazcový výraz, ktorý sa vyhodnotí buď hodnotou true alebo false.

Blok príkazov: príkazy, ktoré chcete opakovať dovtedy, kým podmienka má hodnotu true alebo dovtedy, kým nenadobudne hodnotu true.

Príkaz Do...Loop sa vykonáva opakovane dovtedy, kým určitá podmienka má hodnotu true alebo dovtedy, kým nenadobudne hodnotu true. Podmienka ukončenia cyklu sa musí zadať buď za časťou Do alebo za časťou Loop príkazu cyklu. Nasledujúce príklady sú platné kombinácie:

Syntax

Do While príkaz = True

...blok príkazov

Loop

Blok príkazov medzi časťami príkazu Do While a Loop sa opakuje dovtedy, kým platí podmienka.

Do Until podmienka = True

...blok príkazov

Loop

Blok príkazov medzi príkazmi Do Until a Loop sa bude opakovať dovtedy, kým nebude mať podmienka hodnotu false.

Do

...blok príkazov

Loop While podmienka = True

Blok príkazov medzi časťami príkazu Do While a Loop sa opakuje dovtedy, kým platí podmienka.

Do

...blok príkazov

Loop Until podmienka = True

Blok príkazov medzi časťami príkazu Do While a Loop sa opakuje dovtedy, kým platí podmienka.

Použite príkaz Exit Do na nepodmienené ukončenie cyklu. Tento príkaz môžete pridať kdekoľvek v príkaze Do...Loop. Môžete tiež definovať podmienku ukončenia cyklu pomocou štruktúry If...Then nasledujúcim spôsobom:

Do...

príkazy

If podmienka = True Then Exit Do

príkazy

Loop...

Príklad

Sub Príklad_Do_Loop

Dim sFile ako typ 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


Spätná väzba na produkt | Ďalšia dokumentácia | Ochranné známky