Istruzione While... Wend

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. Non uscite mai da un ciclo While...Wend con GoTo, poiché 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