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