Πρόταση Do...Loop
Επαναλαμβάνει τις προτάσεις μεταξύ των προτάσεων Do και Loop, όσο η συνθήκη παραμένει True-Αληθής ή έως ότου η συνθήκη γίνει True.
Σύνταξη
Do [{While | Until} συνθήκη = True]
ομάδα προτάσεων
[Exit Do]
ομάδα προτάσεων
Βρόχος
or
Do
ομάδα προτάσεων
[Exit Do]
ομάδα προτάσεων
Loop [{While | Until} συνθήκη = True]
Παράμετροι/στοιχεία
Συνθήκη: Μια σύγκριση, μια αριθμητική παράσταση ή μια παράσταση συμβολοσειράς που αξιολογείται είτε ως True είτε ως False.
Ομάδα προτάσεων: Οι προτάσεις που πρόκειται να επαναληφθούν όσο η συνθήκη είναι ή μέχρι να γίνει True.
Η πρόταση Do...Loop εκτελεί έναν βρόγχο όσο, ή μέχρι, μια συγκεκριμένη συνθήκη να είναι True. Η συνθήκη για έξοδο από τον βρόγχο πρέπει να εισαχθεί μετά την πρόταση Doή τηνLoop. Τα ακόλουθα παραδείγματα αποτελούν έγκυρους συνδυασμούς:
Σύνταξη
Do While συνθήκη = True
...ομάδα προτάσεων
Βρόχος
Η ομάδα προτάσεων μεταξύ των προτάσεων Do While και του Loop επαναλαμβάνεται όσο η συνθήκη παραμένει True.
Do Until συνθήκη = True
...ομάδα προτάσεων
Βρόχος
Η ομάδα προτάσεων μεταξύ των προτάσεων Do Until και Loop επαναλαμβάνεται όσο η συνθήκη είναι false.
Do
...ομάδα προτάσεων
Loop While συνθήκη = True
Η ομάδα προτάσεων μεταξύ των προτάσεων Do και Loop επαναλαμβάνεται όσο η συνθήκη παραμένει true.
Do
...ομάδα προτάσεων
Loop Until συνθήκη = True
Η ομάδα προτάσεων μεταξύ των προτάσεων Do και Loop επαναλαμβάνεται μέχρι η συνθήκη γίνει true.
Η πρόταση Exit Do τερματίζει το βρόχο χωρίς συνθήκες. Αυτή η πρόταση τοποθετείται οπουδήποτε σε μια πρόταση Do...Loop. Μπορείτε να καθορίσετε μια συνθήκη εξόδου χρησιμοποιώντας τη δομή If...Then ως ακολούθως:
Do...
προτάσεις
If συνθήκη = True Then Exit Do
προτάσεις
Loop...
Παράδειγμα
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