发帖
雷达卡
一个很奇怪的问题
分别用 VC 和 VBA 产生由 1，2 组成的伪随机数序列，序列长度为 30，来看序列中连续出现 1 的最大个数。
比如，有一个序列长度为 30， 由 1，2 组成的伪随机数序列：
1 2 2 1 2 1 1 2 1 1 1 1 1 1 1 1 2 1 1 2 1 2 1 1 1 2 2 1 2 1
则序列中连续出现 1 的最大个数是 8 。
=========================================================================
（a） 用 VC 产生一个序列长度为 30， 由 1，2 组成的伪随机数序列的程序为：
int c[30];
srand((unsigned)time(NULL));
for(int i=0;i<=29;i++)
{
c=rand()%(2-1+1)+1;
}
=========================================================================
（b） 用 VBA 在 excel 上产生一个序列长度为 30， 由 1，2 组成的伪随机数序列的程序为：
Randomize
For j = 1 To 30 Step 1
Cells(1,j) = Int(2 * Rnd() + 1)
Next j
=========================================================================
结果发现很奇怪的问题：
（1）用 VC 产生序列长度为 30， 由1，2组成的伪随机数序列， 序列中连续出现 1 的最大个数是 15，不会超过 15。（已验证了 10 亿个这样的序列，均如此）
（2）而 VBA 产生序列长度为 30， 由1，2组成的伪随机数序列，序列中连续出现 1 的最大个数很容易就超过 20 （任意每产生 2 千个这样的序列都能达到，已累计验证了 40 亿个这样的序列，均如此），有的甚至可以达到 30。（即 30 个全部是 1）
哪位高手能指点问题究竟出在哪里 ？
京公网安备 11010802022788号
