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

自己到大学生部落家园dxsbl里面去提问吧，呵呵，这个问题我看分太少了点，哈哈

if right(text1.text,1)="?" then
’处理程序
end if