学进去

小王编写了一个实现文字查找替换功能的VB程序，运行界面如图所示。文本框Text1 显示原文内容，Text2中输入查找内容，Text3 中输入替换内容，单击“全部替换”按钮Command1后，Text4显示查找替换的结果，Text5中显示替换的次数，Text6显示“查找内容”在原文中的起始位置。

实现上述功能的VB程序如下，但划线处代码有错，请改正。
Private Sub Command1_Click()
Dim s As String, resule As String, pos As String
Dim count As Integer, i As Integer
i = 1: count = 0
resule = "": pos = ""
Do While i <= Len(Text1.Text)

s = Mid(Text1.Text, i, Len(Text2.Text))

If s = Text2.Text Then

result = result + Text3.Text
count = count + 1
pos = pos + Str(count)   ①_____________
i = i + Len(Text2.Text)
Else
result = result + Text2.Text  ②_______________
i = i + 1
End If
Loop
Text4.Text = result
Text5.Text = Str(count)
Text6.Text = pos
End Sub