IBM Lotus Symphony
|
Повторяет операторы, заключенные между 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