IBM Lotus Symphony


Instrução While...Wend [Tempo de Execução]

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.

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


Feedback do Produto | Documentação Adicional | Marcas Registradas