VB中如何統計輸入的數字的個數

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、最後點擊運行試試看功能。