دستور Option Base در سطح ماژول برای اعلان کران پایین پیش فرض برای زیرنویس های آرایه می باشد.
Syntax
1 |
Option Base { 0 | 1 } |
ملاحظات
با توجه به اینکه مبنای پیش فرض 0 (صفر) می باشد، دستور Option Base هرگز الزامی نمی باشد. اگر دستور در یک ماژول استفاده شود باید قبل از شروع هر روالی قرار بگیرد. Option Base فقط یکبار می تواند در یک ماژول ظاهر شود و می بایست مقدم بر اعلان آرایه هایی که شامل ابعاد است قرار بگیرد.
Option Base فقط بر کران پایین آرایه های ماژولی که در آن واقع شده است تاثیر دارد.
مثال
این مثال از دستور Option Base برای لغو مبنای پیش فرض صفر زیرنویس آرایه استفاده می نماید. تابع LBound پایین ترین زیرنویس در دسترس برای بُعدی از یک آرایه که مشخص شده باشد را بر می گرداند. دستور Option Base فقط در سطح ماژول کاربرد دارد.
1 2 3 4 5 6 7 8 9 |
Option Base 1 ' تغییر مبنای پیش فرض به یک Dim Lower Dim MyArray(20), TwoDArray(3, 4) ' اعلان متغیرها حاوی آرایه Dim ZeroArray(0 To 5) ' لغو مبنای پیش فرض تعیین شده توسط Option Base ' استفاده از تابع LBound برای آزمایش کران پایین هر کدام از آرایه ها Lower = LBound(MyArray) ' مقدار بازگشتی: 1 Lower = LBound(TwoDArray, 2) ' مقدار بازگشتی: 1 Lower = LBound(ZeroArray) ' مقدار بازگشتی: 0 |