Do...Loop Statement

Upprepar satserna mellan satserna Do och Loop om villkoret Àr True eller tills villkoret blir True.

Syntax

Do [{While | Until} villkor = True]

statementblock

[Exit Do]

statementblock

Loop

eller

Do

statementblock

[Exit Do]

statementblock

Loop [{While | Until} villkor = True]

Parametrar/element

Villkor: En numerisk- eller strÀnguttrycksjÀmförelse som utvÀrderar True och False.

Statementblock: Satser som du vill upprepa medan eller tills villkoret Àr True.

Satsen Do...Loop kör en loop medan eller tills ett visst villkor uppfylls. Villkoret för att avsluta loopen mÄste anges efter antingen satsen Do eller Loop. Följande exempel Àr giltiga kombinationer:

Syntax

Do While villkor = True

...statementblock

Loop

Statementblocket mellan satserna Do While och Loop upprepas sÄ lÀnge som villkoret Àr sant.

Do Until villkor = True

...statementblock

Loop

Statementblocket mellan satserna Do Until och Loop upprepas sÄ lÀnge som villkoret Àr falskt.

Do

...statementblock

Loop While villkor = True

Statementblocket mellan satserna Do While och Loop upprepas sÄ lÀnge som villkoret Àr sant.

Do

...statementblock

Loop Until villkor = True

Statementblocket mellan satserna Do och Loop upprepas tills villkoret Àr sant.

AnvÀnd satsen Exit Do om du vill avsluta loopen ovillkorligt. Du kan lÀgga till den hÀr satsen var som helst i satsen Do...Loop. Du kan Àven definiera ett avsluta-villkor genom att anvÀnda strukturen If...Then sÄ hÀr:

Do...

satser

If villkor = True Then Exit Do

satser

Loop...

Exempel

Sub ExampleDoLoop

Dim sFile As String

Dim sPath As String

    sPath = "c:\"

    sFile = Dir$( sPath ,22)

    If sFile <> "" Then

        Do

            MsgBox sFile

            sFile = Dir$

        Loop Until sFile = ""

    End If

End Sub