用什么语言编写呢?
追问vb语音
vb程序设计
追答Sub 统计键盘输入()
Dim S$, I%, N1%, N2%, N3%
Do
S = InputBox("请键入要统计的字母或数字,不键入时退出")
If S = "" Then Exit Do
For I = 1 To Len(S)
If Mid(S, I, 1) Like "[A-Z]" Then
N1 = N1 + 1
ElseIf Mid(S, I, 1) Like "[a-z]" Then
N2 = N2 + 1
ElseIf Mid(S, I, 1) Like "[0-9]" Then
N3 = N3 + 1
End If
Next
MsgBox "在 " & S & " 中" & Chr(13) & "大写字母:" & N1 & Chr(13) & "小写字母:" & N2 & Chr(13) & "数字字符:" & N3
Loop
End Sub