VB中如何统计输入的数字的个数

1、启动VB新建工程汪者1，在form1的合适位置画出3个Label框、2个Text框以及1个Command按钮（可以预先对各控件的Caption等属性进行修改）。

2、双击“统计”（即Command1）按钮，在d出的代码框中编写如下代码：

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、最后点击运行试试看功能。

'雀燃旦放一个text1,一个command1

Dim I As Integer

Private Sub command1_click()

If Text1.Text = "123456" Then

MsgBox "段咐OK！"

Text1.Visible = False

Command1.Visible = False

ElseIf I = 2 Then

MsgBox "你已经输入顷扰三次，谢谢你的使用，系统将自动关闭！"

End

End If

I = I + 1

Text1.Text = ""

End Sub

---