| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4080 人关注过本帖
标题: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
快速回复:vb中关于rnd函数
数据加载中...
 
   



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

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