首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是:程序运行时,文本框中显示一篇英文短文,单击“查找”按钮时可输入查找内容,如图1所示。 若未找到查找内容,查找结束;若找到查找内容,被找到的内容在文本框中以反相显示(即呈选中状态),每找到一次都给
在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是:程序运行时,文本框中显示一篇英文短文,单击“查找”按钮时可输入查找内容,如图1所示。 若未找到查找内容,查找结束;若找到查找内容,被找到的内容在文本框中以反相显示(即呈选中状态),每找到一次都给
admin
2019-06-11
13
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的代码如下:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=Val(InputBox("输入整数"))y=Val
设子程序过程定义的首部为:PublicSubs(XAsInteger,YAsSingle)则以下正确的调用形式为
某人为计算n!(0<n<=12)编写了下面的函数过程:PrivateFunctionfun(nAsInteger)AsLongDimpAsLongp=1Fork=n-1To2Step-1p=p*kNextkfun=pEn
鼠标拖放控件要触发两个事件,这两个事件是
设有如下数组定义语句:Dima(-1To4,3)AsInteger以下叙述中正确的是
语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数是
下列选项中不属于面向对象程序设计特征的是
下面对对象概念描述正确的是
以下不属于VisualBasic数据文件的是
设有以下过程:PrivateSubproc(xAsInteger,OptionalyAsInteger)Printx,yEndSub针对此过程,下面正确的过程调用语句是
随机试题
如果被保险货物运达保险单所载明的目的地,收货人提货后即将货物转运,则保险公司的保险责任于转运到达目的地仓库时终止。()
国家公务员在对外交往中损害国家荣誉和利益的行为直接违反了
舒张早期奔马律与生理性第三心音的区别不包括
A.白庀B.白屑风C.油风D.花斑癣E.头藓
我国急性胰腺炎的最常见病因为
“绿色包装”就是指所使用材料中的主要成分没有受到污染,且可回收利用、可降解。()
在最佳现金持有量确定的存货模式下,企业持有的现金数量越少,则()。
在组织运行过程中,组织冲突的发生()。
热爱祖国,热爱人民,拥护中国共产党领导,拥护社会主义。全面贯彻国家教育方针,自觉遵守教育法律法规,依法履行教师职责权利。不得有违背党和国家方针政策的言行。这体现了教师职业道德规范的()
2015年3月24日,中共中央政治局审议通过广东、天津、福建自由贸易试验区总体方案,进一步深化上海自由贸易试验区改革实验方案。其中主要发展对台湾地区和东盟贸易的自贸区是()。
最新回复
(
0
)