Επιστρέφει μια τιμή Εκτεταμένης ακρίβειας που περιέχει τον μεγαλύτερο διαθέσιμο δείκτη για την υποδεικνυόμενη διάσταση ενός πίνακας.
Σύνταξη
UBound ( όνομα πίνακα [, διάσταση ] )
Η σύνταξη της συνάρτησης UBound περιλαμβάνει τα παρακάτω ορίσματα:
|
Όρισμα |
Περιγραφή |
|
όνομα πίνακα |
Υποχρεωτικό. Το όνομα του πίνακα μεταβλητή; ακολουθεί τυπικές συμβάσεις μεταβλητής ονοματοθεσίας. |
|
διάσταση |
Προαιρετικό. Μεταβλητή (Μεγάλης ακρίβειας). Ακέραιος αριθμός που υποδεικνύει το ανώτερο όριο διάστασης που επιστρέφεται. Χρησιμοποιήστε 1 για την πρώτη διάσταση, 2 για τη δεύτερη και ούτω καθεξής. Εάν παραλειφθεί το όρισμα διάσταση , λαμβάνεται το 1. |
Παρατηρήσεις
Η συνάρτηση UBound χρησιμοποιείται με τη συνάρτηση LBound για να προσδιορίσει το μέγεθος ενός πίνακα. Χρησιμοποιήστε τη συνάρτηση LBound για να βρείτε το κατώτερο όριο μιας διάστασης πίνακα.
Η συνάρτηση UBound επιστρέφει τις ακόλουθες τιμές για έναν πίνακα με αυτές τις διαστάσεις:
Dim A(1 To 100, 0 To 3, -3 To 4)
|
Δήλωση |
Τιμή επιστροφής |
|
UBound(A, 1) |
100 |
|
UBound(A, 2) |
3 |
|
UBound(A, 3) |
4 |
Παράδειγμα
Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στην Αναζήτηση και πληκτρολογήστε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.
Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση UBound για να καθορίσει τον μεγαλύτερο διαθέσιμο δείκτη για την υποδεικνυόμενη διάσταση ενός πίνακα.
Dim Upper
' Declare array variables.
Dim MyArray(1 To 10, 5 To 15, 10 To 20)
Dim AnyArray(10)
Upper = UBound(MyArray, 1) ' Returns 10.
Upper = UBound(MyArray, 3) ' Returns 20.
Upper = UBound(AnyArray) ' Returns 10.
