VB从键盘上输入一串字符,以“?”结束,统计输入字符中的大、小写字母和数字的个数

Private Sub Form_KeyPress(KeyAscii As Integer)
Static dx As Integer, xx As Integer, sz As Integer
Print Chr(KeyAscii);
Select Case KeyAscii
Case 48 To 57
sz = sz + 1
Case 65 To 90
dx = dx + 1
Case 97 To 122
xx = xx + 1
Case 63
Print
Print "大写字母："; dx
Print "小写字母："; xx
Print "数字："; sz
End Select
End Sub