vb产生随机数

Question

生成10个0到9之间的随机整数，并进行统计。定义数组S，记录某个随机数出现的次数，元素S(i)(i=0,1,…9)的值等于i的随机整数的个数。要求输出的格式如下：

Answer 1

Private Sub Command1_Click()
form1.Cls
Randomize
Dim s(9) As Integer
For i = 0 To 9
a = Int(Rnd * 10)
s(a) = s(a) + 1
Print a;
Next
Print
For i = 0 To 9
Print "s(" & i & ")="; s(i)
Next
End Sub追问

额…………这个答案来的稍微有点晚了，不过还是谢谢你！