تقوم بإرجاع نوع بيانات مفرد يتضمن رقم عشوائي.
بناء الجملة
Rnd[(number)]
الرقم الاختياريوسيطة هو تعبير رقمي واحد أو أي تعبير رقمي صالح.
إرجاع القيم
|
إذا كان الرقم هو |
ينشئ Rnd |
|
أقل من الصفر |
نفس الرقم في كل مرة، باستخدام الرقم ك قيمة أولية. |
|
أكبر من الصفر |
الرقم العشوائي التالي في التسلسل. |
|
يساوي صفرا |
أحدث رقم تم إنشاؤه. |
|
غير مزود |
الرقم العشوائي التالي في التسلسل. |
ملاحظات
ترجع الدالة Rnd قيمة أقل من 1 ولكنها أكبر من الصفر أو مساوية له.
تحدد قيمة الرقم كيفية إنشاء Rnd لرقم عشوائي:
بالنسبة لأي بذور أولية معينة، يتم إنشاء نفس تسلسل الأرقام لأن كل استدعاء متتالي لدالة Rnd يستخدم الرقم السابق كقيمة أولية للرقم التالي في التسلسل.
قبل استدعاء Rnd، استخدم عبارة Randomize دون وسيطة لتهيئة منشئ الأرقام العشوائية باستخدام البذور استنادا إلى مؤقت النظام.
لإنتاج أعداد صحيحة عشوائية في نطاق معين، استخدم هذه الصيغة:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
هنا، upperbound هو أعلى رقم في النطاق، والعدد الأدنى هو أقل رقم في النطاق.
ملاحظة: لتكرار تسلسلات الأرقام العشوائية، اتصل ب 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)
