VB中如何统计输入的数字的个数
最新回答
为你衣冠
2025-06-27 13:16:33
1、启动VB新建工程1，在form1的合适位置画出3个Label框、2个Text框以及1个Command按钮（可以预先对各控件的Caption等属性进行修改）。
2、双击“统计”（即Command1）按钮，在弹出的代码框中编写如下代码：
PrivateSubCommand1_Click()DimxAsStringa=Text1.Textb=Text2.Textn=0Fori=1ToLen(a)
x = Mid(a, i, 1) If x = b Then n = n + 1 Next i Label3.Caption = "字符" & b & "在
字符串
”" & a & "“中" & vbCrLf & "共出现了" & n & "次。"End Sub这样便达到了检索所有字符、统计某个字符出现次数的需求了。
3、为了使输入操作更加的方便，我们可以加入SetFocus语句：
PrivateSubtext1_keypress(keyasciiAsInteger)Ifkeyascii=13ThenText2.SetFocusEndSub
这样当输入光标停留在text1，点击回车（Enter）键时，光标便会跳到text2中，方便对text2进行输入。
当光标停留在text2中，按下
回车键
时，光标将跳到Command上，方便操作：PrivateSubtext2_keypress(keyasciiAsInteger)Ifkeyascii=13ThenCommand1.SetFocusEndSub
4、最后点击运行试试看功能。
ら面具背后の殇う
2025-06-27 13:30:16
Dim a As String
a = InputBox("输入任意字符串")
For i = 1 To Len(a)
If Asc(Mid(a, i, 1)) >= Asc("0") And Asc(Mid(a, i, 1)) <= Asc("9") Then n = n + 1
Next
Print "字符串:" & a & "包含的数字有" & n & "个"
End Sub
一朵野菊
2025-06-27 13:59:22
Dim a As String
a = InputBox("输入任意字符串")
For i = 1 To Len(a)
If isnumeric(Mid(a, i, 1)) Then n = n + 1
Next
Print "字符串:" & a & "包含的数字有" & n & "个"
End Sub
浮生远离
2025-06-27 08:35:22
热门标签
