Question

急求VB高手帮我做一下这个程序填空题，很急！！！如果做得好我追加悬赏！

'题目：从键盘上输入一串字符，以"?"结束，统计输入字符中的
' 大、小写字母和数字的个数。

Private Sub Form_Click()
Dim ch$, n1%, n2%, n3%
n1 = 0
n2 = 0
n3 = 0
ch = InputBox("请输入一个字符")
'**********SPACE**********
Do While 【?】
Select Case ch
Case "a" To "z"
n1 = n1 + 1
'**********SPACE**********
Case 【?】
n2 = n2 + 1
Case "0" To "9"
n3 = n3 + 1
End Select
ch = InputBox("请输入一个字符")
'**********SPACE**********
【?】
Print n1, n2, n3
End Sub

Answer 1

Private Sub Form_Click()
Dim ch$, n1%, n2%, n3%
n1 = 0
n2 = 0
n3 = 0
ch = InputBox("请输入一个字符")
'**********SPACE**********
Do While ch <> "?"
Select Case ch
Case "a" To "z"
n1 = n1 + 1
'**********SPACE**********
Case "A" to "Z"
n2 = n2 + 1
Case "0" To "9"
n3 = n3 + 1
End Select
ch = InputBox("请输入一个字符")
'**********SPACE**********
loop
Print n1, n2, n3
End Sub

追问

第一个空里的问号什么意思啊？

追答

题目要求按?就结束
因此，你输入 ？ 就结束循环，然后在窗体打印出统计的个数

Answer 2

123