LibreOffice 7.4 Hjelp
Når et program møter en While-setning, tester det tilstanden. Hvis betingelsen er Usann, fortsetter programmet direkte etter Wend-uttrykket. Hvis betingelsen er Sann, kjøres loopen til programmet finner Wend og hopper deretter tilbake til While-setningen. Hvis betingelsen fortsatt er Sann, kjøres loopen på nytt.
Unlike the Do...Loop statement, you cannot cancel a While...Wend loop with Exit. Never exit a While...Wend loop with GoTo, since this can cause a run-time error.
En Do...Loop er mer fleksibel enn en While...Wend.
While Condition [statements] Wend
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 kodet"
End Sub