vb中Rnd（）怎么用?

来源：百度知道 编辑：UC知道 时间：2024/06/20 12:40:40
Function GetRanNum()
GetRanNum = ""
GetRanNum = GetRanNum&FormatIntNumber(year(now),4)
GetRanNum = GetRanNum&FormatIntNumber(month(now),2)
GetRanNum = GetRanNum&FormatIntNumber(day(now),2)
GetRanNum = GetRanNum&FormatIntNumber(hour(now),2)
GetRanNum = GetRanNum&FormatIntNumber(minute(now),2)
GetRanNum = GetRanNum&FormatIntNumber(second(now),2)
randomize
ranNum=int((9000*rnd)+1000)
GetRanNum = GetRanNum&ranNum
End Function

请问((9000*rnd)+1000)是什么意思？？
为什么会出现？？？？？？？
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'FormatIntNumber'
如果
9000*Rnd+1000就是生成1000到10000的随机数
那下面的语句还有什么用呢？？？？
GetRanNum = ""
GetRanNum = GetRanNum&FormatIntNumber(year(now),4)
GetRanNum = GetRanNum&FormatIntNumber(month(now),2)
GetRanNum = GetRanNum&FormatIntNumber(day(now),2)
GetRanNum = GetRanNum&FormatIntNumber(hour(now),2)
GetRanNum = GetR

Rnd是生成0到1的随机浮点数,没有什么,他一般用于产生随即数,如:INT(RND*10)就是产生1-10的随即书,9000*RND+1000就是生成1000到10000的随机数 ,
类型不匹配一般是类型不匹配

Rnd 函数
返回一个包含随机数值的 Single。
Rnd[(number)]

可选的 number 参数是 Single 或任何有效的数值表达式。

Rnd 函数示例

本示例使用 Rnd 函数随机生成一个 1 到 6 的随机整数。
Dim MyValue
MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值。

Rnd是生成0到1的随机浮点数。9000*Rnd+1000就是生成1000到10000的随机数

随机函数，返回大于0小于一的数

Rnd能够产生一个小于1的数,好象是single类型吧?你在对象浏览器可以找好多函数哦,默认快捷键是F2,一般在视图菜单中好象可以找到..