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