就是让随机数只要随出来都是一个固定的?
有没有SetTickCount
有没有SetTickCount
解决方案 »
- 求助------VB 6.0 的 inet控件问题(疑似被访问禁止!!!)
- 关于vb捕获摄像头 WM_CAP_DRIVER_CONNECT
- 兑现承诺,问题已解决,另送大象100分,谢谢
- adodc连接oracle数据库的问题
- 谁来帮帮我,最简单的CS程序出问题!
- 关于installshield的问题,很急啊,有谁能帮帮我?解决不了就得……
- 如何在WebBrows控件里,不让它弹出下载对话框? 改注册表还是实时用api控制,请各位给个好办法.
- DataGrid下标超限怎么办?急!!!!!
- vb 操纵 Word 的高手都来看看. 下面的代码为何有错
- 急需一个通过mscomm传送文件的范例!!!!!!!!!!!!!!!!!!
- 如何用VB改XML文件的内容?
- 关于补位问题
如果数论学得好的话最好自己写一个随机数生成器
Randomize 语句
初始化随机数生成器。语法Randomize [number]可选的 number 参数是 Variant 或任何有效的数值表达式。说明Randomize 用 number 将 Rnd 函数的随机数生成器初始化,该随机数生成器给 number 一个新的种子值。如果省略 number,则用系统计时器返回的值作为新的种子值。如果没有使用 Randomize,则(无参数的)Rnd 函数使用第一次调用 Rnd 函数的种子值。注意 若想得到重复的随机数序列,在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。
Randomize 语句示例
本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数, 所以 Randomize 用 Timer 函数的返回值作为新的随机数种子值。Dim MyValue
Randomize ' 对随机数生成器做初始化的动作。MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值。