كيف اجعل قيمة متغير تزيد عشوائيا فى حدود معينة؟؟

السلام عليكم

اخى الكريم

ارجو مراعاة قواعد المشاركة عند وضع اى مشاركة

انت هنا خالفت قاعدتين :

الاولى : عنوان الموضوع غير واضح

الثانية : وضع اكثر من سؤال ليس بينهم علاقة فى مشاركة واحدة (القاعدة الرابعة من قواعد المشاركة)

قواعد المشاركة

ساضطر اسفا ان احذف احد السؤالين واغير عنوان الموضوع

وارجو الا تتضايق من هذا لان هذا فى مصلحة المنتدى والاعضاء اولا وأخيرا لكى يكون المنتدى منظم ويمكن الوصول للموضوعات بسرعة,,,

يمكنك استخدام هذه الصيغة

Int((HighestValue - LowestValue + 1) * Rnd) + LowestValue

او يمكنك استخدام هذه الدالة

'Rand - Return a random number in a given range.
'
'Parameters:
'  Low  - The lower bounds of the range.
'  High - The upper bounds of the range.
'
'Returns:
'  Returns a random number from Low..High.
'===============================================

Public Function Rand(ByVal Low As Long, _
                     ByVal High As Long) As Long
  Rand = Int((High - Low + 1) * Rnd) + Low
End Function

وتستدعيها فى اى مكان كالتالى

DieValue = Rand(1, 6)
CardValue = Rand(1, 52)