VB生成不重复的随机数

VB生成不重复的随机数 我的建议是:第一步、先做一个数组，存上这35个数(可以不是连续的数，也可以是人名、字符串什么的);第二步、随机生成一个1-35之间的数，输出;第三步:把这个数和数组的第一个单元交换;第四步、从数组的第2-35之间随机抽取第二个数，输出;第五步、把这随机抽取的第二个数和数组的第二个单元呼唤;第六步、随机抽取第三个数，输出。。。。。重复到从第35-35个数之间随机抽取一个数，这时直接输出最后一个就行了。 程序如下(VB6): 工程里默认的窗体上，画一个Command1，粘贴程序: option explicit private vArray(1 to 35) as currency '定义数组个数 private sub command1_click() test end sub private sub InitArray() dim i as long '给数组赋值 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 '设置随机因子，使其每次运行程序的随机数都不一样 iStart=1 do iPos=int(rnd*(ubound(vArray)-iStart+1))+iStart '产生iStart到35(35取自vArray的上标)之间的整数 sReturn=sReturn & vArray(iPos) & vbcrlf '输出 '交换单元内容 vTemp=vArray(iStart) vArray(iStart)=vArray(iPos) vArray(iPos)=vTemp iStart=iStart+1 '下次随机生成时，少生成一个 if iStart>=ubound(vArray) then '最后一个了，直接输出 sReturn=sReturn & vArray(ubound(vArray)) Exit Do end if if iStart>7 then exit do '如果需要生成几个数，就把7改成几，大于数组元素的个数，将输出速度的元素个数(这个例子是35) Loop msgbox sReturn 'msgbox 输出结果 end sub '=============================================================================== =============== '方法二 Private Sub Command1_Click() Dim a(35) As Integer For i = 0 To 35 way1: Randomize a(i) = Int(Rnd() * 36) + 1 If i > 1 Then For p = 0 To i - 1 If a(p) = a(i) Then '‘与前面的对比，如果有重复，重新随机 GoTo way1 End If Next p End If Print a(i); '打印 Next i Print "" '打印 End Sub '=============================================================================== =========== '方法三 如果楼主是要产生0-9等10个不重复的随机数的话，在随机数范围和个数相等的情况下，楼上的方法都无异于散弹打鸟。在最不利情况下时间将无限延长，特别是对更多随机数的时候。 以下提供两种思路: 1.实际上我们只要确定了其中9个数字那么第10个数字根本不用去想;确定8个，那么随机只在2个数之间，以此类推，使用动态数组如a()，先用for将10个数字加入，然后开始rnd*ubound(a)取得其中一个，放入数组b，再将该数字从a数组中剔除。速度:(n+n^2)/2 2.只需要得到10个无序排列的数字即可，没必要去一直产生随机数，只要打乱顺序即可。在 数组a中加入10个数字，然后开始for循环10次，每次产生一个10以内的随机数，然后将循环次数i与随机数的位置互换。速度:n '=============================================================================== ================= '方法四 关于随机数的不重复求取 Option Base 1 Private Sub Command1_Click() Randomize Timer Dim A(1 To 10) As Integer '数组M Dim B(1 To 8) As String '数组N Dim i As Integer, k As Integer, t As Integer For i = 1 To 10 A(i) = i Next For i = 1 To 10 '数组打乱 t = A(i) k = Fix(Rnd * 10) + 1 A(i) = A(k) A(k) = t Next For i = 1 To 8 '从M中随机取出N个数,不重复 B(i) = A(i) Next Label1.Caption = Join(B(), " , ") End Sub '方法五====================================================== Private Sub Command2_Click() Randomize Timer Dim Dimension(8) Dim i As Byte, j As Byte Randomize Timer For i = 1 To 8 Dimension(i) = Fix(Rnd * 10) + 1 Next i A: For i = 1 To 7 For j = i + 1 To 8 If Dimension(i) = Dimension(j) Then Dimension(i) = Fix(Rnd * 10) + 1 GoTo A End If Next j Next i Label1.Caption = Join(Dimension(), " , ") End Sub Private Sub Command3_Click() End End Sub '=============================================================== '方法六:(最快) 还有种方法是随机取数组中一个数,取出后将该元素与数组最后一个元素交换,然后随机上限减一 然后就是字符串的速度了...一次分配足够大的字符串,而不是用&连接字符串会快很多 Option Explicit Private Declare Function timeGetTime Lib "winmm.dll" () As Long Private Const MAX_N = 10000 - 1 '在1~(MAX_N+1)的数字中取 Private Sub Command1_Click() Dim Ary(MAX_N) As Long Dim i&, n&, p&, t&, ps& Dim s$, sTemp$ t = timeGetTime '初始化 For i = 0 To MAX_N Ary(i) = i + 1 Next Randomize ' '计算并为s分配足够的大小,下面是当n=MAX_N+1时最终的s的长度的精确值 ' i = MAX_N + 1: p = 0: ps = 9 ' Do Until i <= 9 ' p = p + 1 ' n = n + ps * p ' ps = ps * 10 ' i = i \ 10 ' Loop ' n = n + (p + 1) * (MAX_N - CLng(10 ^ p) + 2) + MAX_N ' s = String$(n, ",") n = MAX_N \ 2 '要取的个数,取所有的话用MAX_N+1 '计算并为s分配足够的大小 s = String$(n * Len(CStr(MAX_N + 1)), ",") '分配足够大的内存,以后再减 p = 0: ps = 1 Do Until p >= n i = CLng(Rnd * (MAX_N - p)) sTemp = CStr(Ary(i)) Mid$(s, ps, Len(sTemp)) = sTemp ps = ps + Len(sTemp) + 1 Ary(i) = Ary(MAX_N - p) '如果不想破坏数据,把这里改成2个元素交换,而不是简单赋值 p = p + 1 '抛弃数组最后一个元素 Loop s = Left$(s, ps - 2) '去掉多余的部分 t = timeGetTime - t Debug.Print s '输出 Debug.Print CStr(t), Len(s) End Sub '=============================================================== '方法七:(最快) Option Explicit Option Base 1 Private Declare Function timeGetTime Lib "winmm.dll" () As Long Const Nums = 10000 Private Sub Command1_Click() Dim t As Long Dim Num(Nums) As Long Dim i, n As Long Dim s As String t = timeGetTime Randomize For i = 1 To Nums n = Int(Rnd * Nums) + 1 If Num(n) = 0 Then Num(n) = n s = s & n & "," Else i = i - 1 End If Next i Text1.Text = s t = timeGetTime - t MsgBox t End Sub