vb的随机数算法vb的rnd算得的随机数,多次运算以后,得出的随机数重复次数很多,有什么更好的算法,最好给出源代码 答案 PrivateSubCommand1_Click() DimflagAsBoolean Dimr(1000) DimdAsString Randomize'初始化随机种子 Fori=0To10'出11个100以内的不重复数 Do r(i)=Int(Rnd()