VB随机数请问用VB可以写一段随机产生0
展开全部
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个数,有的不产生.
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
