计算机等级考试二级VB常用算法(10)：字符处理

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函数转换为字符后，利用字符处理函数来解题。

希望与更多计算机等级考试的网友交流，请进入计算机等级考试论坛

更多信息请访问：考试吧计算机等级考试栏目