Rnd是一个随机常数参数,范围在0~1,7位小数。
例如:
MsgBox Rnd返回: .5690424
但是你想要生成随机数,前面一定要加一个函数Randomize
这样Rnd参数才会在每一次使用时变化
如果要生成一个在1~16范围的数
Dim Num As IntegerRandomize
Num = Int(Rnd * 16) + 1
MsgBox Num
如果范围最小值不是1,例如16~32
Dim Num As IntegerRandomize
Num = Int(Rnd * 16) + 15
MsgBox Num
希望对你有帮助,望采纳
你可以给RND 一个随机种子,用计算机的系统时间做为这个种子,产生的随机数就不会每次都一样了。\x0d\x0a具体就是在调用Rnd前,先调用Randomize。 \x0d\x0a\x0d\x0aPrivate Sub Command1_Click()\x0d\x0aRandomize\x0d\x0aText1.Text = Rnd\x0d\x0aEnd Sub欢迎分享,转载请注明来源:内存溢出
评论列表(0条)