從 Random 例項生成隨機數

下面的示例宣告瞭 Random 類的新例項，然後使用方法 .Next 生成偽隨機數序列中的下一個數字。

Dim rnd As New Random
Dim x As Integer
x = rnd.Next

上面的最後一行將生成下一個偽隨機數並將其分配給 x。此數字的範圍為 0 - 2147483647.但是，你也可以指定要生成的數字範圍，如下例所示。

x = rnd.Next(15, 200)

但請注意，使用這些引數，數字範圍將介於 15 或以上和 199 或以下。

你還可以使用 .NextDouble 生成 Double 型別的浮點數

Dim rnd As New Random
Dim y As Double
y = rnd.NextDouble()

但是，你無法為此指定範圍。它始終在 0.0 到小於 1.0 的範圍內。