VB中怎样统计一组数中每个数字出现的个数

VB中怎样统计一组数中每个数字出现的个数

Private Sub Command3_Click()
Dim a(100), b(100), c(10) As Integer
Randomize

For i = 1 To 100
a(i) = Int(Rnd * 100)
Print a(i);
If i Mod 10 = 0 Then Print
Next i

For i = 1 To 100
b(i) = a(i) Mod 10
Print b(i);
c(b(i)) = c(b(i)) + 1
If i Mod 10 = 0 Then Print
Next i

For i = 0 To 9
Print "a" & i & "=" & c(i)
Next i
End Sub

Private Sub Command3_Click()
Dim a%(1 to 100), b%(0 to 9)
For i = 1 To 100
a(i) = Int(Rnd * 100+1)
Print a(i);
If i Mod 10 = 0 Then
Print
End If
_____________________上面是随机产生100个整数～
for i=i to 100 then
j=a(i) mod 10－－－－－这步：整除10的与余数保存在j这个函数里
b(j)=j－－－－这步：因为定义里是0到9所以只需把余数存在对应的数组b(余数)里就行了～
next i
print "个位是0的数有" & b(0) & ”个”
print "个位是1的数有" & b(1) & ”个”
print "个位是2的数有" & b(2) & ”个”
print "个位是3的数有" & b(3) & ”个”
print "个位是4的数有" & b(4) & ”个”
print "个位是5的数有" & b(5) & ”个”
print "个位是6的数有" & b(6) & ”个”
print "个位是7的数有" & b(7) & ”个”
print "个位是8的数有" & b(8) & ”个”
print "个位是9的数有" & b(9) & ”个”
end sub