​​​

程序源代码：

Private Sub Command1_Click()

   '*****************清空************

   Label4.Caption = ""

   Label6.Caption = ""

   Label8.Caption = ""

   Label10.Caption = ""

   '*****************统计************

   Label2.Caption = Len(Text1)

   Dim mystr As String

   For i = 1 To Len(Text1)

       mystr = Mid(Text1, i, 1)

       Select Case mystr

           Case "a" To "z", "A" To "Z"

               Label4.Caption = Val(Label4.Caption) + 1

           Case " "

               Label6.Caption = Val(Label6.Caption) + 1

           Case 0 To 9

               Label8.Caption = Val(Label8.Caption) + 1

           Case Else

               Label10.Caption = Val(Label10.Caption) + 1

       End Select

   Next i

End Sub