الدالة Rnd

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

بناء الجملة

Rnd [(number)]

الرقم الاختياريوسيطة هو واحد أو اي تعبير رقمي صحيح.

القيم المرجعة

إذا كان الرقم عبارة عن

Rnd ينشئ

اقل من صفر

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

أكبر من الصفر

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

تساوي الصفر

الرقم الذي تم إنشاؤه مؤخرا.

غير متوفر

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

ملاحظات

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

تحدد قيمه الرقم الطريقة التي ينشئ Rnd بها رقما عشوائيا:

بالنسبة إلى اي أساس اولي محدد ، يتم إنشاء التسلسل الرقمي نفسه لان كل اتصال تال بالدالة Rnd يستخدم الرقم السابق كاساس للرقم التالي في التسلسل.

قبل الاتصال بالRnd ، استخدم البيان عشوائيا بدون وسيطه لتهيئه المولد ذو الأرقام العشوائية باستخدام أساس استنادا إلى عداد النظام.

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

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

هنا ، أوبيربوند هو الرقم الأكبر في النطاق ، واللوويربوند هو الرقم الأصغر في النطاق.

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

مثال استعلام

التعبير

النتائج

حدد برودوكتساليس, Rnd ([الخصم]) ك راندومنومبيرس من برودوكتساليس;

ترجع هذه الدالة معرف المنتج مع أرقام عشوائية في العمود راندومنومبيرس.

مثال VBA

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

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

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

ملاحظة:  وقد تمت ترجمة هذه الصفحة آلياً وقد تحتوي على أخطاء نحوية أو أخطاء تتعلق بالدقة. إن هدفنا هو أن يكون هذا المحتوى مفيداً لك. هل يمكنك إعلامنا إذا ما كانت المعلومات مفيدة؟ فيما يلي المقالة باللغة الإنجليزية لتكون مرجعاً لك.

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