先声明一个存放随机数的数组，然后遍历数组，如果重复再随机生成一个替换
使用Randomize 语句，初始化随机数生成器。
Randomize 语句示例
本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数， 所以
Randomize 用 Timer 函数的返回值作为新的随机数种子值。
Dim MyValue
Randomize ' 对随机数生成器做初始化的动作。MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024