Module
Contents
Index 🔎︎

# While...Wend Statement

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

В отличие от инструкции 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