VB编写一个程序，统计输入的字符串中小写字母、大写字母、数字及其他符号的个数

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

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

下次贴代码，别贴截图。你还指望别人练打字抄一遍吗？
'改为Print "大写字母有：" & CStr(Num1) & "个"

Private Sub Command1_Click()
s = Len(Text1)
For i = 1 To s
If Mid(Text1, i, 1) <> 32 Then '没空格
If 97 < Asc(Mid(Text1, i, 1)) And Asc(Mid(Text1, i, 1)) < 122 Then a = a + 1 '小写字母
If 65 < Asc(Mid(Text1, i, 1)) And Asc(Mid(Text1, i, 1)) < 90 Then b = b + 1 '大写的
If 48 < Asc(Mid(Text1, i, 1)) And Asc(Mid(Text1, i, 1)) < 57 Then c = c + 1 '数字
End If
Print d
Next i
Print "小写字母" & a & "个"
Print "大写字母" & b & "个"
Print "数字" & c & "个"
Print "其它（包括空格）" & s - a - b - c & "个"
Print s
End Sub

给你个思路吧，有点忙，没时间写。
根据你的题目你将大写字母、小写字母、数字及其他符号分成四类（是这样的吧？），他们之间最好的划分区间应该是ASCII码，所以建议你对字符串里的字符依次进行ascii码区间判断来确定是属于哪一区间。
这只是我的方法，希望对你有用。

...vb应该淘汰了。。。

---

VB编写一个程序，统计输入的字符串中小写字母、大写字母、数字及其他符号的个数视频