IBM Lotus Symphony


Оператор Do...Loop [встроенный]

Повторяет операторы, заключенные между Do и Loop, пока условие равно True или до тех пор, пока оно не станет равно True.

Синтаксис

Do [{While | Until} Условие = True]

Блок операторов

[Exit Do]

Блок операторов

Loop

или

Do

Блок операторов

[Exit Do]

Блок операторов

Loop [{While | Until} Условие = True]

Параметры/элементы

Условие: Оператор сравнения или числовое или строковое выражение, которые могут быть равны либо True, либо False.

Блок операторов: Операторы, которые нужно выполнять, пока условие равно True или до тех пор, пока оно не станет равно True.

Оператор Do...Loop выполняет цикл, пока заданное условие равно True или до тех пор, пока оно не станет равно True. Условие выхода из цикла должно быть указано в операторе Do или Loop. Ниже приведены примеры допустимых сочетаний:

Синтаксис

Do While Условие = True

...блок операторов

Loop

Блок операторов, заключенный между операторами Do While и Loop, выполняется, пока условие равно True.

Do Until Условие = True

...блок операторов

Loop

Блок операторов, заключенный между операторами Do Until и Loop, выполняется, пока условие равно false.

Do

...блок операторов

Loop While Условие = True

Блок операторов, заключенный между операторами Do и Loop, выполняется, пока условие равно True.

Do

...блок операторов

Loop Until Условие = True

Блок операторов, заключенный между операторами Do и Loop, выполняется до тех пор, пока условие не станет равно True.

Для безусловного завершения цикла воспользуйтесь оператором Exit Do. Его можно вставить в любом месте блока Do ... Loop. Кроме того, с помощью структуры If...Then можно определить условие выхода из цикла:

Do...

операторы

If Условие = True Then Exit Do

операторы

Loop...

Пример

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


Комментарии по продукту | Дополнительная документация | Товарные знаки