計算機等級考試二級VB常用算法(10)：字符處理

2、實戰(zhàn)練習
1)        補充代碼（2003秋二（8））
         下面程序的功能是統(tǒng)計文件中英文字母（不區(qū)分大小寫）出現(xiàn)的個數(shù)。
                  Option Base 1
                  Private Sub Command1_Click()
　　　　            Dim alpha(26) As Integer,n As Integer
　　　　            Dim i As Integer,s As String
　　　　            Open "c:\kav2003\readme.txt" For Input As #11
　　　　            Do While Not EOF(11)
　　　　                     s=  （1） 
　　　　　　　　     s=UCase(s)
　　　　　　　　     If s>="A" And s<="Z" Then
　　　　　　　　　　      n=  （2） 
　　　　　　　　　　      alpha(n)=alpha(n)+1
　　　　　　　　     End If
　　　　            Loop
　　　　            For i=1 To 26
　　　　　　             If alpha(i)<>0 Then
　　　　　　　　              List1.AddItem Chr(i+64)&":"&CStr(alpha(i))
　　　　　　             End If
　　　　            Next i
　　　　            Close
                  End Sub
 
 
2)        補充代碼（2000秋二（6））
         下面程序的功能是：統(tǒng)計當前盤當前文件夾中的順序文件data.txt中共有多少個單詞，約定連續(xù)出現(xiàn)的字母定義為一個單詞。
                Option Explicit
 
 
                  Private Sub Form_Click()
                           Dim Char() As String, St As String, Tem As String
                           Dim Idx As Integer, Js As Long, Flen As Long
                           Dim F As Boolean, W As String * 1
                             （1） 
                           Flen = LOF(10)
                           St = Input(Flen, #10)
                           Js = 1
                           Do While Js <= Flen＋1
                                    W = Mid(St, Js, 1)
                                    If   （2）   Then
                                             Tem = Tem + W
                                             F = True
                                    ElseIf F = True Then
                                             Idx = Idx + 1
                                             ReDim Preserve Char(Idx)
                                             Char(Idx) = Tem
                                             Tem =  （3） 
                                             F = False
                                    End If
                                      （4） 
                           Loop
                           Print "共有"; Idx; "個單詞"
                           For Js = 1 To Idx
                                    Print Char(Js)
                           Next Js
                  End Sub

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

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