2 namedajipai namedajipai 于 2016.04.08 14:46 提问

VB6.0用Rnd生成随机数的一个bug

为什么VB6.0的随机数函数Rnd在Windows 7电脑公司Ghost64版上每次生成的都是相同的,是VB6的bug么?

1个回答

caozhy
caozhy   Ds   Rxr 2016.04.08 15:05
已采纳

在程序开头加上randomize

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!
其他相关推荐
vb常用内部函数(四):随机数函数
rnd函数返回或者说产生一个小于1但大于或等于0的single类型的随机数。产生随机数之前需要一个种子。·不同的种子,可使随机数生成器生成不同的随机数;·在一个种子下,生成的随机数相同。随机数生成器的语句为randomize。格式为:randomize[x]。·当x>0时,使用前一次调用rnd函数产生的随机数作为本次产生随机数的种子。一般通过使用该参数获得不
使用随机数,解释函数rnd()
函数RND()是一个非常重要的函数。如果你想建立一个随机的问候语,一个日期的随机提示,或者甚至一个游戏,你将要使用这个函数。函数RND()返回一个0到1之间的随机数。这里有这个函数的一个例子及其可能的返回值:0.7055643典型情况下,你更感兴趣的是用这个函数来返回处在一定范围内的整数。要返回一个大于等于0而小于某个特定整数的数字,你可以使用如下的语句:用你想产生的最大随机数代替表达式upper
QTP中常用的随机数生产函数
Dim MyValue  '定义一个随机数 Dim i Randomize  '初始化 For  i=0 to 100   MyValue = int( (10000-1000+1)*Rnd+1000)   '生产最大值为10000最小值为1000的随机数   print MyValue Next
VB 任意随机数(N-M)的通用函数(单取、多取存入数组、排序等功能) 内附随机数介绍
如果对于随机数了解没有什么问题,请跳过思路,直接看函数,如果对有函数有疑问或是改进意思,欢迎来信jyh_jack@163.com思路Randomize 初始化随机数生成器Print Int(Rnd() * 2)  生成随机数范围是0-1如果要生成1-10之间的随机数:可以看作随机数的的起始数是:1,范围是1+(0~9)Int(Rnd() * 10) 生成0-9之间的数,再加上起
VB小程序:生成十个不重复的随机数
我们通过随机数函数Rnd结合for循环嵌套来实现生成十个不重复的随机数,代码如下:   Option Explicit Dim a(9) As Integer, i As Integer, j As Integer     ‘定义数组及循环变量 Dim Temp As Integer     ’定义一个临时变量存储生成的随机数 Dim Flag As Boolean      ‘定义一
js函数系列之数组:(1)生成不重复的随机数组
js函数系列之数组:(1)生成不重复的随机数组
用vb程序输出10个随机数
代码: Private Sub Command1_Click() Dim i As Integer, t As Integer Dim k As Integer Dim a(10) As Integer Dim mystr As String Dim youstr As String    a(1) = Int(Rnd * 100 + 1)   mystr = "要"
VBA产生随机数的函数
'Dim min As Integer '定义随机数的最小值 'Dim max As Integer '定义随机数的最大值 '限制只产生500个,VBA的速度问题 Public Function CreateRND(ByVal min As Integer, _
【VBA研究】Rnd和Randomize的关系和理解
iamlaosong文 1、程序中如果只用Rnd取随机数时,每次执行都会产生相同的随机数序列。 2、Randomize可以让每次执行程序产生不同的序列,因为该语句用计时器当前值做随机序列的种子。 3、同一个程序中Randomize number执行两次(相同的number),Rnd取到的随机数也不同。 4、同一个程序中如果想要得到相同的随机数序列,可以先执行“Rnd 负数”。例如:
vb.net指定范围内获取随机数
最近需要做个随机抽样的小程序,研究了一下vb.net下随机取数的方法: 首先做了个试验,使用Rnd()函数+Math.Round()取整处理,比如说我想在1-100内随机取数(结果应该可能包含1和100) Math.Round(Rnd() * 100) 做了个1000次的循环取样,发现结果包含了0-100的可能,然而随机出来的0不是我想要的结果,于是换用下面更方便的方法来实现: Dim m