تقوم بإرجاع نوع بيانات مفرد يتضمن رقم عشوائي.
بناء الجملة
Rnd[(number)]
تكون وسيطة الرقمالاختياري عبارة عن تعبير رقمي مفرد أو أي تعبير رقمي صحيح.
إرجاع القيم
| إذا كان الرقم | ينشئ Rnd |
|---|---|
| أقل من صفر | نفس الرقم في كل مرة، باستخدام رقم كبذرة. |
| أكبر من صفر | الرقم العشوائي التالي في التسلسل. |
| يساوي صفرا | أحدث رقم تم إنشاؤه. |
| غير متوفر | الرقم العشوائي التالي في التسلسل. |
ملاحظات
ترجع الدالة Rnd قيمة أقل من 1 ولكنها أكبر من الصفر أو مساوية له.
تحدد قيمة الرقم كيفية قيام Rnd بإنشاء رقم عشوائي:
بالنسبة لأي بذرة أولية معينة، يتم إنشاء نفس تسلسل الأرقام لأن كل استدعاء متتالي للدالة Rnd يستخدم الرقم السابق كبذرة للرقم التالي في التسلسل.
قبل استدعاء Rnd، استخدم العبارة Randomize بدون وسيطة لتهيئة مولد الأرقام العشوائية باستخدام بذرة استنادا إلى مؤقت النظام.
للحصول على أعداد صحيحة عشوائية في نطاق معين، استخدم الصيغة التالية:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
هنا، يمثل العدد العلوي أعلى رقم في النطاق ويمثل الحد الأدنى أدنى رقم في النطاق.
ملاحظة
لتكرار تسلسل الأرقام العشوائية، قم باستدعاء Rnd بوسيطة سالبة مباشرة قبل استخدام Randomize مع وسيطة رقمية. لا يؤدي استخدام Randomize بنفس قيمة الرقم إلى تكرار التسلسل السابق.
مثال استعلام
| التعبير | النتائج |
|---|---|
| SELECT ProductSales.ProductID, Rnd([Discount]) AS RandomNumbers FROM ProductSales; | إرجاع معرف المنتج مع أرقام عشوائية في العمود RandomNumbers. |
مثال VBA
ملاحظة
توضح الأمثلة التالية استخدام هذه الدالة في وحدة نمطية ل Visual Basic for Applications (VBA). لمزيد من المعلومات حول استخدام VBA، حدد "مرجع المطور" في القائمة المنسدلة بجوار "بحث" وأدخل مصطلح أو أكثر في مربع البحث.
يستخدم هذا المثال الدالة Rnd لإنشاء قيمة عدد صحيح عشوائي من 1 إلى 6.
Dim MyValue
' Generate random value between 1 and 6.
MyValue = Int((6 * Rnd) + 1)