Για το επόμενο vba excel μεταβείτε στο επόμενο. Δηλώσεις βρόχου στο VBA. Έργο "Έσοδα από κατάθεση"
Υπάρχουν περιπτώσεις όπου ένα πρόγραμμα VBA απαιτείται να εκτελέσει το ίδιο σύνολο ενεργειών πολλές φορές στη σειρά (δηλαδή, να επαναλάβει το ίδιο μπλοκ κώδικα πολλές φορές). Αυτό μπορεί να γίνει χρησιμοποιώντας βρόχους VBA.
Για δήλωση βρόχου στη Visual Basic
Δομή δήλωσης βρόχου Γιαστη Visual Basic μπορεί να οργανωθεί σε μία από τις δύο μορφές: ως βρόχος Για…Επόμενοή σαν κύκλος Για κάθε.
Κύκλος "Για... Επόμενο"
Κύκλος Για…Επόμενοχρησιμοποιεί μια μεταβλητή που παίρνει διαδοχικά τιμές από ένα δεδομένο εύρος. Με κάθε αλλαγή στην τιμή της μεταβλητής, εκτελούνται οι ενέργειες που περιέχονται στο σώμα του βρόχου. Αυτό είναι εύκολο να γίνει κατανοητό από ένα απλό παράδειγμα:
Για i = 1 έως 10 Σύνολο = Σύνολο + iArray(i) Επόμενο i
Σε αυτόν τον απλό βρόχο Για…Επόμενοχρησιμοποιείται μεταβλητή Εγώ, το οποίο παίρνει διαδοχικά τις τιμές 1, 2, 3, ... 10, και για καθεμία από αυτές τις τιμές εκτελείται ο κώδικας VBA μέσα στον βρόχο. Έτσι, αυτός ο βρόχος αθροίζει τα στοιχεία του πίνακα iArrayσε μια μεταβλητή Σύνολο.
Στο παραπάνω παράδειγμα, το βήμα αύξησης του βρόχου δεν καθορίζεται, έτσι ώστε να αυξηθεί η μεταβλητή ΕγώΑπό το 1 έως το 10 η προεπιλογή είναι αυξητική 1 . Ωστόσο, σε ορισμένες περιπτώσεις είναι απαραίτητο να χρησιμοποιηθούν διαφορετικές τιμές αύξησης για τον βρόχο. Αυτό μπορεί να γίνει χρησιμοποιώντας τη λέξη-κλειδί Βήμα, όπως φαίνεται στο παρακάτω απλό παράδειγμα.
Για d = 0 έως 10 Βήμα 0,1 dΣύνολο = dΣύνολο + d Επόμενο d
Δεδομένου ότι στο παραπάνω παράδειγμα το βήμα αύξησης έχει οριστεί σε 0.1 , μετά τη μεταβλητή dΣύνολογια κάθε επανάληψη του κύκλου παίρνει τις τιμές 0,0, 0,1, 0,2, 0,3, ... 9,9, 10,0.
Για να προσδιορίσετε το βήμα βρόχου στο VBA, μπορείτε να χρησιμοποιήσετε μια αρνητική τιμή, για παράδειγμα, όπως αυτή:
Για i = 10 Προς 1 Βήμα -1 iArray(i) = i Επόμενο i
Εδώ είναι το βήμα της αύξησης -1 , άρα η μεταβλητή Εγώμε κάθε επανάληψη του κύκλου παίρνει τις τιμές 10, 9, 8, ... 1.
Για κάθε βρόχο
Κύκλος Για κάθεμοιάζει με κύκλο Για…Επόμενο, αλλά αντί να κάνετε βρόχο μέσω της ακολουθίας τιμών για τη μεταβλητή μετρητή Για κάθεεκτελεί ένα σύνολο ενεργειών για κάθε αντικείμενο σε μια καθορισμένη ομάδα αντικειμένων. Στο παρακάτω παράδειγμα, χρησιμοποιώντας έναν βρόχο Για κάθεΕμφανίζει όλα τα φύλλα στο τρέχον βιβλίο εργασίας του Excel:
Dim wsheet as sheet for every wsheet in worksheets MsgBox "Sheet Found: " & wSheet.Name Next wSheet
Έξοδος για τελεστή διακοπής βρόχου
Χειριστής Έξοδος γιαχρησιμοποιείται για τη διακοπή του κύκλου. Μόλις αυτή η δήλωση συναντηθεί στον κώδικα, το πρόγραμμα τερματίζει την εκτέλεση του βρόχου και προχωρά στην εκτέλεση των δηλώσεων που βρίσκονται στον κώδικα αμέσως μετά από αυτόν τον βρόχο. Αυτό μπορεί να χρησιμοποιηθεί, για παράδειγμα, για την αναζήτηση μιας συγκεκριμένης τιμής σε έναν πίνακα. Για να το κάνετε αυτό, χρησιμοποιήστε έναν βρόχο για να κοιτάξετε μέσα από κάθε στοιχείο του πίνακα. Μόλις βρεθεί το απαιτούμενο στοιχείο, δεν χρειάζεται να κοιτάξετε τα υπόλοιπα - ο κύκλος διακόπτεται.
Εφαρμογή χειριστή Έξοδος γιααποδεικνύεται στο ακόλουθο παράδειγμα. Εδώ ο βρόχος κάνει βρόχο μέσα από 100 καταχωρήσεις πίνακα και συγκρίνει καθεμία με την τιμή της μεταβλητής dVal. Εάν βρεθεί αντιστοιχία, ο βρόχος διακόπτεται:
Για i = 1 έως 100 Αν dValues(i) = dVal Τότε IndexVal = i Έξοδος για Τέλος Αν Επόμενο i
Do while Loop στη Visual Basic
Κύκλος Κάνετε Ενώεκτελεί ένα μπλοκ κώδικα εφόσον πληρούται μια δεδομένη συνθήκη. Το παρακάτω είναι ένα παράδειγμα της διαδικασίας Υπο, στο οποίο, χρησιμοποιώντας βρόχο Κάνετε ΕνώΟι αριθμοί Fibonacci που δεν υπερβαίνουν το 1000 εμφανίζονται διαδοχικά:
"Η διαδικασία Sub εκτυπώνει αριθμούς Fibonacci που δεν υπερβαίνουν το 1000 Sub Fibonacci() Dim i As Integer "ένας μετρητής που δείχνει τη θέση ενός στοιχείου στην ακολουθία Dim iFib As Integer "αποθηκεύει την τρέχουσα τιμή της ακολουθίας Dim iFib_Next As Integer "αποθηκεύει το επόμενη τιμή της ακολουθίας Dim iStep As Integer "αποθηκεύει το μέγεθος της επόμενης αύξησης "αρχικοποιήστε τις μεταβλητές i και iFib_Next i = 1 iFib_Next = 0 "ο βρόχος Do while θα εκτελεστεί έως ότου η τιμή του "τρέχοντος αριθμού Fibonacci υπερβεί το 1000 Do Ενώ το iFib_Next< 1000 If i = 1 Then "особый случай для первого элемента последовательности iStep = 1 iFib = 0 Else "сохраняем размер следующего приращения перед тем, как перезаписать "текущее значение последовательности iStep = iFib iFib = iFib_Next End If "выводим текущее число Фибоначчи в столбце A активного рабочего листа "в строке с индексом i Cells(i, 1).Value = iFib "вычисляем следующее число Фибоначчи и увеличиваем индекс позиции элемента на 1 iFib_Next = iFib + iStep i = i + 1 Loop End Sub
Στο παράδειγμα που δίνεται, η συνθήκη iFib_Next< 1000 ελέγχεται στην αρχή του κύκλου. Επομένως, εάν η πρώτη τιμή iFib_NextΑν ήταν πάνω από 1000, τότε ο βρόχος δεν θα εκτελούνταν ούτε μία φορά.
Ένας άλλος τρόπος για την υλοποίηση ενός βρόχου Κάνετε Ενώ– τοποθετήστε τη συνθήκη όχι στην αρχή, αλλά στο τέλος του βρόχου. Σε αυτήν την περίπτωση, ο βρόχος θα εκτελεστεί τουλάχιστον μία φορά, ανεξάρτητα από το αν η συνθήκη είναι αληθής.
Σχηματικά ένας τέτοιος κύκλος Κάνετε Ενώμε τον έλεγχο της συνθήκης στο τέλος θα μοιάζει με αυτό:
Κάντε...Loop while iFib_Next< 1000
Κάντε μέχρι βρόχου στη Visual Basic
Κύκλος Κάντε μέχριπολύ παρόμοια με έναν κύκλο Κάνετε Ενώ: Το μπλοκ κώδικα στο σώμα του βρόχου εκτελείται ξανά και ξανά μέχρι να ικανοποιηθεί η καθορισμένη συνθήκη (το αποτέλεσμα της έκφρασης υπό όρους είναι Αληθής). Στην παρακάτω διαδικασία Υποχρησιμοποιώντας βρόχο Κάντε μέχριεξάγει τιμές από όλα τα κελιά σε μια στήλη ΕΝΑφύλλο εργασίας μέχρι να εμφανιστεί ένα κενό κελί στη στήλη:
IRow = 1 Do Until IsEmpty(Cells(iRow, 1)) "Η τιμή του τρέχοντος κελιού αποθηκεύεται στον πίνακα dCellValues dCellValues(iRow) = Cells(iRow, 1).Value iRow = iRow + 1 Loop
Στο παραπάνω παράδειγμα η συνθήκη IsEmpty(Κελιά(iRow, 1))που βρίσκεται στην αρχή της κατασκευής Κάντε μέχρι, επομένως ο βρόχος θα εκτελεστεί τουλάχιστον μία φορά εάν το πρώτο κελί που λήφθηκε δεν είναι κενό.
Ωστόσο, όπως φάνηκε στα παραδείγματα βρόχου Κάνετε Ενώ, σε ορισμένες περιπτώσεις θέλετε ο βρόχος να εκτελείται τουλάχιστον μία φορά, ανεξάρτητα από το αρχικό αποτέλεσμα της έκφρασης υπό όρους. Σε αυτήν την περίπτωση, η υπό όρους έκφραση θα πρέπει να τοποθετηθεί στο τέλος του βρόχου, ως εξής:
Κάντε ... Βρόχο μέχρι να είναι κενό (Κελιά(iRow, 1))
Δηλώσεις βρόχου
Σε VBA Υπάρχουν δύο κύριοι τύποι βρόχων: βρόχοι με μετρητή (παραμετρικός) και βρόχοι με συνθήκη (επαναληπτικοί).
Οι βρόχοι μετρητών χρησιμοποιούνται σε περιπτώσεις όπου είναι απαραίτητο να εκτελεστούν ορισμένες ενέργειες ορισμένες φορές.
Οι βρόχοι υπό όρους χρησιμοποιούνται όταν ορισμένες ενέργειες σε ένα πρόγραμμα πρέπει να επαναληφθούν μέχρι να εκπληρωθεί μια συγκεκριμένη συνθήκη.
Βρόχοι με παράμετροΓια…Επόμενο
Δομή κύκλου:
Για Παράμετρος_κύκλου = Αρχική_ΤιμήΠρος την Τελική_Τιμή
[Βήμα Βήμα]
χειριστές
[Έξοδος για]
Επόμενο [Κύκλος_παράμετρος]
όπου Για λέξη-κλειδί VBA (από), υποδεικνύοντας την αρχή του κύκλου.
Η μεταβλητή loop_parameter ορίζεται ως μετρητής βρόχου.
Initial_Value ένας αριθμός που καθορίζει την αρχική τιμή της παραμέτρου βρόχου.
Προς λέξη-κλειδί VBA (πριν), διαίρεση
Initial_Value και Final_Knowledge.
Final_Value ένας αριθμός που καθορίζει την τιμή της παραμέτρου βρόχου,
Στην οποία τελειώνει ο κύκλος.
Λέξη-κλειδί βήμα VBA (βήμα) χρησιμοποιείται για
Προδιαγραφές βήματος βρόχου, προαιρετικό όρισμα.
Βήμα έναν αριθμό που καθορίζει το βήμα του κύκλου, π.χ. την αξία με την οποία
Αυξάνει (ή μειώνει) την τιμή της παραμέτρου
Κάντε ποδήλατο σε κάθε βήμα. Αυτός ο αριθμός θα μπορούσε να είναι
Αρνητικός;
Έξοδος για χειριστής πρώιμης εξόδου από τον βρόχο (προαιρετικό).
Επόμενο λέξη-κλειδί VBA (επόμενο) που δηλώνει
Τέλος του κύκλου.
Εργασία με κύκλο:
Βήμα 1 Πρώτα, προσδιορίζεται η παράμετρος βρόχου και υπολογίζονται και αποθηκεύονται οι αρχικές και τελικές τιμές αυτής της μεταβλητής.
Βήμα 2 Στην παράμετρο βρόχου εκχωρείται μια αρχική τιμή.
Βήμα 3 Η αρχική τιμή της παραμέτρου βρόχου συγκρίνεται με την τελική τιμή.
Εάν η παράμετρος βρόχου είναι μεγαλύτερη από την τελική τιμή, το πρόγραμμα εξέρχεται αμέσως από τον βρόχο και μεταβαίνει στη γραμμή κώδικα που ακολουθεί τον βρόχο.
Βήμα 4 Το σώμα του βρόχου εκτελείται.
Βήμα 5 Μετά την εκτέλεση του σώματος του βρόχου, η επόμενη τιμή εκχωρείται στην παράμετρο βρόχου. Μεταβείτε στο βήμα 3.
Σημείωση.
1. Εάν χρησιμοποιείται λέξη-κλειδίΒήμα , τότε η παράμετρος βρόχου αλλάζει σύμφωνα με τον αριθμό που καθορίζεται μετά από αυτήν τη λέξη. Αν η λέξηΒήμα απουσιάζει, τότε η τιμή του βήματος είναι ίση με ένα.
Παράδειγμα 1.
Για I = 0 έως 10 Βήμα 2 (Τιμή I θα αυξηθεί κατά 2)
2. Για...Επόμενο βρόχο μπορεί να τερματιστεί νωρίς όταν επιτευχθεί οποιαδήποτε προϋπόθεση. Για να το κάνετε αυτό, στη σωστή θέση στον βρόχο πρέπει να τοποθετήσετε τον χειριστήΈξοδος για.
Παράδειγμα 2.
Dim S ως ακέραιος αριθμός
Dim j Ως ακέραιος αριθμός
S=2
Για j = 1 έως 10
S = S + j
Αν S > 6 Τότε
Έξοδος για (Έξοδος από τον βρόχο εάν η τιμή S > 6)
Τέλος εαν
Επόμενο j
MsgBox(S)
Βρόχοι υπό όρους (Επαναληπτικοί)
Εάν κάποια ενέργεια (πολλές ενέργειες) πρέπει να εκτελεστεί πολλές φορές, αλλά δεν είναι γνωστό εκ των προτέρων πόσες φορές και αυτό εξαρτάται από κάποια συνθήκη, τότε θα πρέπει να χρησιμοποιήσετε έναν βρόχο με μια προϋπόθεση ή μια μετασυνθήκη.
Σε VBA υπάρχουν δύο κύριοι βρόχοι DO...LOOP με μια συνθήκη που εισάγεται από μια λέξη-κλειδίΕνώ , και με την συνθήκη που εισάγεται από τη λέξη-κλειδίΜέχρι . Και τα δύο μπορούν να είναι με προαπαιτούμενο ή εκ των υστέρων.
Σύνταξη:
Που λέξη-κλειδί (κάνω);
Ενώ λέξη-κλειδί (ακόμα)
Μέχρι λέξη-κλειδί (μέχρι);
Βρόχος μια λέξη-κλειδί που υποδεικνύει το τέλος του κύκλου·
<условие>μια λογική έκφραση της οποίας η αλήθεια ελέγχεται
Στην αρχή κάθε εκτέλεσης του σώματος βρόχου.
<тело_цикла>αυθαίρετη ακολουθία τελεστών.
Κάνετε...Κατά την κατασκευή διαβάζει: κάντε όσο πληρούται η προϋπόθεση. Στο σχέδιο Do...While For
Το Do...Until της κατασκευής λέει: κάντε μέχρι να εκπληρωθεί η προϋπόθεση. Στο σχέδιοΚάνετε... Μέχρι Για να αυξήσετε το βήμα, θα πρέπει να γράψετε έναν ειδικό τελεστή, γιατί σε αυτό, σε αντίθεση με το σχέδιοΓια , αυτό δεν γίνεται αυτόματα.
Συνθήκη που γράφεται μετά τη λέξη-κλειδίΜέχρι , ελέγχεται στο τέλος κάθε επανάληψης (μετά την εκτέλεση του σώματος του βρόχου). Σημειώστε ότι δεν λειτουργεί ακριβώς με τον ίδιο τρόπο όπως στον βρόχοΕνώ . Εάν η συνθήκη είναι αληθής (Αληθής ), τότε ο βρόχος τελειώνει. Εάν δεν πληρούται η προϋπόθεση (είναι ψευδήςΨευδής ), τότε το σώμα του βρόχου εκτελείται ξανά.
Παράδειγμα 1.
Διατύπωση του προβλήματος. Υπολογίστε το άθροισμα μιας πεπερασμένης σειράς χρησιμοποιώντας μια διαδικασία υπορουτίνας.
Τεχνολογία εκτέλεσης εργασιών:
1. Αρχικά δεδομένα: i Ζ
Αποτέλεσμα: S R .
2. Πληκτρολογήστε την ακόλουθη προσαρμοσμένη διαδικασία στην τυπική λειτουργική μονάδα έργου χρησιμοποιώντας έναν βρόχο με μια προϋπόθεσηΕνώ:
Υπό σύνοψη()
Dim S ως ακέραιος αριθμός
Dim i Ως ακέραιος
S=0
i=1
Κάνετε Ενώ i<= 10
S = S + i^2
i = i + 1
Βρόχος
MsgBox(S)
End Sub
3. Πληκτρολογήστε την ακόλουθη προσαρμοσμένη διαδικασία στην τυπική λειτουργική μονάδα έργου χρησιμοποιώντας έναν βρόχο με μια προϋπόθεσηΜέχρι:
Υπό σύνοψη()
Dim S ως ακέραιος αριθμός
Dim i Ως ακέραιος
S=0
i=1
Κάντε μέχρι i > 10
S = S + i^2
i = i + 1
Βρόχος
MsgBox(S)
End Sub
4 Πληκτρολογήστε την ακόλουθη προσαρμοσμένη διαδικασία στην τυπική λειτουργική μονάδα έργου χρησιμοποιώντας έναν βρόχο με μετασυνθήκηΕνώ:
Υπό σύνοψη()
Dim S ως ακέραιος αριθμός
Dim i Ως ακέραιος
S=0
i=1
S = S + i^2
i = i + 1
Βρόχος Ενώ i<= 10
MsgBox(S)
End Sub
5 Πληκτρολογήστε την ακόλουθη προσαρμοσμένη διαδικασία στην τυπική λειτουργική μονάδα έργου χρησιμοποιώντας έναν βρόχο με μετασυνθήκηΜέχρι:
Υπό σύνοψη()
Dim S ως ακέραιος αριθμός
Dim i Ως ακέραιος
S=0
i=1
S = S + i^2
i = i + 1
Βρόχος μέχρι i > 10
MsgBox(S)
End Sub
Μπορεί να υπάρχει μια κατάσταση όπου πρέπει να εκτελέσετε ένα μπλοκ κώδικα πολλές φορές. Γενικά, οι εντολές εκτελούνται διαδοχικά: η πρώτη εντολή σε μια συνάρτηση εκτελείται πρώτη, μετά η δεύτερη κ.λπ.
Οι γλώσσες προγραμματισμού παρέχουν διαφορετικές δομές ελέγχου που επιτρέπουν πιο σύνθετες διαδρομές εκτέλεσης.
Η πρόταση βρόχου μας επιτρέπει να εκτελέσουμε μια εντολή ή μια ομάδα εντολών πολλές φορές. Παρακάτω είναι μια γενική άποψη μιας δήλωσης βρόχου στο VBA.
Η VBA παρέχει τους ακόλουθους τύπους βρόχων για να χειριστεί τις απαιτήσεις βρόχου. Κάντε κλικ στους παρακάτω συνδέσμους για να ελέγξετε τα στοιχεία τους.
για βρόχο
Ο βρόχος for είναι μια δομή ελέγχου επανάληψης που επιτρέπει σε έναν προγραμματιστή να γράψει αποτελεσματικά έναν βρόχο που πρέπει να εκτελεστεί ορισμένες φορές.
Σύνταξη
Παρακάτω είναι η σύνταξη του βρόχου for στο VBA.
Για μετρητή = έναρξη Προς λήξη .... .... Επόμενο
Διάγραμμα ροής
Παρακάτω είναι η ροή ελέγχου σε λειτουργία βρόχου -
- Το πρώτο βήμα έχει ολοκληρωθεί. Αυτό το βήμα σάς επιτρέπει να αρχικοποιήσετε οποιεσδήποτε μεταβλητές ελέγχου βρόχου και να αυξήσετε τη μεταβλητή μετρητή βημάτων.
- Δεύτερον, αξιολογείται η κατάσταση. Εάν ισχύει, εκτελείται το σώμα του βρόχου. Εάν είναι false, το σώμα του βρόχου δεν εκτελείται και η ροή ελέγχου μετακινείται στην επόμενη πρόταση αμέσως μετά τον βρόχο For.
- Μετά την εκτέλεση του βρόχου For, η ροή ελέγχου μεταβαίνει στην επόμενη πρόταση. Αυτή η δήλωση σάς επιτρέπει να ενημερώσετε τυχόν μεταβλητές ελέγχου βρόχου. Ενημερώνεται με βάση την τιμή του μετρητή βημάτων.
- Η κατάσταση αξιολογείται τώρα ξανά. Εάν αληθεύει, ο βρόχος εκτελείται και η διαδικασία επαναλαμβάνεται (σώμα βρόχου, μετά αύξηση βήματος και μετά συνθήκη ξανά). Μόλις η συνθήκη γίνει ψευδής, ο βρόχος For τελειώνει.
παράδειγμα
Προσθέστε ένα κουμπί και προσθέστε την παρακάτω λειτουργία.
Private Sub Constant_demo_Click() Dim a As Integer a = 10 For i = 0 To Step 2 MsgBox "The value is i is: " & i Next End Sub
Όταν ο παραπάνω κώδικας μεταγλωττιστεί και εκτελεστεί, παράγει την ακόλουθη έξοδο.
Η τιμή είναι i είναι: 0
Η τιμή είναι i είναι: 2
Η τιμή είναι i είναι: 4
Η τιμή είναι i είναι: 6
Η τιμή είναι i είναι: 8
Η τιμή είναι i είναι: 10
Εκτελεί μια ακολουθία εντολών πολλές φορές και συντομεύει τον κώδικα που ελέγχει τη μεταβλητή βρόχου.
για ... βρόχο
Κάθε βρόχος χρησιμοποιείται για την εκτέλεση μιας δήλωσης ή μιας ομάδας εντολών σε κάθε στοιχείο σε έναν πίνακα ή μια συλλογή.
Για κάθε βρόχο είναι παρόμοιο με το For Loop. Ωστόσο, ο βρόχος εκτελείται για κάθε στοιχείο του πίνακα ή της ομάδας. Επομένως, ο μετρητής βημάτων δεν θα υπάρχει σε αυτόν τον τύπο βρόχου. Χρησιμοποιείται κυρίως με πίνακες ή χρησιμοποιείται σε περιβάλλον αντικειμένου σύστημα αρχείωννα λειτουργήσει αναδρομικά.
Σύνταξη
Παρακάτω είναι η σύνταξη του For Every loop στο VBA.
Για κάθε στοιχείο στην ομάδα....Επόμενο
παράδειγμα
Private Sub Constant_demo_Click() "fruits is a array fruits = Array("μήλο", "πορτοκάλι", "cherries") Dim fruitnames As Variant "reating using for each loop. Για κάθε είδος σε φρούτα ονόματα φρούτων = ονόματα φρούτων & είδη & Chr(10) Επόμενο MsgBox ονόματα φρούτων Τέλος υπο
Όταν εκτελεστεί ο παραπάνω κώδικας, εκτυπώνει όλα τα ονόματα των φρούτων με ένα στοιχείο σε κάθε γραμμή.
μήλο
πορτοκάλι
κεράσια
Αυτό εκτελείται εάν υπάρχει τουλάχιστον ένα στοιχείο στην ομάδα και επαναλαμβάνεται για κάθε στοιχείο της ομάδας.
ενώ..wend loop
Σε έναν βρόχο while while ... Wend, εάν η συνθήκη είναι True, όλες οι εντολές εκτελούνται μέχρι να συναντηθεί η λέξη-κλειδί Wend.
Εάν η συνθήκη είναι ψευδής, ο βρόχος τελειώνει και το στοιχείο ελέγχου μετακινείται στην επόμενη πρόταση μετά τη λέξη-κλειδί Wend.
Σύνταξη
Παρακάτω είναι η σύνταξη του βρόχου while..Wend στο VBA.
Ενώ συνθήκη(ες) ... Wend
Διάγραμμα ροής
παράδειγμα
Private Sub Constant_demo_Click() Dim Counter: Counter = 10 while Counter< 15 " Test value of Counter. Counter = Counter + 1 " Increment Counter. msgbox "The Current Value of the Counter is: " & Counter Wend " While loop exits if Counter Value becomes 15. End Sub
Όταν εκτελεστεί ο παραπάνω κώδικας, θα εμφανίσει τα ακόλουθα στο πεδίο μηνύματος.
Η τρέχουσα τιμή του μετρητή είναι: 11
Η τρέχουσα τιμή του μετρητή είναι: 12
Η τρέχουσα τιμή του μετρητή είναι: 13
Η τρέχουσα τιμή του μετρητή είναι: 14
Η τρέχουσα τιμή του μετρητή είναι: 15
Αυτό ελέγχει την κατάσταση πριν από την εκτέλεση του σώματος του βρόχου.
do..while βρόχος
Ένας βρόχος Do ... while χρησιμοποιείται όταν θέλουμε να επαναλάβουμε ένα σύνολο εντολών ενώ μια συνθήκη είναι αληθής. Η συνθήκη μπορεί να ελεγχθεί στην αρχή του βρόχου ή στο τέλος του βρόχου.
Σύνταξη
Παρακάτω είναι η σύνταξη του βρόχου Do...While στο VBA.
Συνθήκη Do while......Loop
Διάγραμμα ροής
παράδειγμα
Το παρακάτω παράδειγμα χρησιμοποιεί έναν βρόχο Do ... while για να ελέγξει την κατάσταση στην αρχή του βρόχου. Οι δηλώσεις εντός του βρόχου εκτελούνται μόνο εάν η συνθήκη γίνει True.
Private Sub Constant_demo_Click() Do while i< 5 i = i + 1 msgbox "The value of i is: " & i Loop End Sub
Η τιμή του i είναι: 1
Η τιμή του i είναι: 2
Η τιμή του i είναι: 3
Η τιμή του i είναι: 4
Η τιμή του i είναι: 5
Εναλλακτική σύνταξη
Υπάρχει επίσης μια εναλλακτική σύνταξη για το Do ... while loop που ελέγχει την κατάσταση στο τέλος του βρόχου. Η κύρια διαφορά μεταξύ αυτών των δύο συντακτικών εξηγείται στο ακόλουθο παράδειγμα.
Κάνετε ... ... Κατάσταση βρόχου ενώ
παράδειγμα
Το ακόλουθο παράδειγμα χρησιμοποιεί έναν βρόχο Do ... while για να ελέγξει την κατάσταση στο τέλος του βρόχου. Οι δηλώσεις εντός ενός βρόχου εκτελούνται τουλάχιστον μία φορά, ακόμα κι αν η συνθήκη είναι False.
Private Sub Constant_demo_Click() i = 10 Do i = i + 1 MsgBox "Η τιμή του i είναι: " & i Loop ενώ i< 3 "Condition is false.Hence loop is executed once. End Sub
Όταν εκτελεστεί ο παραπάνω κώδικας, εκτυπώνει την ακόλουθη έξοδο σε ένα πλαίσιο μηνύματος.
Η τιμή του i είναι: 11
Οι εντολές do..While θα εκτελούνται εφόσον η συνθήκη είναι True. (Δηλ.) Ο βρόχος πρέπει να επαναληφθεί έως ότου η συνθήκη είναι False.
do..intil loop
Ο βρόχος do ... intil δεν θα χρησιμοποιηθεί όταν θέλουμε να επαναλάβουμε ένα σύνολο εντολών ενώ η συνθήκη είναι false. Η συνθήκη μπορεί να ελεγχθεί στην αρχή του βρόχου ή στο τέλος του βρόχου.
Σύνταξη
Παρακάτω είναι η σύνταξη του βρόχου Do..Until στο VBA.
Κάνετε Μέχρι την προϋπόθεση ... ... Βρόχο
Διάγραμμα ροής
παράδειγμα
Το παρακάτω παράδειγμα χρησιμοποιεί το Do... Before Loop για να ελέγξει μια συνθήκη στην αρχή του βρόχου. Οι δηλώσεις εντός του βρόχου εκτελούνται μόνο εάν η συνθήκη είναι ψευδής. Βγαίνει από τον βρόχο όταν η συνθήκη γίνει αληθής.
Private Sub Constant_demo_Click() i = 10 Do Μέχρι i>15 "Η συνθήκη είναι False. Ως εκ τούτου, ο βρόχος θα εκτελεστεί i = i + 1 msgbox ("Η τιμή του i είναι: " & i) Loop End Sub
Όταν εκτελεστεί ο παραπάνω κώδικας, εκτυπώνει την ακόλουθη έξοδο σε ένα πλαίσιο μηνύματος.
Η τιμή του i είναι: 11
Η τιμή του i είναι: 12
Η τιμή του i είναι: 13
Η τιμή του i είναι: 14
Η τιμή του i είναι: 15
Η τιμή του i είναι: 16
Εναλλακτική σύνταξη
Υπάρχει επίσης μια εναλλακτική σύνταξη, Do... Before Loop, η οποία ελέγχει τη συνθήκη στο τέλος του βρόχου. Η κύρια διαφορά μεταξύ αυτών των δύο συντακτικών εξηγείται από το ακόλουθο παράδειγμα.
Κάντε ... ... Βρόχο μέχρι την κατάσταση
Διάγραμμα ροής
παράδειγμα
Το παρακάτω παράδειγμα χρησιμοποιεί το Do...Before a loop για να ελέγξει μια συνθήκη στο τέλος του βρόχου. Οι δηλώσεις εντός ενός βρόχου εκτελούνται τουλάχιστον μία φορά, ακόμη και αν η συνθήκη είναι True.
Private Sub Constant_demo_Click() i = 10 Do i = i + 1 msgbox "The value of i is: " & i Loop Until i more15 "Condition is True.Επομένως ο βρόχος εκτελείται μία φορά. End Sub
Όταν εκτελεστεί ο παραπάνω κώδικας, εκτυπώνει την ακόλουθη έξοδο σε ένα πλαίσιο μηνύματος.
Η τιμή του i είναι: 11
Οι δηλώσεις do..Until θα εκτελούνται εφόσον η συνθήκη είναι False. (Δηλ.) Ο βρόχος πρέπει να επαναληφθεί μέχρι να είναι αληθής η συνθήκη.
Αρχεία ελέγχου κύκλου
Οι δηλώσεις ελέγχου βρόχου αλλάζουν την εκτέλεση από την κανονική τους ακολουθία. Όταν η εκτέλεση εγκαταλείπει το πεδίο, όλες οι άλλες εντολές βρόχου δεν εκτελούνται.
Δήλωση ελέγχου και περιγραφή
Έξοδος χειριστή
Το Exit for χρησιμοποιείται όταν θέλουμε να βγούμε από το For Loop με βάση ορισμένα κριτήρια. Όταν εκτελείται το Exit For, ο έλεγχος μετακινείται στην επόμενη δήλωση αμέσως μετά τον βρόχο For.
Σύνταξη
Παρακάτω είναι η σύνταξη Exit For Statement στο VBA.
Διάγραμμα ροής
παράδειγμα
Το παρακάτω παράδειγμα χρησιμοποιεί το Exit For. Εάν ο μετρητής φτάσει στο 4, ο βρόχος For τελειώνει και ο έλεγχος μετακινείται στην επόμενη δήλωση αμέσως μετά τον βρόχο For.
Private Sub Constant_demo_Click() Dim a As Integer a = 10 Για i = 0 Σε ένα Βήμα 2 "i είναι η μεταβλητή μετρητή και προσαυξάνεται κατά 2 MsgBox ("Η τιμή είναι i είναι: " & i) Αν i = 4 Τότε i = i * 10 "Αυτό εκτελείται μόνο εάν i=4 MsgBox ("Η τιμή είναι i είναι: " & i) Έξοδος για "Έξοδος όταν i=4 Τέλος Αν Επόμενο Τέλος Υπο
Όταν εκτελεστεί ο παραπάνω κώδικας, εκτυπώνει την ακόλουθη έξοδο στο πλαίσιο μηνύματος.
Η τιμή είναι i είναι: 0
Η τιμή είναι i είναι: 2
Η τιμή είναι i είναι: 4
Η τιμή είναι i είναι: 40
Τερματίζει μια δήλωση βρόχου For και μεταφέρει την εκτέλεση στη δήλωση αμέσως μετά τον βρόχο
Έξοδος Do
Η δήλωση Exit Do χρησιμοποιείται όταν θέλουμε να βγούμε από το Do Loops με βάση ορισμένα κριτήρια. Μπορεί να χρησιμοποιηθεί και στους βρόχους Do Do...While και Do...Before.
Όταν εκτελείται το Exit Do, ο έλεγχος περνά στην επόμενη δήλωση αμέσως μετά το Do Loop.
Σύνταξη
Παρακάτω είναι η σύνταξη της δήλωσης Exit Do στο VBA.
παράδειγμα
Το παρακάτω παράδειγμα χρησιμοποιεί το Exit Do. Εάν ο μετρητής φτάσει στο 10, η γραμμή εξόδου Do τερματίζεται και ο έλεγχος περνά στην επόμενη δήλωση αμέσως μετά τον βρόχο For.
Private Sub Constant_demo_Click() i = 0 Do while i<= 100 If i >10 Στη συνέχεια, Exit Do " Ο βρόχος εξέρχεται εάν i>10 End If MsgBox ("Η τιμή του i είναι: " & i) i = i + 2 Loop End Sub
Όταν εκτελεστεί ο παραπάνω κώδικας, εκτυπώνει την ακόλουθη έξοδο σε ένα πλαίσιο μηνύματος.
Η τιμή του i είναι: 0
Η τιμή του i είναι: 2
Η τιμή του i είναι: 4
Η τιμή του i είναι: 6
Η τιμή του i είναι: 8
Η τιμή του i είναι: 10
Ολοκληρώνει μια δήλωση Do while και μεταφέρει την εκτέλεση στη δήλωση αμέσως μετά τον βρόχο
Εργαστηριακή εργασία για τα βασικά του προγραμματισμού
2.1. Πίνακας συναρτήσεων που αναπαριστώνται αναλυτικά
και συγκλίνουν κοντά
Στόχος της εργασίας
· Εμπέδωση θεωρητικών γνώσεων για τα βασικά της οργάνωσης διακλαδώσεων και κυκλικών δομών.
· Απόκτηση πρακτικών δεξιοτήτων προγραμματισμού με χρήση διακλαδώσεων και κυκλικών δομών στο σύστημα της Visual Basic.
Υπάρχουν τρεις τύποι εντολών βρόχου στη VB:
κύκλος μέτρησης: Για...Στο...Επόμενο
βρόχοι με προϋποθέσεις: Do while...Loop, Do Until...Loop, When...WEnd
· βρόχοι με μετασυνθήκες: Do...Loop while, Do...Loop Μέχρι.
Βρόχος μέτρησης – σας επιτρέπει να περιηγηθείτε σε ένα σύνολο δηλώσεων έναν καθορισμένο αριθμό φορών. Η σύνταξή του είναι η εξής:
Για μετρητής = ΑρχήΠρος την τέλος
[χειριστές]
[χειριστές]
Επόμενο [ μετρητής]
Παράμετρος μετρητήςείναι μια αριθμητική μεταβλητή (ακέραιος, πραγματικός τύπος ή Ημερομηνία, Παραλλαγή, Τύπος νομίσματος) που προσαυξάνεται αυτόματα μετά από κάθε επανάληψη. Αρχική τιμή μετρητήςίσο με την παράμετρο Αρχή,και η τελική παράμετρος - τέλος.Εάν δεν καθορίζεται, το βήμα θεωρείται ίσο με 1· η τιμή του βήματος μπορεί να αλλάξει. Μπορεί να είναι θετικός ή αρνητικός αριθμός.
Υπάρχουν τέσσερις συντακτικές κατασκευές του Do....Loop:
Οι δηλώσεις μεταξύ των λέξεων-κλειδιών Do... Loop εκτελούνται καθορισμένο αριθμό φορών ανάλογα με τη συνθήκη. Για παράδειγμα, στο ακόλουθο τμήμα προγράμματος, όταν C = 100, η συνθήκη θα ικανοποιηθεί και ο βρόχος θα εισαχθεί. Μέσα στον βρόχο καλείται η διαδικασία και η τιμή του C μειώνεται κατά 1. Στη συνέχεια ελέγχεται ξανά η συνθήκη (C > 0) και οι τελεστές βρόχου εκτελούνται ξανά (θα εκτελεστούν 100 φορές συνολικά), έως ότου C = 0. Όταν η συνθήκη C > 0 γίνει ψευδής και ο βρόχος σταματήσει.
Κάντε Ενώ C > 0
Το ίδιο τμήμα προγράμματος που εκτελείται χρησιμοποιώντας έναν βρόχο με μια προϋπόθεση στη σύνταξη 2:
Σε αυτήν την περίπτωση, ο βρόχος λειτουργεί όσο η συνθήκη είναι False, σε αντίθεση με την προηγούμενη περίπτωση, δηλαδή συνεχίζει πρινεκπλήρωση της συνθήκης C = 0.
Οι προτάσεις βρόχου 3 και 4 είναι πολύ παρόμοιες στη σύνταξη με τις δύο πρώτες, εκτός από τη συνθήκη Δενυπολογίζεται μέχρι να εκτελεστεί ο βρόχος τουλάχιστον μία φορά.
Αυτές οι συντάξεις βρόχου μπορούν να χρησιμοποιήσουν τις δηλώσεις εξόδου βρόχου άνευ όρων Exit For και Exit Do για να μεταφέρουν τον έλεγχο στον τελεστή πίσω από τον βρόχο. Για παράδειγμα, στο ακόλουθο τμήμα προγράμματος, εάν η αρχική τιμή του C είναι >50, τότε ο βρόχος θα σταματήσει αμέσως.
Κάντε μέχρι το C<= 0
MsgBox "Έναρξη" η τιμή είναι μεγαλύτερη από την αποδεκτή", "Σφάλμα εισαγωγής"
Ο βρόχος while...Wend χρησιμοποιήθηκε στις πρώτες εκδόσεις της Visual Basic. Η σύνταξή του είναι η εξής:
Ενώ<условие>
<Операторы>
Σε αντίθεση με τον βρόχο Do..Loop, ο βρόχος while ..Wend δεν έχει δεύτερη επιλογή στην οποία η συνθήκη ελέγχεται στο τέλος του βρόχου. Επιπλέον, δεν υπάρχει δήλωση εξόδου βρόχου για αυτό, όπως το Exit Do.
VBA. Οργάνωση κύκλων.
Οι δηλώσεις βρόχου χρησιμοποιούνται για την επανάληψη μιας ενέργειας ή μιας ομάδας ενεργειών καθορισμένο αριθμό φορές. Ο αριθμός των επαναλήψεων (επαναλήψεις βρόχου) μπορεί να προκαθοριστεί ή να υπολογιστεί.
Το VBA υποστηρίζει δύο τύπους δομών βρόχου:
- Βρόχοι με σταθερό αριθμό επαναλήψεων ( αντισταθμισμένοι βρόχοι).
- Βρόχοι με απροσδιόριστο αριθμό επαναλήψεων ( βρόχους υπό όρους).
Για όλους τους τύπους κύκλων χρησιμοποιείται η έννοιασώμα βρόχου , το οποίο ορίζει ένα μπλοκ εντολών που περικλείεται μεταξύ των εντολών έναρξης και τέλους του βρόχου. Κάθε επανάληψη της εκτέλεσης των εντολών του σώματος του βρόχου καλείταιεπανάληψη
Σταθεροί κύκλοι
Η VBA παρέχει δύο δομές ελέγχου για την οργάνωση ενός σταθερού βρόχου: Για ... Επόμενο (βρόχος με μετρητή) και Για Κάθε ... Επόμενο (βρόχος με απαρίθμηση).
Χειριστής Για...Επόμενο Αυτός είναι ένας τυπικός βρόχος μετρητή που εκτελεί έναν καθορισμένο αριθμό επαναλήψεων. Η σύνταξη της πρότασης For...Next είναι:
Για<счетчик> = <начЗначение>Οτι<конЗначение>
<блок операторов>
Επόμενο [<счетчик>]
Ένα παράδειγμα χρήσης του τελεστή For...Next.
Καταχώριση 1. Για … Επόμενος χειριστής
ΕΡΓΑΣΙΑ: Δημιουργήστε ένα πρόγραμμα που λαμβάνει δύο αριθμούς από τον χρήστη.
Προσθέτει όλους τους αριθμούς στο εύρος που καθορίζεται από αυτούς τους δύο αριθμούς και στη συνέχεια
Εμφανίζει το ποσό που προκύπτει.
Υποδείγμα 7()
Dim i Ως ακέραιος μετρητής κύκλου
Dim sStart «αρχική τιμή μετρητή
Εξασθενεί η τιμή του μετρητή τερματισμού sEnd
Dim sSum As Long ‘προκύπτον άθροισμα
sStart = InputBox ("Εισαγάγετε τον πρώτο αριθμό:")
sEnd = InputBox ("Εισαγάγετε τον δεύτερο αριθμό:")
sSum = 0
Για i = CINT(sStart) To Cint(sEnd)
sSum = sSum + i
Επόμενο i
MsgBox "Το άθροισμα των αριθμών από " & sStart & " έως " & Send & " είναι: " & sSum
End Sub
Δήλωση βρόχου για κάθε... επόμενοανήκει στην κατηγορία των χειριστών τύπου αντικειμένου, δηλ. ισχύει κυρίως για συλλογέςαντικείμενα, καθώς και πίνακες . Το σώμα του βρόχου εκτελείται σταθερό αριθμό φορών, που αντιστοιχεί στον αριθμό των στοιχείων στον πίνακα ή τη συλλογή. Για κάθε...Επόμενη μορφή δήλωσης:
Για κάθε<элемент>Σε<группа> <блок операторов>Επόμενο [<элемент>]
Βρόχοι υπό όρους (ακαθόριστοι βρόχοι)
Οι βρόχοι υπό όρους χρησιμοποιούνται όταν επαναλαμβανόμενες ενέργειες πρέπει να εκτελούνται μόνο υπό ορισμένες συνθήκες. Ο αριθμός των επαναλήψεων δεν είναι καθορισμένος και γενικά μπορεί να είναι ίσος με μηδέν (ιδίως για βρόχους με προϋπόθεση). Η VBA προσφέρει στους προγραμματιστές διάφορες δομές ελέγχου για την οργάνωση βρόχων υπό όρους:
- Τέσσερις τύποι Do..Loops, οι οποίοι διαφέρουν ως προς τον τύπο της κατάστασης που ελέγχεται και τον χρόνο που απαιτείται για την ολοκλήρωση αυτού του ελέγχου.
- Συνεχής βρόχος Ενώ... Wend.
Το Do while... Loop είναι χαρακτηριστικό βρόχος με προϋπόθεση. Η συνθήκη ελέγχεται πριν από την εκτέλεση του σώματος του βρόχου. Ο κύκλος συνεχίζει το έργο του μέχρι αυτό<условие>εκτελείται (δηλαδή έχει την τιμή True). Εφόσον ο έλεγχος εκτελείται στην αρχή, το σώμα του βρόχου μπορεί να μην εκτελεστεί ποτέ. Do ενώ... Μορφή βρόχου:
Κάνετε Ενώ<условие>
<блок операторов>
Βρόχος
Καταχώριση 2. Do while... Loop
ΕΡΓΑΣΙΑ: Δημιουργήστε ένα πρόγραμμα που απαιτεί είσοδο από τον χρήστη
«μια αυθαίρετη ακολουθία αριθμών. Η εισαγωγή πρέπει να τερματιστεί
Μόνο αφού το άθροισμα των εισαγόμενων περιττών αριθμών υπερβεί το 100.
Υποδείγμα8()
Dim OddSum Ως ακέραιο ‘άθροισμα περιττών αριθμών
Dim OddStr Ως συμβολοσειρά «μια συμβολοσειρά με περιττούς αριθμούς
Dim Num «για αποδοχή αριθμών που έχουν εισαχθεί
OddStr = "" "αρχικοποίηση συμβολοσειράς εξόδου
OddSum = 0 'αρχικοποίηση OddSum
Do while OddSum< 100 ‘начало цикла
Num = InputBox ("Εισαγάγετε έναν αριθμό: ")
Εάν (Num Mod 2)<>0 Στη συνέχεια «έλεγχος ισοτιμίας
OddSum = OddSum + Num «συσσώρευση του αθροίσματος των περιττών αριθμών
OddStr = OddStr & Num & ”
Τέλος εαν
Βρόχος
«εκτυπώστε μια συμβολοσειρά με περιττούς αριθμούς
MsgBox prompt:=”Μονοί αριθμοί: ” & OddStr
End Sub
Do...Loop while Statementσχεδιασμένο για οργάνωσηβρόχος με μετασυνθήκη. Η συνθήκη ελέγχεται αφού το σώμα του βρόχου έχει εκτελεστεί τουλάχιστον μία φορά. Ο κύκλος συνεχίζει το έργο του μέχρι<условие>παραμένει αληθινό. Εκτέλεση... Loop while Format:
Κάνω<блок операторов>Loop while<условие>
Λίστα 3. Βρόχος με μετασυνθήκη
ΕΡΓΑΣΙΑ: Δημιουργήστε ένα πρόγραμμα για το παιχνίδι "Μάντεψε τον αριθμό". Το πρόγραμμα πρέπει να είναι τυχαίο
τρόπο για να δημιουργήσει έναν αριθμό στην περιοχή από 1 έως 1000, ο χρήστης πρέπει
μαντέψτε αυτόν τον αριθμό. Το πρόγραμμα εμφανίζει μια υπόδειξη για κάθε αριθμό που εισάγεται
' "περισσότερο ή λιγότερο".
Υποδείγμα8()
Randomize Timer «αρχικοποιήστε τη γεννήτρια τυχαίων αριθμών
Ασθενές μήνυμα ως συμβολοσειρά μηνυμάτων "
Dim SecretNumber As Long, UserNumber As Variant
Αρχή: SecretNumber = Στρογγυλός (Rnd * 1000) ' αριθμός που δημιουργήθηκε από υπολογιστή
UserNumber = Κενός αριθμός ‘ που έχει εισαχθεί από τον χρήστη
Κάνε το παιχνίδι
Επιλέξτε Case True
Υπόθεση IsEmpty(UserNumber): msg = "Εισαγάγετε έναν αριθμό"
Υπόθεση UserNumber > SecretNumber: msg = "Πάρα πολλά!"
Αριθμός χρήστη υπόθεσης< SecretNumber: msg = “Слишком мало!”
Τέλος Επιλογή
UserNumber = InputBox(prompt:=msg, Title:=”Μαντέψτε τον αριθμό”)
Loop while UserNumber<>SecretNumber
«εξέταση
Εάν MsgBox ("Παίξτε ξανά;", vbYesNo + vbQuestion, "Το μαντέψατε!") = vbYes Τότε
Μετάβαση στην αρχή
Τέλος εαν
End Sub
Loops Do Μέχρι... Loop και Do... Loop Μέχρι είναι αντιστροφές των βρόχων υπό όρους που συζητήθηκαν προηγουμένως. Γενικά, λειτουργούν παρόμοια, εκτός από το ότι το σώμα του βρόχου εκτελείται εάν η συνθήκη είναι ψευδής (δηλ.<условие>=Λάθος). Κάντε μέχρι... Μορφή βρόχου:
Κάντε μέχρι<условие> <блок операторов>Βρόχος
Εκτέλεση... Μορφή βρόχου μέχρι βρόχου:
<блок операторов>
Βρόχος Μέχρι<условие>
Πρακτική εργασία:Ξαναγράψτε τα προγράμματα στις Καταχωρίσεις 10 και 11 χρησιμοποιώντας εντολές ανεστραμμένου βρόχου.
Loop while...Wend ισχύει επίσης για βρόχους υπό όρους. Αυτός ο χειριστήςείναι πλήρως συνεπής με τη δομή Do while... Loop. Ενώ...Μορφή βρόχου Wend:
Ενώ<условие>
<блок операторов>
Διευθύνω
Ένα χαρακτηριστικό γνώρισμα αυτού του χειριστή είναι η αδυναμία αναγκαστική διακοπή(διακοπή) του σώματος του βρόχου (η πρόταση Exit Do δεν λειτουργεί στον βρόχο while ... Wend).
Διακοπή ενός κύκλου
Για να τερματίσετε νωρίς μια επανάληψη και να βγείτε από τον βρόχο, χρησιμοποιείται η δήλωση Exit. Αυτός ο τελεστής μπορεί να εφαρμοστεί σε οποιαδήποτε κυκλική δομή εκτός από την Ενώ... Wend. Η γενική σύνταξη για τη χρήση του Exit για τη διακοπή ενός βρόχου είναι:
<начало_цикла>
[<блок операторов1>]
Έξοδος (Για | Να κάνω)
[<блок операторов2>]
<конец_цикла>
Όταν εκτελείται η δήλωση Exit, ο βρόχος διακόπτεται και ο έλεγχος μεταφέρεται στη δήλωση που ακολουθεί τη δήλωση<конец_цикла>. Μπορεί να υπάρχουν πολλές εντολές εξόδου στο σώμα ενός βρόχου.
Λίστα 4. Αναγκαστική έξοδος από τον βρόχο
Υποδείγμα9()
Για i = 1 έως 10000000
Αν i = 10, τότε Έξοδος Για ' βγείτε από τον βρόχο όταν ο μετρητής φτάσει στο 10
Επόμενο
