题目

小王编写了一个实现文字查找及替换功能的VB程序，运行界面如图所示。文本框Text1中显示原文内容，在Text2中输入查找内容，Text3中输入替换内容，单击“全部替换”按钮Commiand1后，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 以上程序段运行时，为了实现上述功能，加框处代码应改正为：①；②。 答案：【1】pos+Str（i）【2】result=result+Mid（Text1.Text，i，1）

查看本题答案和解析