作业帮 > 综合 > 作业

vb利用随机函数产生50个1—6之间的整数,分别统计出1的个数,2的个数,3的个数,4的个数,5的个

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/04/29 19:50:21
vb利用随机函数产生50个1—6之间的整数,分别统计出1的个数,2的个数,3的个数,4的个数,5的个
private su command1_click()
dim a(1 to 6),b,i
for i=1 to 50
b=int(rnd*6)+1
a(b)=a(b)+1
next
for i=1 to 6
print i & "的个数:" & a(i)
next
end su