IBM Lotus Symphony
|
Quando um programa encontra uma instrução While, ele testa a condição. Se a condição for False, o programa continuará seguindo diretamente a instrução Wend. Se a condição for True, o loop será executado até que o programa localize Wend e depois volte novamente para a instrução While. Se a condição ainda for True, o loop será executado novamente.
Diferentemente da instrução Do...Loop, você não pode cancelar um loop While...Wend com Exit. Nunca saia de um loop While...Wend com GoTo, pois isso pode causar erro de tempo de execução.
Um Do...Loop é mais flexível que um 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