Randomize

宣告開始隨機取值

Randomize()

Rnd()範圍

0~0.999...

範例：隨機取1~6之間的值(含)

CInt( Int( 6 * Rnd() + 1 ) )

取值公式[min,max]

Dim GuessNumber As Integer

Static Generator As System.Random = New System.Random()

GuessNumber = Generator.Next(10, 100) '隨機取10~100之間的數字

GuessNumber = Generator.Next(min, max) 'min,max必為整數