ฟังก์ชัน UBound

ส่งกลับ Long ที่มีตัวห้อยที่ใหญ่ที่สุดที่ใช้ได้สําหรับมิติที่ระบุของอาร์เรย์

ไวยากรณ์

UBound(arrayname [, dimension ] )

ไวยากรณ์ของฟังก์ชัน UBound มีอาร์กิวเมนต์ดังนี้

อาร์กิวเมนต์	คำอธิบาย
ArrayName	จำเป็น ชื่อของตัวแปรอาร์เรย์ เป็นไปตามข้อตกลงการตั้งชื่อตัวแปรมาตรฐาน
มิติ	ไม่จำเป็น ตัวแปร (ยาว) จํานวนเต็มที่ระบุขอบเขตบนของมิติที่ถูกส่งกลับ ใช้ 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

    

ตัวอย่าง

ตัวอย่างนี้ใช้ฟังก์ชัน 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.