帮忙用vb做个计数器吧

实现功能如下：一个输入框，人工输入从101至518之间的三位数，一次输入一个三位数，每输入完一个三位数，回车就显示出到目前为止，总共输入了多少个101，多少个102，多少个103，。。。。多少个518。
输入的不同的三位数不到100个，但所有三位数的数目不确定。
晕，俺对编程只在大学学了一点点，领导临时交给俺一个统计选票的任务，现磨刀都来不及了，请大家帮帮忙吧。
选票输入到excel更麻烦吧。我的设想是用vb做个小程序，只有一个输入框，然后把投票的代号输进去，回车后输入框自动清零，显示的结果则自动+1，然后如此反复。关键是领导让我负责写个小程序，输入和统计的事由别人负责。显示的结果最好就直接显示在标签上。

我做出来了，怎么给你啊？要不把你QQ给我传给你吧。。。

倒不如把选票输入到EXCEL直接统计
COUNTIF(Range,Criteria)

另外,问题也没说太清楚,用VB编的话,你想结果显示到什么地方,是文本文件?还是标签..
估计你把VB程序写出来,手工统计都做完了.

Dim a(100 To 518)
Private Sub Command1_Click()
Call tp
End Sub

Private Sub Command2_Click()
For i = 100 To 518
If a(i) = "" Or a(i) = 0 Then
Else
MsgBox i & "|" & a(i)
End If
Next
End Sub

Public Sub tp()
If Len(Text1.Text) <> 3 Then Text1.SetFocus: Text1.Text = "": Exit Sub
If Not IsNumeric(Text1.Text) Then Text1.SetFocus: Text1.Text = "": Exit Sub
If CLng(Text1.Text) > 518 Or CLng(Text1.Text) < 100 Then Text1.SetFocus: Text1.Text = "": Exit Sub
a(Text1.Text) = a(Text1.Text) + 1
Text1.Text = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call tp