IBM Lotus Symphony
|
Когда программа обнаруживает оператор 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