IBM Lotus Symphony
|
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.
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]
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:
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...
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