VB生成不重复随机数.docVIP

.. VB生成不重复的随机数 VB生成不重复的随机数 我的建议是：第一步、先做一个数组，存上这35个数（可以不是连续的数，也可以是人名、字符串什么的）；第二步、随机生成一个1-35之间的数，输出；第三步：把这个数和数组的第一个单元交换；第四步、从数组的第2-35之间随机抽取第二个数，输出；第五步、把这随机抽取的第二个数和数组的第二个单元内容呼唤；第六步、随机抽取第三个数，输出。。。。。重复到从第35-35个数之间随机抽取一个数，这时直接输出最后一个就行了。 程序如下（VB6）： 工程里默认的窗体上，画一个Command1，粘贴程序： option explicit private vArray(1 to 35) as currency #39;定义数组个数 private sub command1_click() test end sub private sub InitArray() dim i as long #39;给数组赋值 for i=1 to 35 varray(i)=i next i end sub private sub Test() dim iStart as long dim iPos as long dim vTemp as currency dim sReturn as string InitArray randomize timer #39;设置随机因子，使其每次运行程序的随机数都不一样 iStart=1 do iPos=int(rnd*(ubound(vArray)-iStart+1))+iStart #39;产生iStart到35（35取自vArray的上标）之间的整数 sReturn=sReturn amp; vArray(iPos) amp; vbcrlf #39;输出 #39;交换单元内容 vTemp=vArray(iStart) vArray(iStart)=vArray(iPos) vArray(iPos)=vTemp iStart=iStart+1 #39;下次随机生成时，少生成一个 if iStartgt;=ubound(vArray) then #39;最后一个了，直接输出 sReturn=sReturn amp; vArray(ubound(vArray)) Exit Do end if if iStartgt;7 then exit do #39;如果需要生成几个数，就把7改成几，大于数组元素的个数，将输出速度的元素个数(这个例子是35） Loop msgbox sReturn #39;msgbox 输出结果 end sub #39;============================================================================================== #39;方法二 Private Sub Command1_Click() Dim a(35) As Integer For i = 0 To 35 way1: Randomize a(i) = Int(Rnd() * 36) + 1 If i gt; 1 Then For p = 0 To i - 1 If a(p) = a(i) Then #39;‘与前面的对比，如果有重复，重新随机 GoTo way1 End If Next p End If Print a(i); #39;打印 Next i Print quot;quot; #39;打印 End Sub #39;========================================================================================== #39;方法三 如果楼主是要产生0-9等10个不重复的随机数的话，在随机数范围和个数相等的情况下，楼上的方法都无异于散弹打鸟。在最不利情况下时间将无限延长，特别是对更多随机数的时候。 以下提供两种思路： 1.实际上我们只要确定了其中9个数字那么第10个数字根本不用去想； 确定8个，那么随机只在2个数之间，以此类推，使用动态数组如a()，先用for将10个数字加入，然后开始rnd*ubound(a)取得其中一个，放入数组b，再将该数字从a数组中剔除。速度：(n+n^2)/2 2.只需要得到10个