IBM Lotus Symphony


Instrução While...Wend [Runtime]

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.

Sintaxe:

While Condition [Statement] Wend

Exemplo:

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


Comentários sobre o produto | Documentação adicional | Marcas comerciais