VB编程：编写程序统计出从文本框输入的字符串中的字母、数字、空格和其他字符的个数，由不同的文本框显示

Question

VB编程：编写程序，统计出从文本框输入的字符串中的字母、数字、空格和其他字符的个数，由不同的文本框显示个数，设计界面并实现功能。

求代码！

Answer 1

Private Sub Command1_Click()

    Dim S As String

    Dim a As Integer, b As Integer, c As Integer, d As Integer

    'a表示字母数量，b表示数字数量，c表示空格数量，d表示其它字符数量

    Dim n As Integer, m As Integer

    Dim I As Integer

    

    n = Len(Text1.Text)

    For I = 1 To n

        S = Mid(Text1.Text, I, 1)

        m = Asc(S)

        Select Case m

            Case 32 '空格

                c = c + 1

            Case 65 To 90, 97 To 122

                a = a + 1

            Case 48 To 57

                b = b + 1

            Case Else

                d = d + 1

        End Select

    Next

    

    Text2.Text = a

    Text3.Text = b

    Text4.Text = c

    Text5.Text = d

    

End Sub

'小写字母：97-122

'大写字母：65-90

'数字：48-57

'空格：32