Question

如何使VB中Rnd函数产生的随机数是在[0,1]内？

Answer 1

VB的Rnd函数，其作用就是产生(0,1)之间的随机数，还不是[0，1]。
即：0 < Rnd < 1
根据上式，结合VB的Int（）等函数，可以产生你所需要的任意范围内的随机数。
例如1：根据 0 < Rnd < 1
那么就有： 0 < Rnd *10 < 10 产生(0,10)之间的随机数，注意这是实数

例如2： 0 <= Int（Rnd *10）< 10 产生[0,10)之间的随机数，注意这是正整数

例如3： 1 <= Int（Rnd *10）+ 1 <= 10 产生[1,10]之间的随机数，注意这是正整数

等等

追问

怎么才能产生0~1，且包含1的随机数？

追答

抱歉题目看错一个字，把“如何”看成“为何”了？
RND函数产生的范围是（0，1），不包括0和1的，所谓随机，无非是从概率的角度去理解的。
我想为了得到0和1，可以根据自己的需要，把原来产生的随机数，保留到若干位小数，比如保留4位小数，那么可以这样处理：
Dim x As Single
x = Rnd
If x = 0.9999 Then
x = 1
End If
Print x

Answer 2

只能得到[0,1）上的随机数，1取不到。即使如此，可以视作rnd[0,1]上的随机数，因为x=1的概率无限接近0.
Rnd，Visual Basic中随机函数。格式：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 则是随机数范围的下限。

Answer 3

VB中Rnd函数产生的随机数本来就是0～1之间，0<Rnd<1

追问

但是只包含0，不包含1啊，怎么才能包含1呢？

追答

不包含0，你到底要小数还是整数？

Answer 4

可以这样来做

round(rnd,1)