Module
Contents
Index 🔎︎

# While...Wend Statement

Cuando un programa atopa una instrucción While, comprueba la condición. Si la condición ye False, el programa continúa direutamente siguiendo la instrucción Wend. Si la condición ye True, el bucle execútase fasta que'l programa atopa Wend y dempués vuelve a la instrucción While. Si la condición sigue siendo True, el bucle vuelve a executase.

Al contrariu qu'el bucle Do...Loop, While...Wend nun pue encaboxase con Colar. Nun sala nunca d'un bucle While...Wend con GoTo, una y bones ello podría provocar un fallu de tiempu d'execución.

Un Do...Loop ye más flexible qu'un While...Wend.

## Sintaxis:

    While Condición [Instrucción] Wend

## Exemplu:

    Sub ExempluWhileWend

    Dim sTestu As String

    Dim iRun As Integer

        sText ="Esto ye un testu curtiu"

        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 sTestu,0,"Testu codificado"

    End Sub