Ανοίξτε Visual Basic και να ξεκινήσετε ένα νέο έργο . Κάντε διπλό κλικ στο " CommandButton " ελέγχου για να το προσθέσετε στη φόρμα . . Κάντε διπλό κλικ τη νέα προστιθέμενη ελέγχου για να ανοίξετε το " Command1_Click ( ) " παράθυρο κώδικα 2
Πληκτρολογήστε τα παρακάτω :
Δημ. myArray ( 3 ) As Integer
Dim μήνυμα As String
Αυτό δημιουργεί δύο μεταβλητές ? μια σειρά ακεραίων και μια σειρά εικόνων
3
Πληκτρολογήστε το παρακάτω, για να προετοιμάσει τον πίνακα : .
myArray ( 0 ) = 1
myArray ( 1 ) = 2
myArray ( 2 ) = 3
Η 4
Πληκτρολογήστε τα παρακάτω:
Για i = 0 να UBound ( myArray ) - 1
μήνυμα = μήνυμα & myArray ( UBound ( myArray ) - 1 - i ) & " "
Next i
Αυτός ο βρόχος μετράει από την τελευταία δείκτη στον πίνακα με το πρώτο και το προσθέτει στη "μήνυμα" μεταβλητή , ξεχωριστά για κάθε δείκτη από ένα κενό διάστημα
5
Πληκτρολογήστε τα ακόλουθα : .
<μήνυμα p> Εκτύπωση
η συσκευή εκτυπώνει τη μεταβλητή μήνυμα, το οποίο έχει τον πίνακα αποθηκεύονται σε αντίστροφη σειρά , με τη μορφή . Μπορείτε να χρησιμοποιήσετε ένα άλλο εργαλείο για να εκτυπώσετε τον πίνακα , όπως μια ετικέτα , πλαίσιο κειμένου ή ένα πλαίσιο μηνύματος.
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα