IBM Lotus Symphony


While...Wend-setningen [kjøretid]

Når et program møter et While-uttrykk, tester det betingelsen. Hvis betingelsen er Usann, fortsetter programmet direkte etter Wend-setningen. Hvis betingelsen er Sann, blir sløyfen utført inntil programmet finner Wend, og hopper deretter tilbake til While-setningen. Hvis betingelsen fremdeles er Sann, blir sløyfen utført på nytt.

I motsetning til Do...Loop-setningen, kan du ikke avbryte en While...Wend-sløyfe med Avslutt. Avslutt aldri en While...Wend-sløyfe med GoTo, da dette kan føre til kjøretidsfeil.

En Do...Loop er mer fleksibel enn en While...Wend.

Syntaks:

While-betingelse [Uttrykk] 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,"Tekstkodet"

end sub


Tilbakemelding om produktet | Annen dokumentasjon | Varemerker