用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