IBM Lotus Symphony


Оператор While...Wend [встроенный]

Когда программа обнаруживает оператор While, она проверяет условие. Если условие равно False, то программа переходит к оператору, следующему за оператором Wend. Если условие равно True, то программа выполняет цикл, пока не обнаружит Wend, после чего она возвращается к оператору While. Если условие по-прежнему равно True, цикл повторяется.

В отличие от оператора Do...Loop, цикл While...Wend нельзя прервать оператором Exit. Нельзя выходить из цикла While...Wend с помощью оператора GoTo, поскольку это может вызвать ошибку времени выполнения.

Таким образом, цикл Do...Loop более гибок, чем While...Wend.

Синтаксис:

While Условие [Оператор] Wend

Пример:

Sub ExampleWhileWend

Dim stext As String

Dim iRun As Integer

sText ="Это короткий текст"

iRun = 1

while iRun < Len(sText)

if Mid(sText,iRun,1 )<> " " then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )

iRun = iRun + 1

Wend

MsgBox sText,0,"Текст зашифрован"

end sub


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