Інструкція While...Wend
Якщо програма зустрічає інструкцію While, вона перевіряє зазначену умову. Якщо умова хибна, програма продовжується безпосередньо після інструкції Wend. Якщо дана умова істинна, цикл виконується до Wend, а потім повертається до інструкції While. Якщо дана умова все ще істинна, цикл буде виконуватися знову.
На відміну від інструкції Do...Loop, цикл While...Wend не може бути перерваний командою Exit. З циклу While...Wend не можна вийти за допомогою GoTo, оскільки це може викликати помилки часу виконання.
Використання інструкції Do...Loop є гнучкішим, ніж використання While...Wend.
Синтаксис:
While Умова [Інструкція] Wend
Приклад:
Sub ExampleWhileWend
Dim Текст 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