Επιστρέφει ένα Long που περιέχει το μεγαλύτερο διαθέσιμο δείκτη για τη υποδεικνυόμενη διάσταση ενός πίνακα.
Σύνταξη
UBound(arrayname [; διάσταση ] )
Η σύνταξη της συνάρτησης 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.