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

admin2018-12-20  43

问题 在考生文件夹下有一个工程文件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://kaotiyun.com/show/v5Fp777K
0

最新回复(0)