Istruzione Do...Loop
Ripete le istruzioni comprese tra Do e Loop finché la condizione specificata rimane o diventa vera.
Sintassi
Do [{While | Until} condizione = True]blocco istruzioni
[Exit Do]blocco istruzioni
Loopoppure
Doblocco istruzioni
[Exit Do]blocco istruzioni
Loop [{While | Until} condizione = True]Parametri/Elementi:
Condizione: espressione di confronto, numerica o a stringa che può essere valutata come vera o falsa.
Blocco istruzioni: istruzioni da ripetere finché la condizione rimane o diventa vera.
L'istruzione Do...Loop esegue un ciclo finché una determinata condizione rimane o diventa vera. La condizione per l'uscita dal ciclo deve essere specificata con l'istruzione Do o Loop. Gli esempi seguenti rappresentano combinazioni valide:
Sintassi
Do While condizione = True...blocco istruzioni
LoopIl blocco di istruzioni compreso tra Do While e Loop viene ripetuto finché la condizione rimane vera.
Do Until condizione = True...blocco istruzioni
LoopIl blocco di istruzioni compreso tra Do Until e Loop viene ripetuto finché la condizione rimane falsa.
Do...blocco istruzioni
Loop While condizione = TrueIl blocco di istruzioni compreso tra Do e Loop viene ripetuto finché la condizione rimane vera.
Do...blocco istruzioni
Loop Until condizione = TrueIl blocco di istruzioni compreso tra Do e Loop viene ripetuto finché la condizione non diventa vera.
Per terminare il ciclo in modo incondizionato, usate l'istruzione Exit Do. Potete aggiungere questa istruzione in qualunque punto del ciclo Do...Loop. Potete inoltre definire una condizione di uscita usando la struttura If...Then come segue:
Do...istruzioni
If condizione = True Then Exit Doistruzioni
Loop...Esempio
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