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