RND随机函数 毕竟是个函数，种子一定，结果自然一定。
但是你可以用时钟做种子，
系统也有一个其他的办法来重置种子
Randomize函数则是:初始化随机数发生器
Randomize timer 使用时钟做种子
Dim MyValue
Randomize ()'加一个随机种子 Randomize 来进行初始化
MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值
随机函数是建立一个[0，1）之间的任意数字的函数。
要避免产生的数字相同，在使用这个函数前，加上一句：
randomize
就可以了！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024