2)        統計
         問題提出
    統計字符或者數字出現的次數。
         算法說明
以字符統計為例，設基本問題如下：
請統計一段文本中英文字母在文本中出現的次數。（不區分大小寫）
如：I am a student.
得到：
A:2 d:1 e:1 I:1 m:1 n:1 s:1 t:2 u:1
分析：
由于不區分大小寫，因此可定義一個大小為26（下標：0－25）的數組，每個元素依次記錄A、B、C…Z字母出現的次數。
A(0)存放字母a出現的次數
A(1)存放字母b出現的次數
A(2)存放字母c出現的次數
A(3)存放字母d出現的次數
…
譬如：aabdc  
代碼如下：
    Option Explicit
    Private Sub Command1_Click()
             Dim i As Integer, j As Integer
             Dim zimu(25) As Integer
             Dim allStr As String
             Dim aStr As String
             allStr = UCase(Text1.Text)
             For i = 1 To Len(Text1.Text)
                   aStr = Mid(allStr, i, 1)
                   If aStr >= "A" And aStr <= "Z" Then
                         zimu(Asc(aStr) - Asc("A")) = zimu(Asc(aStr) - Asc("A")) + 1
                   End If
             Next i
             For i = 0 To 25
                   If zimu(i) <> 0 Then
                         j = j + 1
                         Text2.Text = Text2.Text & Chr(i + Asc("A")) & ":" & str(zimu(i)) & " "
                         If j Mod 5 = 0 Then Text2.Text = Text2.Text & Chr(13) & Chr(10)
                   End If
             Next i
    End Sub
 
 
解題技巧
         熟練運用字符處理函數，對于一些數論題，譬如逆序數等也可將數字通過CStr函數轉換為字符后，利用字符處理函數來解題。

希望與更多計算機等級考試的網友交流，請進入計算機等級考試論壇

更多信息請訪問：考試吧計算機等級考試欄目