3.
小王编写了一个实现文字查找替换功能的VB程序,运行界面如图所示。文本框Text1显示原文内容,Text2中输入查找内容,Text中输入替换内容,单击“全部替换”按钮 Command1后,Text4显示查找替换的结果Text5中显示替换的次数,Text6显示“查找内容”在原文中的起始位置。
实现上述功能的VB程序如下,但加框处代码有错,请改正。
Private Sub Command1_ Click ( )
Dim s As String, result As String, pos As String
Dim count As Integer, i As Integer
i =1: count =0
result = “”: 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 =
‘ ①
i = i + Len(Text2. Text)
Else
‘ ②
i=i+1
End if
Loop
Text4 Text result
Text5. Text =Str(count)
Text6 Text = pos
End Sub
①________ ②________