Συνάρτηση UBound

Σημείωση:  Θέλουμε να σας παρέχουμε το πιο πρόσφατο περιεχόμενο βοήθειας στη γλώσσα σας όσο πιο σύντομα γίνεται. Αυτή η σελίδα έχω μεταφραστεί μέσω αυτοματοποιημένης διαδικασίας και ενδεχομένως να περιέχει γραμματικά λάθη και ανακρίβειες. Ο σκοπός μας είναι αυτό το περιεχόμενο να σας φανεί χρήσιμο. Μπορείτε να μας ενημερώσετε στο κάτω μέρος αυτής της σελίδας εάν οι πληροφορίες σάς φάνηκαν χρήσιμες; Εδώ θα βρείτε το άρθρο στα Αγγλικά , για να το συμβουλεύεστε εύκολα.

Επιστρέφει έναν ακέραιο μεγάλου μήκους που περιέχει το μεγαλύτερο διαθέσιμο δείκτη για την καθορισμένη διάσταση μια πίνακας.

Σύνταξη

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 για τη λειτουργική μονάδα 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.
Αναπτύξτε τις δεξιότητές σας στο Office
Εξερευνήστε το περιεχόμενο της εκπαίδευσης
Αποκτήστε πρώτοι τις νέες δυνατότητες
Γίνετε μέλος του Office Insider

Σας βοήθησαν αυτές οι πληροφορίες;

Σας ευχαριστούμε για τα σχόλιά σας!

Σας ευχαριστούμε για τα σχόλιά σας! Φαίνεται ότι μπορεί να είναι χρήσιμο να συνδεθείτε με έναν από τους συνεργάτες υποστήριξης του Office.

×