您所在位置：主题：[讨论]Rnd函数真的能做到完全的数学理论上的随机吗?---moz进来一下
yaoyusheng
[专家分：460] 发布于 2007-08-28 14:50:00
a = 0: b = 0: c = 0: d = 0: e = 0: f = 0: g = 0: h = 0
For i = 1 To 10000
n = Int(Rnd * 79 + 1)
If n < 10 Then a = a + 1
If n >= 10 And n < 20 Then b = b + 1
If n >= 20 And n < 30 Then c = c + 1
If n >= 30 And n < 40 Then d = d + 1
If n >= 40 And n < 50 Then e = e + 1
If n >= 50 And n < 60 Then f = f + 1
If n >= 60 And n < 70 Then g = g + 1
If n >= 70 And n < 80 Then h = h + 1
Next i
Print a; b; c; d; e; f; g; h
运行这个程序,感觉产生随机数40以上的稍多一点.
要是一个一个地试,感觉更不好了,
不信你们可以运行下面这个程序76次,
n=int(rnd*76+1)
print n
出现50-59次数最多,60-76的次数不少,而0-20的次数真的很少.
For i = 1 To 10000
n = Int(Rnd * 79 + 1)
If n < 10 Then a = a + 1
If n >= 10 And n < 20 Then b = b + 1
If n >= 20 And n < 30 Then c = c + 1
If n >= 30 And n < 40 Then d = d + 1
If n >= 40 And n < 50 Then e = e + 1
If n >= 50 And n < 60 Then f = f + 1
If n >= 60 And n < 70 Then g = g + 1
If n >= 70 And n < 80 Then h = h + 1
Next i
Print a; b; c; d; e; f; g; h
运行这个程序,感觉产生随机数40以上的稍多一点.
要是一个一个地试,感觉更不好了,
不信你们可以运行下面这个程序76次,
n=int(rnd*76+1)
print n
出现50-59次数最多,60-76的次数不少,而0-20的次数真的很少.
