IBM Lotus Symphony
|
Cuando un programa encuentra una instrucción While, comprueba la condición. Si la condición es False, el programa continúa directamente a continuación de la instrucción Wend. Si la condición es True, el bucle se ejecuta hasta que el programa encuentra Wend y, después, vuelve a la instrucción While. Si la condición sigue siendo cierta, el bucle se ejecuta de nuevo.
Al contrario que el bucle Do...Loop, While...Wend no puede cancelarse con Exit. No salga nunca de un bucle While...Wend con GoTo, ya que ello podría provocar un error de tiempo de ejecución.
El uso de Do...Loop es más flexible y, por tanto, más recomendable.
While Condición [Instrucción] Wend
Sub EjemploWhileWend
Dim sTexto As String
Dim iEjec As Integer
sTexto ="Esto es un texto corto"
iEjec = 1
while iRun < Len(sTexto)
if Mid(sTexto,iRun,1 )<> " " then Mid( sTexto ,iRun, 1, Chr( 1 + Asc( Mid(sTexto,iRun,1 )) )
iRun = iRun + 1
Wend
MsgBox sTexto,0,"Texto codificado"
end sub