private sub form_click()
dim s(1 to 6) as integer
dim i as integer, n as integer
randomize timer
for i = 1 to 1000
n =Rnd[6]
s(n)=s(n)+1
next i
for i =1 to 6
print i;"点出现";s(i);"次。"
next i
end sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024