为什么小弟我用Rnd连续生成的随机数都一样啊

为什么我用Rnd连续生成的随机数都一样啊？
Dim   value   As   Integer   =   CInt(Int((6   *   Rnd())   +   1))
不知道为什么每次产生的随机数都是一样。郁闷！

[解决办法]
在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有一个基于系统计时器的种子。


[解决办法]
本示例使用 Rnd 函数在范围 1 到 6 之间生成一个随机整数值。


Randomize()
Dim value As Integer = CInt(Int((6 * Rnd()) + 1))