怎样得到真正的随机数子？求教！！！！！！

Question

我用Rand的函数得到的随机数，每次运行程序都是一样的，还是有规律的，怎样才能得到无规律的随机数，请各位大侠指点！！！感激！！！

Answer 1

在Form_Load中加入
Randomize Timer

Answer 2

Randomize 语句
      初始化随机数生成器。语法Randomize [number]可选的 number 参数是 Variant 或任何有效的数值表达式。说明Randomize 用 number 将 Rnd 函数的随机数生成器初始化，该随机数生成器给 number 一个新的种子值。如果省略 number，则用系统计时器返回的值作为新的种子值。如果没有使用 Randomize，则（无参数的）Rnd 函数使用第一次调用 Rnd 函数的种子值。注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。

Answer 3

Randomize
加入这句，初始化随机函数

Answer 4

Randomize(Time())
用Time()函数得到不同的Seed，就可以在Randomize()中产生不同的随机数序列了。