IBM Lotus Symphony
|
Keď program zaznamená príkaz While, testuje podmienku. Ak podmienka má hodnotu false, program pokračuje priamo po príkaze Wend. Ak podmienka má hodnotu true, cyklus sa vykonáva dovtedy, kým program nenájde Wend a potom skočí naspäť na príkaz While. Ak má podmienka stále ešte hodnotu true, cyklus sa vykoná opäť.
Na rozdiel od príkazu Do...Loop, nemôžete zrušiť cyklus While...Wend pomocou Exit. Nikdy neukončujte cyklus While...Wend pomocou GoTo, pretože to môže zapríčiniť chybu v chode programu.
Cyklus Do...Loop je pružnejší ako cyklus While...Wend.
While podmienka [príkaz] Wend
Sub Príklad_While_Wend
Dim stext ako typ String
Dim iRun ako typ Integer
sText ="Toto je krátky 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 je kódovaný"
end sub