请问怎么确定取随机数的范围 Rnd 函数返回小于 1 但大于或等于 0 的值。如比一条题目说0-100的随机数,这其中包不包括0或100呢,怎么才能准确理解题目。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 0-100 的随机数,一般意思上是指包括1和100的.100以内的正数,一般意思上指1-100.不过这些题目都出得不严格,严格一点的如:两位正整数.取数的范围,用:int(rnd(大数-小数+1))+小数来求. rnd * 100 ,取值范围为 0 -- 100要取值1 -- 100, 写成: (100-1)*rnd +1 Bmin=最小值Bmax=最大值(Bmax > Bmin)N = Int(Rnd * (Bmax - Bmin + 1)) + Bmin 试了下负数也支持,不错Private Sub Command1_Click()Debug.Print GetRndBetween(-5, 99)End SubFunction GetRndBetween(Bmin, Bmax)GetRndBetween = Int(Rnd * (Bmax - Bmin + 1)) + BminEnd Function '┏〓〓〓〓〓〓〓〓〓 GetRndBetween,start 〓〓〓〓〓〓〓〓〓┓'[简介]:'获取界于数1和数2之间的随机数Function GetRndBetween(Number1, Number2) '[mycode_id:2054],edittime:2011-9-20 上午 11:33:01 Randomize Timer + Rnd * 10 '重设随机数因子 GetRndBetween = Int(Rnd * (Number2 - Number1 + 1)) + Number1End Function'┗〓〓〓〓〓〓〓〓〓 GetRndBetween,end 〓〓〓〓〓〓〓〓〓┛ 有关于错误的问题 关于收集局域网中计算机硬件信息 求救,关于MSHFLEXGRID1的问题,右击选中单元格。。。 VB数据库初级问题,菜鸟求救! 反对美国侵略伊拉克的请在此登记 有没有目录选择的对话框?就象通用控件那样现成的东西。 如何把几个程序组合在一起?200分 急急急急急急!!!vb一个串口接收多祯数据问题 制作帮助中+脚注的问题? 关于操作EXCEL表格的问题!! 用vb如何打开ftp软件上传? PB中 FileCopy() 问题
100以内的正数,一般意思上指1-100.
不过这些题目都出得不严格,严格一点的如:两位正整数.
取数的范围,用:
int(rnd(大数-小数+1))+小数
来求.
要取值1 -- 100, 写成: (100-1)*rnd +1
Bmax=最大值
(Bmax > Bmin)N = Int(Rnd * (Bmax - Bmin + 1)) + Bmin
Private Sub Command1_Click()
Debug.Print GetRndBetween(-5, 99)
End SubFunction GetRndBetween(Bmin, Bmax)
GetRndBetween = Int(Rnd * (Bmax - Bmin + 1)) + Bmin
End Function
'[简介]:
'获取界于数1和数2之间的随机数
Function GetRndBetween(Number1, Number2)
'[mycode_id:2054],edittime:2011-9-20 上午 11:33:01
Randomize Timer + Rnd * 10 '重设随机数因子
GetRndBetween = Int(Rnd * (Number2 - Number1 + 1)) + Number1
End Function
'┗〓〓〓〓〓〓〓〓〓 GetRndBetween,end 〓〓〓〓〓〓〓〓〓┛