输入一行字符,分别统计出其中的英文字母个数,空格数字和其他字符的个数,用C++解决

Private Sub Form_Load()
Dim K%, L%, N%, R% ' 分别表示总个数、字母、数字、其他字符个数
' 这句可省
K = InputBox("多少个数？")
For i = 1 To K
m = InputBox("请输入字符")
Text1 = Text1 & m & " " ' 显示字符，为了验证，可省
Select Case m
Case "a" To "z", "A" To "Z"
L = L + 1
Case "0" To "9"
N = N + 1
Case Else
R = R + 1
End Select
Next
Print "字母"; L; "个", "数字"; N; "个", "其他"; R; "个"
End Sub