17-10-12, 05:23 PM
كاتب الموضوع : AhmedEssawy
لانشاء رقم عشوائي في حدود مدي integer كود :
'Instantiate the random class
Dim r As Random = New Random
'
'Get a random number within the full range of a integer value.
MsgBox(r.Next())
كود :
'Generates a random number from 0 up to the set maximum. It is
'set not to return a number larger than 20.
MsgBox(r.Next(20))
كود :
'Generates a random number within the minumum and maximum
'numbers that are specified. IT will not return a number lower
'than the setMinumum, or return a number higher than the setMax.
MsgBox(r.Next(10, 15))