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