例子:从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之间的随机数 |
这个例子很典型,留着做个参考吧