Question

在vb中怎样随机生成0到1之间的数包阔0和1

Answer 1

rnd()*1.000001!
由于为rnd()函数是单精度类型，1.000001!是单精度类型里大于1的最小值。这个函数不会产生大于1的随机数，但可以产生1。
但是，VB在这种运算上会导致一个bug，使1<>1。建议你规定一下随机数的小数范围，使用Format函数对某一位小数进行四舍五入，即可实现你的要求：
val(Format(rnd(),"0.0000")) '四位小数

Answer 2

Dim a,b As Integer
For a=1 to 50
Randomize
b=int(rnd(1)*2)
MsgBox b
Next a
这个程序会产生50个0和1的随机数，弹出50个信息框。

Answer 3

给一个思路
int(rnd*1001)/1000
根据需要调整1001 和1000的值

Answer 4

Randomize
i = Int(Rnd * 1.0000 + 0)