IBM Lotus Symphony


Instrucción While...Wend [Ejecución]

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.

Sintaxis:

While Condición [Instrucción] Wend

Ejemplo:

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


Comentarios del producto | Documentación adicional | Marcas registradas