IBM Lotus Symphony
|
Quando um programa encontra uma instrução While, testa a condição. Se a condição for False, o programa continua directamente seguindo a instrução Wend. Se a condição for True, o ciclo é executado até que o programa encontre Wend e regresse à instrução While. Se a condição for ainda assim True, o ciclo é executado novamente.
Ao contrário da instrução Do...Loop, não é possível cancelar um ciclo While...Wend com Exit. Nunca saia de um ciclo While...Wend com GoTo, visto que poderá provocar um 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