问答题
在考生文件夹下有一个工程文件sjt4．vbp。程序的功能是：程序运行时，文本框中显示一篇英文短文，单击“查找”按钮时可输入查找内容，如图1所示。
若未找到查找内容，查找结束；若找到查找内容，被找到的内容在文本框中以反相显示(即呈选中状态)，每找到一次都给出提示，并在左下角文本框中显示累计的次数，如图2所示，若单击提示对话框的“是”按钮，则继续向后查找；若单击“否”按钮，则终止查找。
若未找到查找内容，查找结束；若找到查找内容，被找到的内容在文本框中以反相显示(即呈选中状态)，每找到一次都给出提示，并在左下角文本框中显示累计的次数，如图2所示，若单击提示对话框的“是”按钮，则继续向后查找；若单击“否”按钮，则终止查找。
【正确答案】正确答案：[操作步骤] 步骤l：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释符“'”，将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) Private Sub Command1_Click() Dim fstr As String，ostr As String Dim times As Integer，pos As Integer Dim ans As Integer fstr=InputBox("输入待查内容"，"查找") If fstr=""Then Exit Sub End If times=0 ostr=Text1．Text POS=InStr(1，ostr，fstr) DoWhile pos＜＞0 Text1．SelStart=
pos
Text1．SelLength=
Len(fstr)
times=
times+1
Text2．Text=timeS ans=MsgBox("找到了，是否继续查找?"，vbYesNo) If ans=vbYes Then pos=pos+Len(fstr) pos=
InStr(pos，ostr，fstr)
Else Exit Do End It Loop End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】