用vb编写输入一个0到100的数计算出现次数最多的一个

Dim a(100) As Integer
Dim max As Integer
Dim t As Integer
t = 0
For j = 1 To 100
x = Val(InputBox("请输入一个0-100的数"))
If x = 101 Then Exit For
For i = 1 To 100
If x = i Then a(i) = a(i) + 1
Next i
Next j
max = a(1)
For i = 2 To 100
If a(i) > max Then
max = a(i)
t = i
End If
Next
Print t

这个程序很容易就能实现