ملاحظة: نرغب في تزويدك بأحدث محتوى تعليمات لدينا بأسرع ما يمكن وبلغتك الخاصة. وقد تمت ترجمة هذه الصفحة آلياً وقد تحتوي على أخطاء نحوية أو أخطاء تتعلق بالدقة. كما نهدف إلى أن يكون هذا المحتوى مفيداً لك. هل يمكنك إخبارنا إذا كانت المعلومات مفيدة لك في أسفل هذه الصفحة؟ إليك المقالة بالغة الإنجليزية لسهولة الرجوع إليها.
ارجاع طويل يحتوي علي حرف منخفض متوفر اكبر ل# بعد صفيف المشار اليه.
بناء الجملة
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 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.
