用VB 输入一行字符 分别统计英文字母 数字和其他符号 ?

在窗口上放两个控件,一个text1,一个command1,并注意窗口不要太小、控件不要太靠窗口的顶部。程序如下：Private Sub command1_click()Dim L As Integer,S As String,I As IntegerDim E As Integer,U As Integer,Q As IntegerClsS = Text1。TextL = Len(S)Dim SS As String,N As IntegerFor I = 1 To LSS = Mid(S,I)L = Asc(SS)Select Case LCase 65 To 90,97 To 122E = E + 1Case 48 To 57U = U + 1Case ElseQ = Q + 1End SelectNextPrint S; "中包含英文字母"; E; "个,数字"; U; "个,其他字符"; Q; "个"End Su