Module
Contents
Index 🔎︎

# While...Wend Statement

Kui programm leiab lause While, siis testib programm tingimust. Kui tingimus on väär, jätkab programm lausega Wend. Kui tingimus on tõene, siis täidetakse tsüklit, kuni programm jõuab lauseni Wend ja hüppab seejärel tagasi lausele While . Kui tingimus on ikka veel tõene, käivitatakse tsükkel uuesti.

Erinevalt lausest Do...Loop ei saa tsüklit While...Wend lausega Välju sulgeda. Ära kunagi sule tsüklit While...Wend lausega GoTo, kuna see võib põhjustada käitusajavea.

Tsükkel Do...Loop on paindlikum kui tsükkel While...Wend.

## Süntaks:

    While Condition [Statement] Wend

## Näide:

    Sub ExampleWhileWend

    Dim stext As String

    Dim iRun As Integer

        sText ="See on lühike 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,"Kodeeritud tekst"

    End Sub