【加试题】简化的VB词频统计程序．程序功能为：在文本框Text1中输入一篇英文文章，在文本框Text2中输入一个英文单词，单击按钮Command1后，在文本框Text3中显示这个英文单词出现的次数．程序运行界面如图所示．

查找的英文单词由连续的ASCII英文字符（a～z或A～Z）组成．组合词程序会进行分解，如river-small可拆分为2个单词river和small.查找的英文单词不区分大小写．程序代码如下：
Private Sub Command1_Click（　　）
       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=“出现次数为：“+Str（count）+“次“
       End Sub
'单词转化为全小写的形式
       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）
'小写英文字母的ASCII码值比大写字母的值大32
              If c＞=“A“And c＜=“Z“Then c='（2）
              LowerCase=LowerCase+e
       Next i
End Function
程序中（1）、（2）处加框代码有误，请改正．
（1）处加框代码应修改为：

Mid（article,begin,i-begin）

Mid（article,begin,i-begin）

．
（2）处加框代码应修改为：

Chr（asc（c）+32）．

Chr（asc（c）+32）．

．