2. 计算机
  3. 在考生文件夹下有一个工程文件sjt4．vbp。程序的功能是：程序运行时，文本框中显示一篇英文短文，单击“查找”按钮时可输入查找内容，如图1所示。 若未找到查找内容，查找结束；若找到查找内容，被找到的内容在文本框中以反相显示(即呈选中状态)，每找到一次都给

在考生文件夹下有一个工程文件sjt4．vbp。程序的功能是：程序运行时，文本框中显示一篇英文短文，单击“查找”按钮时可输入查找内容，如图1所示。 若未找到查找内容，查找结束；若找到查找内容，被找到的内容在文本框中以反相显示(即呈选中状态)，每找到一次都给

admin2019-06-11  32
问题 在考生文件夹下有一个工程文件sjt4．vbp。程序的功能是：程序运行时，文本框中显示一篇英文短文，单击“查找”按钮时可输入查找内容，如图1所示。

若未找到查找内容，查找结束；若找到查找内容，被找到的内容在文本框中以反相显示(即呈选中状态)，每找到一次都给出提示，并在左下角文本框中显示累计的次数，如图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：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/LNUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)