IBM Lotus Symphony
|
Kun ohjelma kohtaa While-lauseen, se tarkistaa ehdon. Jos ehdon arvo on False, ohjelma jatkaa suoraan seuraavaan Wend-lauseeseen. Jos ehdon arvo on True, silmukka suoritetaan, kunnes ohjelma löytää Wend-lauseen ja siirtyy takaisin While-lauseeseen. Jos ehdon arvo on yhä True, silmukka suoritetaan uudestaan.
Toisin kuin Do...Loop-lauseessa, et voi peruuttaa While...Wend-silmukkaa Exit-lauseella. Älä koskaan poistu While...Wend-silmukasta GoTo-lauseella, koska siitä voi seurata käytönaikainen virhe.
Do...Loop-lause on joustavampi kuin While...Wend-lause.
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