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

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应该淘汰了。。。