Зміст
Покажчик 🔎︎

# Інструкція 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