用vb编程：在文本框中输入一个字符串，统计其中的大写英文、小写英文、数字及其他字符各有多少个。

用vb编程：在文本框中输入一个字符串，统计其中的大写英文、小写英文、数字及其他字符各有多少个。

Private Sub Command1_Click()
Dim str As String
Dim ssum As Integer
Dim max As Integer
Dim min As Integer
Dim other As Integer
Dim tmp, a, b
Dim i As Integer
str = Text1.Text
For i = 1 To Len(str)
a = Mid(str, i, 1)
If IsNumeric(a) = True Then ssum = ssum + 1
If Asc(a) >= 97 And Asc(a) <= 122 Then min = min + 1
If Asc(a) >= 65 And Asc(a) <= 90 Then max = max + 1
Next
other = Len(str) - ssum - max - min
Print "数字个数：" & ssum; "大写字母数：" & max; "小写字母数："; min; "其他符号数：" & other
' Print "共用" & UBound(tmp) + 1 & "个单词"

End Sub

Private Sub Command1_Click() For i = 1 To Len(Text1.Text) stemp = Mid(Text1.Text, i, 1) If IsNumeric(stemp) Then S1 = S1 + 1 If Asc(stemp) <= 122 And Asc(stemp) >= 97 Then S2 = S2 + 1 If Asc(stemp) <= 90 And Asc(stemp) >= 65 Then S3 = S3 + 1 Next 'S1个数字，，s2个小写 s3个大写 End Sub