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