VB课件VB6章节幻灯片.PPTVIP

* 例6-11 统计字母(不分大小写)在文本中出现的次数 P113 算法分析：建立一个有26个元素的数组，分别保存每个字母出现的次数。下标即是该字母是第几个字母. * Private Sub Command1_Click() Dim St As String, Idx As Integer, I As Integer, Js As Integer Dim A(0 To 25) As Integer Dim Ch As String * 1, L As Integer St = Text1.Text: L = Len(St) End Sub For I = 1 To L Ch = UCase(Mid(St, I, 1)) If Ch = A And Ch = Z Then Idx = Asc(Ch) - Asc(A) A(Idx) = A(Idx) + 1 End If Next I For I = 0 To 25 If A(I) 0 Then Js = Js + 1 Text2 = Text2 Chr(I + Asc(A)) : St