调用过程统计字符串中数字出现次数

Private Sub Command1_Click()

AutoRedraw = True

Dim a(1 To 30) As Integer
a1 = 0: a2 = 0: a3 = 0: a4 = 0: a5 = 0
a6 = 0: a7 = 0: a8 = 0: a9 = 0: a10 = 0
For i = 1 To 30
a(i) = Int(Rnd * 10)
Print a(i);
If a(i) = 0 Then a1 = a1 + 1
If a(i) = 1 Then a2 = a2 + 1
If a(i) = 2 Then a3 = a3 + 1
If a(i) = 3 Then a4 = a4 + 1
If a(i) = 4 Then a5 = a5 + 1
If a(i) = 5 Then a6 = a6 + 1
If a(i) = 6 Then a7 = a7 + 1
If a(i) = 7 Then a8 = a8 + 1
If a(i) = 8 Then a9 = a9 + 1
If a(i) = 9 Then a10 = a10 + 1
Next
Print
Print "数字0出现的次数为:"; a1, "数字1出现的次数为:"; a2
Print "数字2出现的次数为:"; a3, "数字3出现的次数为:"; a4
Print "数字4出现的次数为:"; a5, "数字5出现的次数为:"; a6
Print "数字6出现的次数为:"; a7, "数字7出现的次数为:"; a8
Print "数字8出现的次数为:"; a9, "数字9出现的次数为:"; a10
End Sub

这道题很基础，自己应该能做得；我们也是这学期刚学习vb；
我没用过程调用，你自己把程序转换一下就OK了

Private Sub Command1_Click()

Dim A(1 To 30) As Integer

Dim i As Integer

' 生产随机数
For i = 1 To 30
A(i) = Int(Rnd * 10)
Next

'调用统计
Call CountN(A(), Count)

End Sub

Private Sub CountN(A() As Integer, Count As Integer)

Dim c(9) As Integer

Dim i As Integer
Dim j As Integer
' 偏历 A 数组..
For i = LBound(A) To UBound(A)

j = A(i)

' 因为产生的数字是 0~9 所以. 直接用数组索引统计 0~9 数字

c(j) = c(j) + 1

Next

' 显示 统计的数字出现次数

Cls
For i = 0 To 9

Print "数字" & i & "出现次数:" & c(i)

Next

End Sub

你说完整点么，啥字符串啊？题目不完整。

要产生30个0-9的数字用下面代码
dim a(1 to 30) as integer
for i = 1 to 30
a(i)=int(rnd*10 )
next i

数组a 就是30个0-9的随机数。