Moduł
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