一个菜鸟的问题,送分了

Question

我在用VB编一个小程序，但却发现了这样一个问题，我用Rnd(x)*100来取100以内的随机数，可是我发现，每次执行程序取到的随机数都是一样的，而且顺序也一样，怎么样才能解决这个问题？请高手指点！谢谢！

Answer 1

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

Answer 2

Randomize 语句示例
本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数， 所以 Randomize 用 Timer 函数的返回值作为新的随机数种子值。Dim MyValue
Randomize   ' 对随机数生成器做初始化的动作。MyValue = Int((6 * Rnd) + 1)   ' 生成 1 到 6 之间的随机数值。