在视觉基础中生成随机数

Question

我在程序中使用随机数生成器，但每次运行程序时它都会返回相同的值（0.71）。

代码：

number = FormatNumber(Rnd(1), 2)
    rdmlabelTxt.Text = number.ToString

有没有办法在启动程序时产生不同的随机数？ 感谢。

Answer 1

根据Microsoft“当您不提供参数时，会生成相同的数字序列”。本文还建议“在调用Rnd之前，使用不带参数的Randomize语句使用基于系统计时器的种子初始化随机数生成器。”

我认为这将解决您的问题 - 请告诉我们。

Answer 2

您需要编写for循环才能生成不同的数字

For i = 1 to 100
number = FormatNumber(Rnd(1), 2)
Cells(i, "A").Value = number
next i

Answer 3

您只需在代码前使用Randomize（）调用。

Randomize()
Dim number As Double = 0
number = FormatNumber(Rnd(1), 2)
rdmlabelTxt.Text = number.ToString