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个数,有的不产生.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024