VBA程序编写:输入一串字符,统计字符串中英文字母,数字,空格和其他字 ...答:Sub mm()Dim strn$, i&, n&, chrs(1 To 4) As Integer, strr strr = Array("空格数量", "数字数量", "英文字母数量", "其他字符数量")strn$ = InputBox("输入字符串:", "输入", "1")n = Len(strn)For i = 1 To n Select Case Mid(strn, i, 1)Case " "chrs(1) ...