一道编程的题目，最好用VB6.0来编辑

来源：百度知道 编辑：UC知道 时间：2024/05/22 07:03:28
从键盘上输入一行字符串，分别统计字符串中英文字母、空格、数字和其它字符的个数

Private Sub Command1_Click()
Dim p$, i&, t$, yw&, kg&, sz&, qt&
p = InputBox("请输入")
For i = 1 To Len(p)
t = Mid$(p, i, 1)
If t Like "[A-Za-z]" Then
yw = yw + 1
ElseIf t = Chr(32) Then
kg = kg + 1
ElseIf t Like "#" Then
sz = sz + 1
Else: qt = qt + 1
End If
Next
Print "英文字母", yw
Print "空格", kg
Print "数字", sz
Print "其他字符", qt
End Sub