【加試題】簡(jiǎn)化的VB詞頻統(tǒng)計(jì)程序．程序功能為：在文本框Text1中輸入一篇英文文章，在文本框Text2中輸入一個(gè)英文單詞，單擊按鈕Command1后，在文本框Text3中顯示這個(gè)英文單詞出現(xiàn)的次數(shù)．程序運(yùn)行界面如圖所示．

查找的英文單詞由連續(xù)的ASCII英文字符（a～z或A～Z）組成．組合詞程序會(huì)進(jìn)行分解，如river-small可拆分為2個(gè)單詞river和small.查找的英文單詞不區(qū)分大小寫(xiě)．程序代碼如下：
Private Sub Command1_Click（　?。?br />       Dim article As String,f As String,count As Integer
       Dim i As Integer,begin As Integer,s As String
       article=Text1．Text：f=Text2．Text：count=0
       begin=1
       For i=1 To Len（article）
              t=Mid（article,i,1）
              If Not （t＞=“A“And t＜=“Z“Or t＞=“a“And t＜=“z“） Then
                      If i＞begin Then      
                             s='（1）
                             If LowerCase（f）=LowerCase（s） Then
                                     count=count+1
                             End If
                             begin=i+1
                       End If
              Next i
              Text3．Text=“出現(xiàn)次數(shù)為：“+Str（count）+“次“
       End Sub
'單詞轉(zhuǎn)化為全小寫(xiě)的形式
       Function LowerCase（word As String） As String
              Dim i As Integer,e As String
              For i=1 To Len（word）
                      c=Mid（word,i,1）
'小寫(xiě)英文字母的ASCII碼值比大寫(xiě)字母的值大32
              If c＞=“A“And c＜=“Z“Then c='（2）
              LowerCase=LowerCase+e
       Next i
End Function
程序中（1）、（2）處加框代碼有誤，請(qǐng)改正．
（1）處加框代碼應(yīng)修改為：

Mid（article,begin,i-begin）

Mid（article,begin,i-begin）

．
（2）處加框代碼應(yīng)修改為：

Chr（asc（c）+32）．

Chr（asc（c）+32）．

．