Ορισμένες φορές θέλουμε να ελέγχουμε τη συνθήκη στο τέλος
του βρόχου, δηλαδή το περιεχόμενο του βρόχου να εκτελεστεί τουλάχιστον μια φορά.
Στις περιπτώσεις αυτές χρησιμοποιούμε τη δομή ελέγχου do ... loop while
Αυτή χρησιμοποιείται ως εξής:
do
εντολή
εντολή
...
loop while συνθήκη
Οι εντολές που ακολουθούν το do εκτελούνται μια φορά και συνεχίζουν
να εκτελούνται όσο η συνθήκη είναι αληθής.
Σημαντικό ρόλο έχει αυτή η δομή ελέγχου όταν διαβάζουμε στοιχεία
από το χρήστη και θέλουμε να ελέγξουμε την είσοδο για λάθη.
Παράδειγμα (θέλουμε ο χρήστης να εισάγει έναν αριθμό μικρότερο του 10):
Sub main()
Dim Number As Integer
Do
Number = InputBox("Δώστε έναν αριθμό μικρότερο του 10")
Loop While Number >= 10
MsgBox "Δώσατε " + Str(Number)
End Sub
Αν η συνθήκη δεν είναι αληθής όταν εκτελεστεί το do για πρώτη
φορά τότε οι εντολές που περιέχονται σε αυτό θα εκτελεστούν τουλάχιστον μια
φορά.
Η δομή ελέγχου do loop while μπορεί να χρησιμοποιηθεί οπουδήποτε θα μπορούσε
και οποιαδήποτε άλλη εντολή (π.χ. η MsgBox) δηλαδή ακόμα και μέσα σε μια άλλη
do while ... loop ή do ... loop while.
Τελευταία αλλαγή: Πέμπτη, 17 Μαΐου 2001 1:27 μμ
Εκτός αν αναφέρεται κάτι διαφορετικό, όλο το πρωτότυπο υλικό της σελίδας αυτής
του οποίου δημιουργός είναι ο Διομήδης Σπινέλλης παρέχεται σύμφωνα με τους
όρους της άδειας
«Creative Commons Attribution-Share Alike 3.0 Greece License».