程序设计以下 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Application.Exit()

    End Sub  '返回到编辑状态

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""

    End Sub  '清空命令程序

   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      

        Dim s, temp As String
        Dim sz, zm, bd, sf, kg, qt As Integer
        Dim i, j As Integer
        sz = 0 : zm = 0 : bd = 0 : sf = 0 : kg = 0 : qt = 0
        i = Len(s)

        TextBox1.Text = CStr(s)
        For j = 1 To i Step 1


            temp = Mid$(s, 1, i)
            Select Case temp
                Case "0" To "9"
                    sz = sz + 1

                Case "a" To "p", "A" To "Z"

                    zm = zm + 1

                Case ",", ".", ";", "!", "(", ")", "[", "]", "{", "}"
                    bd = bd + 1

                Case "<", ">", "*", "+", "-", "/", "%"
                    sf = sf + 1

                Case " "

                    kg = kg + 1

                Case Else

                    qt = qt + 1


            End Select

        Next j
        TextBox2.Text = TextBox2.Text & CStr(sz)
        TextBox3.Text = TextBox3.Text & CStr(zm)
        TextBox4.Text = TextBox4.Text & CStr(bd)
        TextBox5.Text = TextBox5.Text & CStr(sf)
        TextBox6.Text = TextBox6.Text & CStr(kg)
        TextBox7.Text = TextBox7.Text & CStr(qt)


    End Sub     '按下统计按钮开始统计字符串中各种字符的个数


[em17][em17]