VB生成不重复的随机数

VB生成不重复的随机数VB生成不重复的随机数我的建议是：第一步、先做一个数组，存上这35个数（可以不是连续的数，也可以是人名、字符串什么的）；第二步、随机生成一个1-35之间的数，输出；第三步：把这个数和数组的第一个单元交换；第四步、从数组的第2-35之间随机抽取第二个数，输出；第五步、把这随机抽取的第二个数和数组的第二个单元内容呼唤；第六步、随机抽取第三个数，输出。。。。。重复到从第35-35个数之间随机抽取一个数，这时直接输出最后一个就行了。程序如下（VB6）：工程里默认的窗体上，画一个Command1，粘贴程序：optionexplicitprivatevArray(1to35)ascurrency'定义数组个数privatesubcommand1_click()testendsubprivatesubInitArray()dimiaslong'给数组赋值fori=1to35varray(i)=inextiendsubprivatesubTest()dimiStartaslongdimiPosaslongdimvTempascurrencydimsReturnasstringInitArrayrandomizetimer'设置随机因子，使其每次运行程序的随机数都不一样iStart=1doiPos=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)=vTempiStart=iStart+1'下次随机生成时，少生成一个ifiStart>=ubound(vArray)then'最后一个了，直接输出sReturn=sReturn&vArray(ubound(vArray))ExitDoendififiStart>7thenexitdo'如果需要生成几个数，就把7改成几，大于数组元素的个数，将输出速度的元素个数(这个例子是35）LoopmsgboxsReturn'msgbox输出结果endsub'=============================================================================================='方法二PrivateSubCommand1_Click()Dima(35)AsIntegerFori=0To35way1:Randomizea(i)=Int(Rnd()*36)+1Ifi>1ThenForp=0Toi-1Ifa(p)=a(i)Then'‘与前面的对比，如果有重复，重新随机GoToway1EndIfNextpEndIfPrinta(i);'打印NextiPrint""'打印EndSub'=========================================================================================='方法三如果楼主是要产生0-9等10个不重复的随机数的话，在随机数范围和个数相等Ary(i)=i+1NextRandomize''计算并为s分配足够的大小,下面是当n=MAX_N+1时最终的s的长度的精确值'i=MAX_N+1:p=0:ps=9'DoUntili<=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=1DoUntilp>=ni=CLng(Rnd*(MAX_N-p))sTemp=CStr(Ary(i))Mid$(s,ps,Len(sTemp))=sTempps=ps+Len(sTemp)+1Ary(i)=Ary(MAX_N-p)'如果不想破坏数据,把这里改成2个元素交换,而不是简单赋值p=p+1'抛弃数组最后一个元素Loops=Left$(s,ps-2)'去掉多余的部分t=timeGetTime-tDebug.Prints'输出Debug.PrintCStr(t),Len(s)EndSub'==============================================================='方法七：（最快)OptionExplicitOptionBase1PrivateDeclareFunctiontimeGetTimeLib"winmm.dll"()AsLongConstNums=10000PrivateSubCommand1_Click()DimtAsLongDimNum(Nums)AsLongDimi,nAsLongDimsAsStringt=timeGetTimeRandomizeFori=1ToNumsn=I