作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/10 14:08:04
用VB 输入一行字符 分别统计英文字母 数字和其他符号 ?
在窗口上放两个控件,一个text1,一个command1,并注意窗口不要太小、控件不要太靠窗口的顶部.程序如下:
Private Sub command1_click()
Dim L As Integer,S As String,I As Integer
Dim E As Integer,U As Integer,Q As Integer
Cls
S = Text1.Text
L = Len(S)
Dim SS As String,N As Integer
For I = 1 To L
SS = Mid(S,I)
L = Asc(SS)
Select Case L
Case 65 To 90,97 To 122
E = E + 1
Case 48 To 57
U = U + 1
Case Else
Q = Q + 1
End Select
Next
Print S; "中包含英文字母"; E; "个,数字"; U; "个,其他字符"; Q; "个"
End Su