TA的每日心情 | 开心 2015-5-5 13:21 |
---|
签到天数: 1 天 连续签到: 1 天 [LV.1]测试小兵
|
2#
楼主 |
发表于 2013-9-4 09:12:40
|
只看该作者
已经从网上找到解决的办法:
'===================================
'作用:生成fromNum~toNum之间的随机数
'参数:fromNum~toNum=随机数范围
'返回值:随机数
'===================================
Function getRandNum(fromNum,toNum)
If (fromNum<0) or (toNum<0) Then
MsgBox "只接受大于零的输入"
getRandNum = -1
ElseIf fromNum>toNum then
MsgBox "起始值必须小于结束值"
getRandNum = -1
Else
Randomize
Dim myRnd
myRnd = Int(((toNum - fromNum + 1) * Rnd) + fromNum)
getRandNum = myRnd
End If
End Function
Dim x
x = getRandNum(800,1000)
msgbox x |
|