每个InputBox函数输入一个字符，连续使用Input函数可以输入一串字符，以"#"表示结束输入。统计输入字符中的大、小写字母和数字的个数。
Private Sub Command1_Click()
n1 = 0
n2 = 0
n3 = 0
ch = InputBox("请输入一个字符")
Do While ch <> "#"
Select Case ch
Case "a" To "z"
n1 = n1 + 1
Case "A" To "Z"
n2 = n2 + 1
Case "0" To "9"
n3 = n3 + 1
End Select
ch = InputBox("请输入一个字符")
Loop
Print "小写字母的个数:"; n1
Print "大写字母的个数:"; n2
Print "数字字符的个数:"; n3
End Sub