VB生成不重復(fù)的隨機(jī)數(shù)

VB生成不重復(fù)的隨機(jī)數(shù)VB生成不重復(fù)的隨機(jī)數(shù)我的建議是：第一步、先做一個(gè)數(shù)組，存上這35個(gè)數(shù)（可以不是連續(xù)的數(shù)，也可以是人名、字符串什么的）；第二步、隨機(jī)生成一個(gè)1-35之間的數(shù)，輸出；第三步：把這個(gè)數(shù)和數(shù)組的第一個(gè)單元交換；第四步、從數(shù)組的第2-35之間隨機(jī)抽取第二個(gè)數(shù)，輸出；第五步、把這隨機(jī)抽取的第二個(gè)數(shù)和數(shù)組的第二個(gè)單元內(nèi)容呼喚；第六步、隨機(jī)抽取第三個(gè)數(shù)，輸出。。。。。重復(fù)到從第35-35個(gè)數(shù)之間隨機(jī)抽取一個(gè)數(shù)，這時(shí)直接輸出最后一個(gè)就行了。程序如下（VB6）：工程里默認(rèn)的窗體上，畫一個(gè)Command1，粘貼程序：optionexplicitprivatevArray(1to35)ascurrency'定義數(shù)組個(gè)數(shù)privatesubcommand1_click()testendsubprivatesubInitArray()dimiaslong'給數(shù)組賦值fori=1to35varray(i)=inextiendsubprivatesubTest()dimiStartaslongdimiPosaslongdimvTempascurrencydimsReturnasstringInitArrayrandomizetimer'設(shè)置隨機(jī)因子，使其每次運(yùn)行程序的隨機(jī)數(shù)都不一樣iStart=1doiPos=int(rnd*(ubound(vArray)-iStart+1))+iStart'產(chǎn)生iStart到35（35取自vArray的上標(biāo)）之間的整數(shù)sReturn=sReturn&vArray(iPos)&vbcrlf'輸出'交換單元內(nèi)容vTemp=vArray(iStart)vArray(iStart)=vArray(iPos)vArray(iPos)=vTempiStart=iStart+1'下次隨機(jī)生成時(shí)，少生成一個(gè)ifiStart>=ubound(vArray)then'最后一個(gè)了，直接輸出sReturn=sReturn&vArray(ubound(vArray))ExitDoendififiStart>7thenexitdo'如果需要生成幾個(gè)數(shù)，就把7改成幾，大于數(shù)組元素的個(gè)數(shù)，將輸出速度的元素個(gè)數(shù)(這個(gè)例子是35）LoopmsgboxsReturn'msgbox輸出結(jié)果endsub'=============================================================================================='方法二PrivateSubCommand1_Click()Dima(35)AsIntegerFori=0To35way1:Randomizea(i)=Int(Rnd()*36)+1Ifi>1ThenForp=0Toi-1Ifa(p)=a(i)Then'‘與前面的對(duì)比，如果有重復(fù)，重新隨機(jī)GoToway1EndIfNextpEndIfPrinta(i);'打印NextiPrint""'打印EndSub'=========================================================================================='方法三如果樓主是要產(chǎn)生0-9等10個(gè)不重復(fù)的隨機(jī)數(shù)的話，在隨機(jī)數(shù)范圍和個(gè)數(shù)相等Ary(i)=i+1NextRandomize''計(jì)算并為s分配足夠的大小,下面是當(dāng)n=MAX_N+1時(shí)最終的s的長(zhǎng)度的精確值'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'要取的個(gè)數(shù),取所有的話用MAX_N+1'計(jì)算并為s分配足夠的大小s=String$(n*Len(CStr(MAX_N+1)),",")'分配足夠大的內(nèi)存,以后再減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)'如果不想破壞數(shù)據(jù),把這里改成2個(gè)元素交換,而不是簡(jiǎn)單賦值p=p+1'拋棄數(shù)組最后一個(gè)元素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