生成一串随机数的算法_发牌问题

例子：从1－40之间随机取出n个数值，返回一个随机数的数组

这是一个很常见的算法，通常的做法是建立一个数组，从里面取出第一个数a，再取第二个数b，此时需要判断b不等于a才行，否则就需要重新生成，再取出第三个数c，c不能等于a或者b，依次类推，越到后面，由于没被选中的数字越少，就会不断的生成随机数，结果发现已经被生成过了，又不断的被放回去，这样效率肯定会有问题。

其实这是一个发牌的问题，解决的方法也很简单，只需要取出a后，将a和数组下标1的数字和a对调，再次生成随机数的时候，就别从下标1－40之间取，而是从2－40之间取值，得到b后，将下标2的数字和b对调。依次类推。这里因为使用的vbs，所以其实是0-39下标。生成的结果就在数组的0－n-1中。

'显示输入框,将输入内容赋值给i n = InputBox("请输入n(6-40)",VbOnlyOk, "18") dim arr1(39) for i=0 to 39 arr1(i)=i+1 next lngMax=39 lngTmp=lngMax strData="" for i=0 to n-1 lngRand=rnd_Integer(i,lngMax) lngTmp=arr1(lngRand) arr1(lngRand)=arr1(i) arr1(i)=lngTmp Next Dim arr2() ReDim arr2(n-1) for i=0 to n-1 arr2(i)=arr1(i) next '得到一个Min和Max之间的随机数 Function rnd_Integer(Min,Max) Randomize rnd_Integer = int((Max-Min)*Rnd()+Min) End Function

这个例子很典型，留着做个参考吧