IBM Lotus Symphony
|
Kadar program naleti na stavek While, testira pogoj. Če je pogoj False, program nadaljuje neposredno na stavek Wend. Če je pogoj True, se zanka izvaja, dokler program ne najde Wend, nato pa skoči nazaj na stavek While. Če je pogoj še vedno True, se zanka ponovno izvede.
Za razliko od stavka Do...Loop zanke While...Wend ne morete preklicati z Exit. Nikdar ne zapustite zanke While...Wend z GoTo, saj lahko to povzroči napako pri izvajanju.
Blok Do...Loop je fleksibilnejši od bloka While...Wend.
While Condition [Statement] Wend
Sub ExampleWhileWend
Dim stext As String
Dim iRun As Integer
sText ="This is a short text"
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,"Text encoded"
end sub