VB編程入門：如何統計某個字符出現的次數?

怎樣用VB編程，輸入一段字符，統計其中某個字符出現的次數？

工具/原料

Visual Basic 6.0

方法/步驟

①啟動VB新建工程1，在form1的合適位置畫出3個Label框、2個Text框以及1個Command按鈕（可以預先對各控件的Caption等屬性進行修改）。

②雙擊“統計”（即Command1）按鈕，在彈出的代碼框中編寫如下代碼：

Private Sub Command1_Click() Dim x As String a = Text1.Text b = Text2.Text n = 0 For i = 1 To Len(a) x = Mid(a, i, 1) If x = b Then n = n + 1 Next i Label3.Caption = "字符" & b & "在字符串”" & a & "“中" & vbCrLf & "共出現了" & n & "次。"End Sub

這樣便達到了檢索所有字符、統計某個字符出現次數的需求了。

③為了使輸入操作更加的方便，我們可以加入SetFocus語句：

Private Sub text1_keypress(keyascii As Integer) If keyascii = 13 Then Text2.SetFocusEnd Sub

這樣當輸入光標停留在text1，點擊回車（Enter）鍵時，光標便會跳到text2中，方便對text2進行輸入。

④同理，對text2進行設置，當光標停留在text2中，按下回車鍵時，光標將跳到Command上，方便操作：

Private Sub text2_keypress(keyascii As Integer) If keyascii = 13 Then Command1.SetFocusEnd Sub

⑤最後點擊運行試試看功能怎麼樣吧！

注意事項

注意Dim x As String，定義為文本形式

keyascii = 13 就是ASCII碼值為13——按鍵enter