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

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

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

    若未找到查找内容，查找结束；若找到查找内容，被找到的内容在文本框中以反相显示(即呈选中状态)，每找到一次都给出提示，并在左下角文本框中显示累计的次数，如图2所示，若单击提示对话框的“是”按钮，则继续向后查找；若单击“否”按钮，则终止查找。

    在给出的窗体文件中已经有了全部控件，但程序不完整。请将事件过程中的注释符去掉，把?改为正确的内容，以实现上述程序功能。
    注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名存盘。
选项
答案步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码 Private Sub Commandl_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) Db While pos＜＞0 Text1．SelStart=? Text1．SelLength=? times=? Text2．Text=times ans=MsgBox(”找到了，是否继续查找?”，vbYesNO) If ans==vbYes Then pos=pos+Len(fstr) pos=? Else Exit Do End If Loop End Sub 程序结束 第1个?处填：pos-1 第2个?处填：Len(fstr) 第3个?处填：times+1 第4个?处填：InStr(pos，ostr，fstr) 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析 本题主要考察文本框控件属性的使用，包括SelLength属性和SelStart属性。其中SelStart属性为定义当前选择的文本的起始位置。0表示选择的开始位置在第一个字符之前，1表示从第二个字符之前开始选择，以此类推；SelLength属性为当前选中的字符数，可以在程序中把该属性设置为一个整数值。还有就是字符串匹配函数InStr的用法。
转载请注明原文地址:https://www.kaotiyun.com/show/v5Fp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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