Question

vb中Rnd（）怎么用?

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 = GetRanNum&FormatIntNumber(minute(now),2)
GetRanNum = GetRanNum&FormatIntNumber(second(now),2)

Answer 1

vb中Rnd（）使用语法：Rnd[(number)] 。((9000*rnd)+1000)中，由于Rnd是[0，1），（9000*Rnd）+1000为[1000，10000），所以得出1000~10000的随机数。

其中：如果 number 的值是 Randomize 生成，小于 0 ，每次都使用 number 作为随机数种子得到的相同结果。大于 0 ，以上一个随机数为种子产生下一个随机数。等于 0 ，产生与最近生成的随机数相同的随机数。省略， 以上一个随机数为种子产生下一个随机数。

产生指定范围的随机整数，请使用以下公式：Int((upperbound - lowerbound + 1) * Rnd + lowerbound)。

使用例子：

dim max,min

max=100

min=1

document.write(Int((max-min+1)*Rnd+min))

输出：71

扩展资料：

相关说明：

Rnd 函数返回小于 1 但大于或等于 0 的值。

number 的值决定了 Rnd 生成随机数的方式。

对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。

在调用 Rnd 之前，先使用无参数的 Randomize语句初始化随机数生成器（若带参数，则产生由参数对应的一个特定序列的随机数），该生成器具有根据系统计时器得到的种子。

参考资料来源：百度百科-rnd （随机函数）

Answer 2

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

Answer 3

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

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

Rnd 函数示例

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

Answer 4

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

Answer 5

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