Question

VB，使用Inputbox函数输入字符串

当输入的字符为？号时停止计数，另外对字符串中的字母，数字分别进行统计并输出结果。

Answer 1

Private Sub Form_Load()
a = InputBox("请输入字符")
i = InStr(1, a, "?")
If i = 0 Then i = Len(a)
For i1 = 1 To i
If Mid(a, i1, 1) Like "[A-Z]" Then b = b + 1 '大写字母数量
If Mid(a, i1, 1) Like "[a-z]" Then c = c + 1 '小写字母数量
If Mid(a, i1, 1) Like "[0-9]" Then d = d + 1 '数字数量
Next
MsgBox "你输入的字符大写字母数量有" & b & "个,小写字母数量有" & c & "个,数字数量有" & d & "个"
End Sub

Answer 2

“对字符串中的字母，数字分别进行统计”很含糊，是只区分数字、字母，
　还是区分到每个数字、字母？字母是否区分大小写？
还有你的结束标志“？”，是指“单独的一个?”，还是输入的字符串中包含“？”

追问

输入的字符不包含“？”
统计就是，分别显示有多少个字母，多少个数字，字母区分大小写。

追答

你这“追问”仍然是有歧义的！

我们当然明白数字、字母的个数要分别计算。

照你这个“追问”的意思，就是统计一下有多少个数字、多少个大写字母、多少个小写字母。

　具体是哪些数字、字母，不用管，是吧！

先看看这段代码：

Private Sub Command1_Click()
   Dim sInput As String
   Dim N As Long, lU As Long, lL As Long
   Dim i As Long, V As Long
   Do
      sInput = InputBox("请输入内容：")
      If (sInput = "?") Then Exit Do
      For i = 1 To Len(sInput)
         V = Asc(Mid$(sInput, i, 1))
         If (V > 64 And V < 91) Then
            lU = lU + 1
         ElseIf (V > 47 And V < 58) Then
            N = N + 1
         ElseIf (V > 96 And V < 123) Then
            lL = lL + 1
         End If
      Next
   Loop
   sInput = "输入的数据中：L大字字母有U个。L小写字母有M个。L数字有N个。"
   sInput = Replace(sInput, "L", vbLf)
   sInput = Replace(sInput, "U", lU)
   sInput = Replace(sInput, "M", lL)
   MsgBox Replace(sInput, "N", N), 32
End Sub

Answer 3

这题我也不会啊，你可以为你身边的人啊