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