اريد كود لاعطاء اعداد عشوائية للدالة Random

السلام عليكم

أولا نرحب بك أخي وهلا وسهلا بك بيننا

وبالنسبة لسؤالك فأظن أن هذا الكود قد ينفعك

Private Sub Form_Load()
Randomize
MsgBox Int(10 * (Rnd(20)) + 10)

End Sub

تحيااااتي

للحصول على أعداد عشوائيةمحصورة اد بين A و B أو بتعبير آخر للحصول على الأعداد الأكبر من أو يساوي A و الأصغر من أو يساوي B يمكن استخدام القاعدة التالية:

n = A + Int(Rnd() * (B-A+1))

يعني للحصول على الأعداد المحصورة بين 10 و 20 عشوائياً تكون الدالة كالتالي:

n = 10 + Int(Rnd() * 11)

الدالة أعلاه تعطي عشوائياً قيمة محصورة بين 10 و 20 بما فيها الـ10 و الـ20.

و فيما يلي الدالة بالكود:

Function GetRndNumBetween10and20() As Integer
	GetRndNumBetween10and20 = 10 + Int(Rnd() * 11)
End Function

أخيرا لا تنسى استدعاء الدالة Randomize في البداية مع تمرير الوقت الحالي كوسيط لهذه الدالة، و أقصد في البداية يعني بداية انتاج الأرقام العشوائية، و يكون استخدامها كالتالي:

Randomize Now

شكرا للاخوة الكرام