الدالة Rnd

هام: تمت ترجمة هذه المقالة ترجمة آلية، راجع إقرار إخلاء المسؤولية. يرجى الاطلاع على النسخة الإنجليزية من هذه المقالة. هنا للرجوع إليها.

تقوم بإرجاع نوع بيانات مفرد يتضمن رقم عشوائي.

بناء الجملة

Rnd [(number)]

اذا كان اختياري رقموسيطة مفرد او اي صالح تعبير رقمي.

ارجاع القيم

اذا كان الرقم

Rnd ينشئ

اقل من الصفر

الرقم نفسه كل مره، ب# استخدام رقم ك قيمة أولية.

اكبر من الصفر

رقم عشوائي التالي في التسلسل.

يساوي صفرا

الاكثر رقم تم انشاؤه.

لم يتم توفيره

رقم عشوائي التالي في التسلسل.


ملاحظات

ترجع الداله Rnd قيمه اقل من 1 و# لكن اكبر من او تساوي صفر.

يحدد قيمه الرقم كيفيه انشاء Rnd رقم عشوائي:

يتم انشاء نفس التسلسل الرقمي ل# اي اساس اولي محدد، ل# ان يستخدم كل استدعاء الداله Rnd المتتاليه الرقم السابق ك# اساس ل# الرقم التالي في التسلسل.

قبل استدعاء Rnd، استخدام عباره العشوائيه دون وسيطه تهيئه منشئ الرقم العشوائي مع اساسي يستند الي نظام عداد الوقت.

ل# الحصول علي اعداد صحيحه عشوائي في نطاق معين، استخدم الصيغه التاليه:

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

هنا، upperbound اكبر رقم في النطاق، و# هو لوويربوند الحد الادني في النطاق.

ملاحظة: ل# تكرار تتابع ارقام عشوائيه، يمكنك الاتصال Rnd مع وسيطه سالبه قبل استخدام العشوائيه مع وسيطه رقميه مباشره. عدم استخدام العشوائيه ذات القيمه نفسها ل# رقم تكرار التسلسل السابق.

مثال

ملاحظة: توضح الامثله التاليه استخدام هذه الداله في Visual Basic for Applications (VBA) الوحده النمطيه. ل# الحصول علي مزيد من المعلومات حول العمل ب# استخدام VBA، حدد مرجع المطور في القائمه المنسدله الموجود ب# جانب بحث و# ادخل شروط واحد او اكثر في مربع البحث.

يستخدم هذا المثال الداله Rnd ل# انشاء قيمه عدد صحيح عشوائيه من 1 الي 6.

Dim MyValue
' Generate random value between 1 and 6.
MyValue = Int((6 * Rnd) + 1)

ملاحظة: إقرار إخلاء المسؤولية للترجمة الآلية: تمت ترجمة هذه المقالة بواسطة نظام كمبيوتر دون تدخل العامل البشري. توفر Microsoft هذه الترجمات الآلية لمساعدة المستخدمين الذين لا يتحدثون الإنجليزية على استخدام منتجات Microsoft، وخدماتها، وتقنياتها والاستمتاع بها. قد تحتوي هذه المقالة على أخطاء في المفردات، أو بناء الجملة، أو القواعد نظرًا لترجمتها آليًا.

توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×