Question

大一AccessVBA语句练习题 通过键盘输入一串字符，判断字母个数，数字个数，空格个数，其他字符

大一AccessVBA语句练习题
通过键盘输入一串字符，判断字母个数，数字个数，空格个数，其他字符个数。
求助求助！

Answer 1

Option Explicit
Sub ygb()
    Dim s, i, c, n1, n2, n3, n4
    n1 = 0
    n2 = 0
    n3 = 0
    n4 = 0
    s = InputBox("输入一串字符")
    For i = 1 To Len(s)
        c = Mid(s, i, 1)
        If c >= "0" And c <= "9" Then
            n1 = n1 + 1
        ElseIf c >= "a" And c <= "z" Or c >= "A" And c <= "Z" Then
            n2 = n2 + 1
        ElseIf c = " " Then
            n3 = n3 + 1
        Else
            n4 = n4 + 1
        End If
    Next i
    MsgBox "你输入了" & n2 & "个字母、" & n1 & "个数字、" & n3 & "个空格、" & n4 & "个其它字符。"
End Sub