vb如何计算文本框中的大写字母，小写字母，数字，其他字符的个数并在picture中输出个数

Private Sub Command1_Click()
n = 0
m = 0
k = 0
l = 0
aa = 0
bb = Text1
Do Until Len(bb) = 0
aa = Asc(bb)
bb = Right(bb, Len(bb) - 1)
Print aa
If 97 <= aa And aa <= 122 Then
n = n + 1
Else
If 65 <= aa And aa <= 90 Then
m = m + 1
Else
If 48 <= aa And aa <= 57 Then
k = k + 1
Else
l = l + 1
End If
End If
End If
Loop
Picture1.Print "小写字母为"; n; "个"
Picture1.Print "大写字母为"; m; "个"
Picture1.Print "数字为"; k; "个"
Picture1.Print "特殊符号为"; l; "个"
End Sub

你的问题能说的再清楚点吗 ？

用ASCII码规定几个范围,再用条件语句判断..程序略.....