作业帮 > 综合 > 作业

用vb做随机产生100个0至9之间的整数,并统计出每个数的个数输出.

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/12 23:42:25
用vb做随机产生100个0至9之间的整数,并统计出每个数的个数输出.
哪位大哥帮帮忙,急啊.谢谢
用vb做随机产生100个0至9之间的整数,并统计出每个数的个数输出.
Private Sub Command1_Click() Cls Dim a(9) As Integer For l = 1 To 100 x = Int(Rnd * 10) Debug.Print x For i = 0 To 9 If i = x Then a(i) = a(i) + 1 Exit For End If Next i Next l For i = 0 To 9 Print i; " 出现 "; a(i); "次" Next i End Su