从 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 的范围内。