Fungsi UBound

Important: Artikel ini diterjemahkan oleh mesin, lihatlah notis penafian. Sila dapatkan versi Bahasa Inggeris artikel ini di sini sebagai rujukan anda

Mengembalikan panjang mengandungi subskrip terbesar yang tersedia untuk dimensi yang ditunjukkan pada array.

Sintaks

UBound ( arrayname [dimensi ] )

Sintaks fungsi UBound mempunyai argumen ini:

Argumen

Perihalan

arrayname

Diperlukan. Nama tatasusunan variable; mengikuti standard konvensyen penamaan pemboleh ubah.

dimensi

Pilihan. Varian (Panjang). Nombor bulat menunjukkan batas atas dimensi yang dikembalikan. Gunakan 1 untuk dimensi yang pertama, 2 untuk kedua, dan sebagainya. Jika dimensi dikecualikan, 1 dianggap.


Catatan

Fungsi UBound digunakan dengan fungsi LBound untuk menentukan saiz tatasusunan. Gunakan fungsi LBound untuk mencari had bawah dimensi tatasusunan.

UBound mengembalikan nilai yang berikut untuk tatasusunan dengan dimensi ini:

Dim A(1 To 100, 0 To 3, -3 To 4)

Kenyataan

Nilai Pengembalian

UBound(A, 1)

100

UBound(A, 2)

3

UBound(A, 3)

4


Contoh

Note: Contoh berikut menunjukkan penggunaan fungsi ini dalam Visual Basic for Applications (VBA) modul. Untuk maklumat lanjut tentang bekerja dengan VBA, pilih Rujukan pembangun dalam senarai juntai bawah di sebelah Cari dan memasukkan satu atau lebih istilah dalam kotak carian.

Contoh ini menggunakan fungsi UBound untuk menentukan subskrip terbesar yang tersedia untuk dimensi yang ditunjukkan tatasusunan.

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.

Note: Notis Penafian Penterjemahan Mesin: Artikel ini telah diterjemah oleh sistem komputer tanpa campur tangan manusia. Microsoft menawarkan penterjemahan mesin ini untuk membantu pengguna-pengguna yang tidak bertutur dalam Bahasa Inggeris supaya dapat menikmati kandungan mengenai produk, perkhidmatan dan teknologi Microsoft. Artikel ini mungkin mengandungi ralat perbendaharaan kata, sintaks atau tatabahasa kerana ia diterjemahkan oleh mesin.

Kembangkan kemahiran anda
Jelajahi latihan
Dapatkan ciri baru terlebih dahulu
Sertai Office Insiders

Adakah maklumat ini membantu?

Terima kasih atas maklum balas anda!

Terima kasih atas maklum balas anda! Nampaknya ia mungkin akan membantu untuk menyambungkan anda kepada salah seorang daripada ejen sokongan Office kami.

×