Generate Random Numbers '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))
|