Istruzione While... Wend

Modulo
Contenuto
Indice 🔎︎

# Istruzione While...Wend

Quando un programma incontra un'istruzione While, ne verifica la condizione. Se la condizione è Falsa, il programma continua direttamente dopo l'istruzione Wend. Se la condizione è Vera, il ciclo viene eseguito finché il programma non incontra l'istruzione Wend, quindi ritorna all'istruzione While. Se la condizione è ancora Vera, il ciclo viene eseguito nuovamente.

A differenza dell'istruzione Do...Loop, il ciclo While...Wend non può essere annullato con Exit. Evitate di uscire da un ciclo While...Wend con GoTo, perché questa procedura può causare un errore di runtime.

L'uso di Do...Loop è più flessibile ed è perciò consigliato.

## Sintassi:

    While Condizione [Istruzione] Wend

## Esempio:

    Sub EsempioWhileWend

    Dim sTesto As String

    Dim iPassaggio As Integer

        sTesto ="Questo è un breve testo"

        iPassaggio = 1

        while iPassaggio < Len(sTesto)

            If Mid(sText,iRun,1 )<> " " Then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )

            iPassaggio = iPassaggio + 1

        Wend

        MsgBox sTesto,0,"Testo codificato"

    End Sub