Spis treści
Indeks 🔎︎

# Instrukcja While...Wend

Po napotkaniu instrukcji While program sprawdza umieszczony przy niej warunek. Jeśli warunek ma wartość False (fałsz), program jest wykonywany dalej od instrukcji bezpośrednio po instrukcji Wend. Jeśli warunek ma wartość True (prawda), pętla jest wykonywana aż do instrukcji Wend, po czym następuje powrót do instrukcji While . Jeśli warunek w dalszym ciągu ma wartość True (prawda), pętla jest wykonywana ponownie.

W przeciwieństwie do instrukcji Do...Loop, w tym przypadku nie ma możliwości upuszczenia pętli While...Wend za pomocą instrukcji Exit. Pętli While...Wend nie należy nigdy opuszczać za pomocą instrukcji GoTo, ponieważ może to spowodować błąd wykonania.

Pętla Do...Loop jest bardziej elastyczna niż While...Wend.

## Składnia:

    While warunek [instrukcja] Wend

## Przykład:

      Sub ExampleWhileWend
      Dim stext As String
      Dim iRun As Integer
          sText ="To jest krótki tekst"
          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,"Tekst zakodowany"
      End Sub