声明一个实例

Dim rng As New Random()

这声明了一个名为 rng 的 Random 类的实例。在这种情况下，创建对象的点的当前时间用于计算种子。这是最常见的用法，但有其自身的问题，我们将在后面的评论中看到

你可以指定初始种子编号，而不是允许程序将当前时间用作初始种子编号的计算的一部分。这可以是任何 32 位整数文字，常量或变量。请参阅下面的示例。这样做意味着你的实例将生成相同的伪随机数序列，这在某些情况下很有用。

Dim rng As New Random(43352)

要么

Dim rng As New Random(x)

其中 x 已在程序中的其他地方声明为整数常量或变量。