设计一个程序，提示用户从文本框输入1到12个大写字母，并在窗体上显示输入的每个字母，以及该字母在字符串中出现的次数。

有个VB编程的项目，是个分析仪器的应用软件，要求用VB做，在2-4个月内完成，报酬商量大概1-1.5w，希望是有开发经验。若有VB精通的高手请加我QQ：3 5 3 7 8 6 5 6。编程项目寻求VB高手兼职（限北京）急！

给你个小程序：
Private Sub Command1_Click()
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 65 Or KeyAscii > 90) And KeyAscii <> 8 And KeyAscii <> 13 Then KeyAscii = 0
If Len(Text1.Text) > 11 And KeyAscii <> 8 And KeyAscii <> 13 Then KeyAscii = 0
If (KeyAscii > 64 And KeyAscii < 91) Then Print ChrW(KeyAscii);
If KeyAscii = 13 Then
   Print
   Dim a(12) As String, b(12, 1) As String, str As String, c As Integer, i As Integer, m As Integer, n As Integer
   str = Text1.Text
   m = 0
   n = 0
   Do While Len(str) > 0
      b(m, n) = Left(str, 1)
      b(m, n + 1) = (Len(str) - Len(Replace(str, Left(str, 1), ""))) / Len(Left(str, 1))
      str = Replace(str, Left(str, 1), "")
      m = m + 1
   Loop
   For i = 0 To UBound(b) / 2 - 1
      Print b(i, 0); b(i, 1)
   Next
End If
End Sub

谢高手指点，马上去试试