ترجع هذه الدالة فترة طويلة تحتوي على أكبر حرف منخفض متوفر للبعد المشار إليه لصفيف.
بناء الجملة
UBound(arrayname [, dimension ] )
يحتوي بناء جملة الدالة 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.