用VB编写一个英文单词查找替换的程序。功能如下：分别在文本框Text1、Text2、Text3中输入原文（s）（以一个空格作为单词间隔、且以“.”结尾）、要查找的单词（Txt_key）以及要替换的内容（Txt_rs），单击“替换”按钮Command1，将原文中所有的Txt_key替换为Txt_rs,并在文本框Text4中输出替换后的内容（ss）。运行效果如图所示。

查找替换的方法及示意图如下：

为方便判断单词，将要查找的单词（Txt_key）与替换的内容（Txt_rs）前后分别连接上一个空格，组成字符串key（长度为len_key）和字符串rs。变量ss用来存储替换后的内容。
（1）若查找单词Txt_key在原文s的起始位置就有，则先将Txt_rs连接至ss,同时将查找位置i定位到s的“len_key—1”位置（考虑出现连续、重复的Txt_key,查找定位前移1个位置。以下定位方法相同）。
（2）若原文s的第一个单词不是Txt_key,则在字符串s中查找key。
查找位置i的初始值为1，重复执行下列①、②、③步骤，直至i位于第“len_s—len_key+1”位置（即在s中待查找的内容只剩下与key等长的子串）：
①从第i位置开始取与key等长的子串；
②若子串与key相等，则在ss末尾连接上rs,同时将下一次查找的位置定位为“i+len_key—1”；
③若子串与key不相等，则将i位置上的字符连接到ss中，同时查找位置往后移一个，即i=i+1。
（3）若查找单词Txt_key是原文最后一个单词，则将Txt_rs和“.”连接至ss,否则将s中最后剩下的待查找子串连接到ss中。
实现上述功能的VB程序如下，请在横线处填入合适的代码，完成程序：
Private Sub Command1_ Click （　　）
Dim i As Integer
Dim s As String's为原文
Dim Txt_ key As String'Txt_key为要查找的内容
Dim Txt_ rs As String'Txt_ rs为替换成的内容
Dim ss As String'ss为替换后的内容
Dim key As String
Dim rs As String
Dim len_s As Integer'len_s为字符串s的长度
Dim len_ key As Integer'len_key为字符串key的长度
s=

Text1.Text

Text1.Text

Txt_key=Text2.Text
Txt_rs=Text3.Text
key=““+Txt_key+““
rs=““+Txt_rs+““
ss=““
len_s=Len（s）：len_key=Len（key）
i=l
If Mid（s,1，len_key—1）=Mid（key,2，len_key—1）Then
Txt_key存在于字符串s开始位置时的处理
ss=ss+

Txt_rs或Mid（rs,2，len（rs）—2）

Txt_rs或Mid（rs,2，len（rs）—2）

i=len_key—1
End If
Do While I＜=len_s—len_key+1
'key存在于字符串中间位置时，进行查找替换
If

Mid（s,i,len_key）或Mid（s,i,len（key））

Mid（s,i,len_key）或Mid（s,i,len（key））

=key Then
ss=ss+Mid（rs,1，Len（rs）—1）
i=i+len_key—1
'考虑出现连续、重复的key,查找位置前移1个位置
Else
ss=ss+Mid（s,i,1）
i=i+l
End If
Loop
If Mid（s,I—1，len_key—1）=Mid（key,1，len_key—1）Then
'对原文中的最后待查找字串进行处理
ss=ss+Txt_rs+Mid（s,len_s,1）
Else
ss=ss+Mid（s,i,len_key—1）
End If
Text4.Text=ss
End Sub