标题:vb中关于rnd函数
只看楼主
ryxhh
Rank: 1
等 级:新手上路
威 望:1
帖 子:63
专家分:0
注 册:2005-12-18
 问题点数:0 回复次数:3 
vb中关于rnd函数

各位高手,我刚开始学习VB,想问一个有关于rnd问题

Private Sub Form_Click()
Dim a As Integer
a = 100 * Rnd
Print a

End Sub

每次运行时,输出的值都相同,为什么啊

搜索更多相关主题的帖子: rnd 函数 
2006-01-13 16:58
xinfresh
Rank: 4
等 级:贵宾
威 望:13
帖 子:594
专家分:0
注 册:2006-1-13
得分:0 
要加一个Randomize在最前面才能实现Rnd函数的功能

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042
2006-01-13 18:10
kfp_kaka
Rank: 4
等 级:贵宾
威 望:13
帖 子:353
专家分:0
注 册:2006-1-12
得分:0 

Randomize语句是用来初始化随机数发生器的,一般使用随机函数之前都先调用这个,如果你想让rnd函数产生一定范围内的随机整数,可以用以下这个表达式:
Int((上限-下限+1)*Rnd+下限)
Int()的含义是取小数的整数部分,具体例子如下:
要产生11~30的随机数,可以这样写
Private Sub Form_Click()
Dim a As Integer
Randomize
a = Int((30-11+1)*Rnd+11)
Print a
End Sub


爱一个人不一定要拥有她 拥有一个人就一定要好好的爱她
2006-01-13 21:28
ryxhh
Rank: 1
等 级:新手上路
威 望:1
帖 子:63
专家分:0
注 册:2005-12-18
得分:0 

谢了


2006-01-14 11:55



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-42792-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.029020 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved