Question

vb编写一段程序，对输入的字符串进行识别，找出其中大写字母，小写字母,空格，数字及其他字符的个数.

分开输出，分别分大写字母数，小写字母数。数字数，空格数。。下面还要有一个输入框。。。。。。

Answer 1

Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
aa = Mid(Text1.Text, i, 1)
Select Case Asc(aa)
Case 32
空格 = 空格 + 1
Case 48 To 57
数字 = 数字 + 1
Case 65 To 90
大写 = 大写 + 1
Case 97 To 120
小写 = 小写 + 1
Case Else
其他 = 其他 + 1
End Select
Next
Print "空格数:"; 空格
Print "数字数:"; 数字
Print "大写数:"; 大写
Print "小写数:"; 小写
Print "其他数:"; 其他

End Sub