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
Loopeller
Dostatementblock
[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
LoopStatementblocket mellan satserna Do While och Loop upprepas sÄ lÀnge som villkoret Àr sant.
Do Until villkor = True...statementblock
LoopStatementblocket mellan satserna Do Until och Loop upprepas sÄ lÀnge som villkoret Àr falskt.
Do...statementblock
Loop While villkor = TrueStatementblocket mellan satserna Do While och Loop upprepas sÄ lÀnge som villkoret Àr sant.
Do...statementblock
Loop Until villkor = TrueStatementblocket 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 Dosatser
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