题目

小王编写了一个实现文字查找替换功能的VB程序，运行界面如图所示。文本框Text1显示原文内容，Text2中输入查找内容，Text3中输入替换内容，单击“全部替换”按钮Command1后，Text4显示查找替换的结果，Text5中显示替换的次数，Text6显示“查找内容”在原文中的起始位置。 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)         ‘ i 是查找过程中所查找到的当前字符位置的标记   s = Mid(Text1.Text, i, Len(Text2.Text))   If s =Then     result = result + Text3.Text     count = count + 1     pos =                   ‘pos 依次显示被替换内容在原文中的起始位置     i = i + Len(Text2.Text)   Else     result=result+Mid(text1.text,i,1)         End If Loop Text4.Text = result Text5.Text = Text6.Text = pos End Sub 答案：【1】s = Text2.Text【2】pos+Str(i)【3】i = i + 1【4】Str(count)

查看本题答案和解析