VB生成不重复的随机数.docx
《VB生成不重复的随机数.docx》由会员分享，可在线阅读，更多相关《VB生成不重复的随机数.docx（8页珍藏版）》请在冰豆网上搜索。
VB生成不重复的随机数
VB生成不重复的随机数
VB生成不重复的随机数
我的建议是:
第一步、先做一个数组,存上这35个数（可以不是连续的数,也可以是人名、字符串什么的）;第二步、随机生成一个1-35之间的数,输出;第三步:
把这个数和数组的第一个单元交换;第四步、从数组的第2-35之间随机抽取第二个数,输出;第五步、把这随机抽取的第二个数和数组的第二个单元内容呼唤;第六步、随机抽取第三个数,输出。
。
。
。
。
重复到从第35-35个数之间随机抽取一个数,这时直接输出最后一个就行了。
程序如下（VB6）:
工程里默认的窗体上,画一个Command1,粘贴程序:
optionexplicit
privatevArray（1to35）ascurrency'定义数组个数
privatesubcommand1_click（）
test
endsub
privatesubInitArray（）
dimiaslong
'给数组赋值
fori=1to35
varray（i）=i
nexti
endsub
privatesubTest（）
dimiStartaslong
dimiPosaslong
dimvTempascurrency
dimsReturnasstring
InitArray
randomizetimer'设置随机因子,使其每次运行程序的随机数都不一样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'下次随机生成时,少生成一个
ifiStart>=ubound（vArray）then
'最后一个了,直接输出
sReturn=sReturn&vArray（ubound（vArray））
ExitDo
endif
ifiStart>7thenexitdo'如果需要生成几个数,就把7改成几,大于数组元素的个数,将输出速度的元素个数（这个例子是35）
Loop
msgboxsReturn'msgbox输出结果
endsub
'==============================================================================================
'方法二
PrivateSubCommand1_Click（）
Dima（35）AsInteger
Fori=0To35
way1:
Randomize
a（i）=Int（Rnd（）*36）+1
Ifi>1Then
Forp=0Toi-1
Ifa（p）=a（i）Then'‘与前面的对比,如果有重复,重新随机
GoToway1
EndIf
Nextp
EndIf
Printa（i）;'打印
Nexti
Print""'打印
EndSub
'==========================================================================================
'方法三
如果楼主是要产生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
'================================================================================================
'方法四
关于随机数的不重复求取
OptionBase1
PrivateSubCommand1_Click（）
RandomizeTimer
DimA（1To10）AsInteger'数组M
DimB（1To8）AsString'数组N
DimiAsInteger,kAsInteger,tAsInteger
Fori=1To10
A（i）=i
Next
Fori=1To10'数组打乱
t=A（i）
k=Fix（Rnd*10）+1
A（i）=A（k）
A（k）=t
Next
Fori=1To8'从M中随机取出N个数,不重复
B（i）=A（i）
Next
Label1.Caption=Join（B（）,","）
EndSub
'方法五======================================================PrivateSubCommand2_Click（）
RandomizeTimer
DimDimension（8）
DimiAsByte,jAsByte
RandomizeTimer
Fori=1To8
Dimension（i）=Fix（Rnd*10）+1
Nexti
A:
Fori=1To7
Forj=i+1To8
IfDimension（i）=Dimension（j）Then
Dimension（i）=Fix（Rnd*10）+1
GoToA
EndIf
Nextj
Nexti
Label1.Caption=Join（Dimension（）,","）
EndSub
PrivateSubCommand3_Click（）
End
EndSub
'==============================================================='方法六:
（最快）
还有种方法是随机取数组中一个数,取出后将该元素与数组最后一个元素交换,然后随机上限减一
然后就是字符串的速度了...一次分配足够大的字符串,而不是用&连接字符串会快很多
OptionExplicit
PrivateDeclareFunctiontimeGetTimeLib"winmm.dll"（）AsLong
PrivateConstMAX_N=10000-1'在1~（MAX_N+1）的数字中取
PrivateSubCommand1_Click（）
DimAry（MAX_N）AsLong
Dimi&,n&,p&,t&,ps&
Dims$,sTemp$
t=timeGetTime
'初始化
Fori=0ToMAX_N
Ary（i）=i+1
Next
Randomize
''计算并为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=1
DoUntilp>=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.Prints'输出
Debug.PrintCStr（t）,Len（s）
EndSub
'==============================================================='方法七:
（最快）
OptionExplicit
OptionBase1
PrivateDeclareFunctiontimeGetTimeLib"winmm.dll"（）AsLongConstNums=10000
PrivateSubCommand1_Click（）
DimtAsLong
DimNum（Nums）AsLong
Dimi,nAsLong
DimsAsString
t=timeGetTime
Randomize
Fori=1ToNums
n=Int（Rnd*Nums）+1
IfNum（n）=0Then
Num（n）=n
s=s&n&","Else
i=i-1
EndIf
Nexti
Text1.Text=s
t=timeGetTime-t
MsgBoxt
EndSub
升级会员 