vba随机函数RND怎么用？

Question

如题所述

Answer 1

答：VBA里的随机函数是RND，在工作表中随机函数是RAND，一字之差，大家可要记好了。
RND函数的用法如下。
格式：Rnd(<数值表达式)
　　功能：求(0,1)之间的一个随机数　　语法：　　Rnd[(number)]
　　如果 number 的值是 Randomize 生成
　　小于 0 ，每次都使用 number 作为随机数种子得到的相同结果。
　　大于 0 ，以上一个随机数为种子产生下一个随机数。
　　等于 0 ，产生与最近生成的随机数相同的随机数。
　　省略， 以上一个随机数为种子产生下一个随机数。
　　说明　　Rnd 函数返回小于 1 但大于或等于 0 的值。
　　number 的值决定了 Rnd 生成随机数的方式。
　　对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。
　　在调用 Rnd 之前，先使用无参数的Randomize
语句初始化随机数生成器（若带参数，则产生由参数对应的一个特定序列的随机数），该生成器具有根据系统计时器得到的种子。
　　为了生成某个范围内的随机整数，可使用以下公式：
　　Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
　　这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。
　　注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。
　　2、Int((upperbound - lowerbound + 1) * Rnd + lowerbound)编辑本段Rnd 函数示例
　　本示例使用 Rnd 函数随机生成一个 1 到 6 的随机整数。
　　DimMyValue　　MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值 ,这里的int 是把后面产生的小数转换成整数

Answer 2

要点：

取特定区间的数[a,b)表示为Int（(b * Rnd) + a）

rnd本指取[0,1)之间的数

Randomize 语句初始化随机数生成器。 
语法 
Randomize [number] 
可选的 number 参数是 Variant 或任何有效的数值表达式。 
说明 
Randomize 用 number 将 Rnd 函数的随机数生成器初始化，该随机数生成器给 number 一个新的种子值。如果省略 number，则用系统计时器返回的值作为新的种子值。 
如果没有使用 Randomize，则（无参数的）Rnd 函数使用第一次调用 Rnd 函数的种子值）

四舍五入函数Round(x1[,x2]) 
四舍五入保留小数x2位，省略表示为取整

代码区

猜数游戏

如果不使用Randomize，则随机数第一次写入内存后就不会更改，下次运行 
值不变。Randomize重在可以初始化内存中的随机数值

本回答被网友采纳

Answer 3

答：VBA里的随机函数是RND，在工作表中随机函数是RAND，一字之差，大家可要记好了。
RND函数的用法如下。
格式：Rnd(<数值表达式)
　　功能：求(0,1)之间的一个随机数　　语法：　　Rnd[(number)]
　　如果
number
的值是
Randomize
生成
　　小于
0
，每次都使用
number
作为随机数种子得到的相同结果。
　　大于
0
，以上一个随机数为种子产生下一个随机数。
　　等于
0
，产生与最近生成的随机数相同的随机数。
　　省略，
以上一个随机数为种子产生下一个随机数。
　　说明　　Rnd
函数返回小于
1
但大于或等于
0
的值。
　　number
的值决定了
Rnd
生成随机数的方式。
　　对最初给定的种子都会生成相同的数列，因为每一次调用
Rnd
函数都用数列中的前一个数作为下一个数的种子。
　　在调用
Rnd
之前，先使用无参数的Randomize
语句初始化随机数生成器（若带参数，则产生由参数对应的一个特定序列的随机数），该生成器具有根据系统计时器得到的种子。
　　为了生成某个范围内的随机整数，可使用以下公式：
　　Int((upperbound
-
lowerbound
+
1)
*
Rnd
+
lowerbound)
　　这里，upperbound
是随机数范围的上限，而
lowerbound
则是随机数范围的下限。
　　注意
若想得到重复的随机数序列，在使用具有数值参数的
Randomize
之前直接调用具有负参数值的
Rnd。使用具有同样
number
值的
Randomize
是不会得到重复的随机数序列的。
　　2、Int((upperbound
-
lowerbound
+
1)
*
Rnd
+
lowerbound)编辑本段Rnd
函数示例
　　本示例使用
Rnd
函数随机生成一个
1
到
6
的随机整数。
　　DimMyValue　　MyValue
=
Int((6
*
Rnd)
+
1)
'
生成
1
到
6
之间的随机数值
,这里的int
是把后面产生的小数转换成整数

Answer 4

1~16的随机整数：Int((16 * Rnd) + 1)
1~16的随机数：15 * Rnd + 1

格式：rnd(<数值表达式)
功能：求(0,1)之间的一个随机数　　语法：　　rnd[(number)]
如果 number 的值是 randomize 生成
小于 0 ，每次都使用 number 作为随机数种子得到的相同结果。
大于 0 ，以上一个随机数为种子产生下一个随机数。
等于 0 ，产生与最近生成的随机数相同的随机数。
省略， 以上一个随机数为种子产生下一个随机数。
说明　　rnd 函数返回小于 1 但大于或等于 0 的值。

Answer 5