输入一串字符，以“？”结束。统计其中字母个数，数字个数，其它符号个数。

Private Sub Form_Click()
Dim a As String
a1 = 0
a2 = 0
a3 = 0
a = InputBox("请输入字符串，以?号结束")
For i = 1 To Len(a) - 1
c = Mid(a, i, 1)
Select Case Asc(c)
Case 65 To 90, 97 To 122
a1 = a1 + 1
Case 48 To 57
a2 = a2 + 1
Case Else
a3 = a3 + 1
End Select
Next i
Print Left(a, Len(a) - 1)
Print " 字母有" & a1 & "个"
Print " 数字有" & a2 & "个"
Print "其他字符有" & a3 & "个"

End Sub

主要用FOR NEXT 循环，和MID函数以及IF 条件句