Dim Num As New Random()
- Num.Next() → 產生一個 0 ~ 2,147,483,647 的亂數。
- Num.Next(6) → 產生一個 0 ~ 6 的亂數。
- Num.Next(1, 42) → 產生一個 1(含) ~ 42(含) 的亂數。
- Num.NextDouble() → 產生一個 0 ≦ number < 1 的浮點亂數。
如果想要一次產生 6 個範圍在 0 ~ 255 之間的亂數,則可以使用以下方法:
Dim Num As New Random()
Dim Buffer As Byte() = New Byte(5) {}
Num.NextBytes(b)
For Each i As Byte In Buffer
Msgbox(i)
Next