VB随机数

VB随机数

问题补充说明：请问用VB可以写一段 随机产生0-100的数10000个，并算出10到20十一个数字每个数字出现的次数吗？

Subabc()

Dimarr(1To10000)

Setmyb=CreateObject("scripting.dictionary")

Fori=1To10000

arr(i)=Int(Rnd()*101)

Ifarr(i)>=10制素好需杀拿Andarr(i)<=快料块掉吸历校名固眼以20Then

IfNotmyb.exists(arr(i))Then

myb(arr(i))=1

Else

myb(arr(i))=myb(arr乙解担把(i))+1

En据觉离配病掉律标市镇dIf

EndIf

N斤游美跟ext

MsgBox"数字:"&Join(myb.keys,"-")&Chr(13)&Chr(10)&"次数:"&Join(myb.items,"-")

Erasea免怀适良命冷盾团长据载rr:Setmyb=Nothing

EndSub

10000个数随机产生的,那么10-20有可能没有11个数,有的不产生.