VB随机数请问用VB可以写一段随机产生0
请问用可以写一段 随机产生0-100的数10000个，并算出10到20十一个数字每个数字出现的次数吗？
Subabc()Dimarr(1To10000)Setmyb=CreateObject("scripting.dictionary")Fori=1To10000arr(i)=Int(Rnd()*101)Ifarr(i)>=10Andarr(i)<=20ThenIfNotmyb.exists(arr(i))Thenmyb(arr(i))=1Elsemyb(arr(i))=myb(arr(i))+1EndIfEndIfNextMsgBox"数字:"&Join(myb.keys,"-")&Chr(13)&Chr(10)&"次数:"&Join(myb.items,"-") 个数随机产生的,那么10-20有可能没有11个数,有的不产生.