各位高手，小弟我又遇到了一个我认为是不可思议的问题！望知情者请回帖！谢谢！50分哦！快来吧！

Question

在前面加 Randomize(time)...就可以了。

Answer 1

Dim MyValue
Randomize   ' 对随机数生成器做初始化的动作。MyValue = Int((6 * Rnd) + 1)   ' 生成 1 到 6 之间的随机数值。

Answer 2

使用Rnd()函数前要Randomize初始化随机种子。
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]

Answer 3

在rnd() 前加Randomize 

Answer 4

upupupupup
这是一个什么样的世界啊！！！！！！！！！！！！！
××××××××××××××××××××××××
只是一个vb打天下的世界！！！！！！！！！！！！！
……………………………………………………………