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

来源：百度知道 编辑：UC知道 时间：2024/06/23 22:00:34
编写一程序，用随机函数产生〔0－99〕范围的随机整数，统计个位上数字分别为1，2，3，4，5，6，7，8，9，0的数的个数。
以下是我编的程序，请高手指教

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

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

For i = 1 To 100
b(i) = a(i) Mod 10
Print b(i);
If i Mod 10 = 0 Then
Print
End If
Select Case b(i)
Case b(i) = 0
a0 = a0 + 1
Case b(i) = 1
a1 = a1 + 1
Case b(i) = 2
a2 = a2 + 1
Case b(i) = 3
a3 = a3 + 1
Case b(i) = 4
a4 = a4 + 1
Case b(i) = 5
a5 = a5 + 1
Case b(i) = 6
a6 = a6 + 1
Case b(i) = 7
a7 = a7 + 1
Case b(i) = 8
a8 = a8 + 1
Case b(i) = 9
a9 = a9 + 1
End Select
Next i
Print

Print "a0="; a0
Print "a1="; a1
Print "a2="; a2
Print "a3="; a3
Print "a4="; a4
Print

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)