生成一串随机数的算法

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

本文主要是介绍生成一串随机数的算法_发牌问题，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

例子：从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

lngMax=39

lngTmp=lngMax

strData=""

for i=0 to n-1

lngRand=rnd_Integer(i,lngMax)

lngTmp=arr1(lngRand)