Question

编写VB程序,根据用户在文本框text1中输入的字符串,统计其中数字(0~9)个数

,英文字母（区分大小写）的个数和其他字符的个数，并在窗体中输出这3个数

Answer 1

Private Sub Command1_Click()
Dim i%, l%, S%, N%, T%, S1%
l = Len(Text1)
For i = 1 To l
S1 = Asc(Mid(Text1, i, 1))

Select Case S1

Case 48 To 57

N = N + 1
Case 65 To 90, 97 To 122

S = S + 1
Case Else
T = T + 1
End Select
Next

Print N
Print S
Print T

End Sub

追问

确定是对的吗

追答

是的 N是数字，S是英文字母，T为其他