首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件Sjt4.vbp。程序的功能是:程序运行时,文本框中显示一篇英文短文,单击“查找”按钮时可输入查找内容,如图1所示。 若未找到查找内容,查找结束;若找到查找内容,被找到的内容在文本框中以反相显示(即呈选中状态),每找到
在考生文件夹下有一个工程文件Sjt4.vbp。程序的功能是:程序运行时,文本框中显示一篇英文短文,单击“查找”按钮时可输入查找内容,如图1所示。 若未找到查找内容,查找结束;若找到查找内容,被找到的内容在文本框中以反相显示(即呈选中状态),每找到
admin
2018-12-20
40
问题
在考生文件夹下有一个工程文件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
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于窗体的叙述中错误的是( )。
下列关于栈叙述正确的是( )。
在窗体上画一个命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click()DimArr(10)AsIntegerFori=1To10Arr(i)=
假定有如下情况语句:SelectCaseX能表示|X|>5的Case子句是
设窗体名称为frmTest,为了在程序代码中将窗体的标题改为"等级考试",其代码应该是
数据字典(DD)所定义的对象都包含于
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,把文本框的Text属性设置为空白,然后编写如下事件过程:PrivateSubCommand1_Click() a=InputBox("Enteranintege
下列链表中,其逻辑结构属于非线性结构的是
数据库设计过程不包括
下面不能作为结构化方法软件需求分析工具的是
随机试题
Onamorepracticallevel,teachersneedawidevarietyofskillsandabilities.Theyhavetobereadytospendmanyhoursatho
某农药厂包装工,因敌敌畏瓶破碎浸湿上衣。工作中出现头晕、流涕、咳嗽而急诊,按感冒对症治疗。一周后症状加重,伴恶心、多汗,再次就诊。检查中医生闻到衣服上有大蒜气味,曾怀疑农药中毒,但继续对症处理,未入院。次日,患者头晕、视物模糊、频繁呕吐、走路不稳,继而躁动
流行性出血热发生弥散性血管内凝血高凝阶段用( )。流行性出血热发热早期用( )。
治疗肾病综合征气阴两虚证的首选方剂是( )
下列选项中,属于《建设工程安全生产管理条例》规定的建设单位安全责任的有()。
甲公司应收乙公司的账款3000万元已逾期,经协商决定进行债务重组。债务重组内容是:(1)乙公司以银行存款偿付甲公司账款300万元;(2)乙公司以一项无形资产和一项固定资产偿付剩余债务。乙公司该项无形资产的账面价值为900万元,公允价值为1050万元;固定
水盐代谢是指人体内调节水盐平衡的机构,保持水和氯化钠的摄入量和排出量的动态平衡,并维持体内含量相对恒定。脱水和水肿是水盐代谢功能失调的两种情况。根据上述定义,下列属于水盐代谢的是:
下列关于密码说法不正确的是()。
HowmanycallcentersdoesthehelplinehaveinEngland?
A、Throwhimselfinfrontofthetrain.B、Throwhimselfagainstthebus.C、Squeezehimselfbetweentherails.D、Strikehimselfwi
最新回复
(
0
)