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