Modul
Indhold
Indholdsfortegnelse 🔎︎

# While...Wend-udtryk

Når et program møder en While-sætning, tester det betingelsen. Hvis betingelsen er falsk, fortsætter programmet med sætningen lige efter Wend. Hvis betingelsen er sand, udføres løkken indtil programmet finder Wend, og programudførelsen hopper derefter tilbage til While-sætningen. Hvis betingelsen stadig er sand, udføres løkken igen.

Ulig sætningen Do...Loop, kan du ikke annuller en While...Wend løkke med Exit. Afslut aldrig en While...Wend løkke med GoTo, siden dette kan forårsage en kørselsfejl.

En Do...Loop er mere fleksibel end en While...Wend.

## Syntaks:

    While Condition [Statement] Wend

## Eksempel:

    Sub ExampleWhileWend

    Dim sText As String

    Dim iRun As Integer

        sText ="Dette er en kort tekst"

        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 sText,0,"Tekst indkodet"

    End Sub