首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sj5.vbp,窗体Forml上有两个标签、两个文本框与一个命令按钮。其中命令按钮的名称为Commandl、标题为“查找”;文本框的名称分别是Textl与Text2,内空;标签名称分别是Labell与Label2,标题为“查找内
在考生文件夹下有一个工程文件sj5.vbp,窗体Forml上有两个标签、两个文本框与一个命令按钮。其中命令按钮的名称为Commandl、标题为“查找”;文本框的名称分别是Textl与Text2,内空;标签名称分别是Labell与Label2,标题为“查找内
admin
2009-08-26
73
问题
在考生文件夹下有一个工程文件sj5.vbp,窗体Forml上有两个标签、两个文本框与一个命令按钮。其中命令按钮的名称为Commandl、标题为“查找”;文本框的名称分别是Textl与Text2,内空;标签名称分别是Labell与Label2,标题为“查找内容”、“查找结果”。窗体上给出了所有程序需要的控件,但程序代码是不完整的,请去掉程序中的注释符“’”,把程序中的“?”改为正确的内容。
本程序的功能是:当在Textl中输入一个姓氏后,如果单击“查找”按钮,则在in5.txt中进行查找,若找到,就把所有与Textl中相同姓氏的姓名显示在Text2中,如图53—5所示;若未找到,则在Text2中显示“未找到!”;若Textl中没有查找内容,单击“查找”按钮,则在Text2中显示“未输入查找内容!”。
注意:考生不得修改程序的其他部分和控件的属性,把修改后的文件按原文件名存盘。
选项
答案
本题程序功能描述为:先用Open语句打开文件in5.txt,用While循环的Input#方法读取文件,再判断若有输入,用For循环在in5.txt文件中逐一查找与Textl中内容相符的元素,相符的标准是Textl.Text=Mid(str(i),j,1),若有相匹配的,则在文本框中显示结果,若没找到则显示“未找到”,若Textl中未输入内容,则显示“未输入查找内容!”的提示。补充后的代码如下: Dim str()As String Dim num As Integer Dim rel As String Private Sub Commandl_Click() Dim tmp As String Dim j As Integer Dim i As Integer num=0 rel="" Open”App.Patb&\in5.txt”For
Input As#1
’打开文件进行读取 While
EOF(1)=False
’判断是否读取到文件末尾 Input#1,tmp num=num+1 ’获得字符串个数 Wend Close#1 ReDim str(num) ’重新分配数组控件 Open"App.Path&\in5.txt"For
Input As#1
For i=1 To num Input#1,str(i) ’读取字符串数组 Next i Close#1 For i=1 To num’利用For循环进行查找 For j=1 To
Len(str(i))
’逐个字符查找 If Textl.
Text
=Mid(str(i),i,1)Then rel=rel+str(i)+"" ’将查找到的结果放人字符串中 Else j=j+1 ’如果没有查找则计数加1 End If Next j Next i If rel=""Then rel="未找到!" ’如果没有查找到则显示"未找到" End If If Textl.Text=""Then rel="未输入查找内容!" End If Text2.
Text
=rel’在Text2中显示结果 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/vc1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
用鼠标点击菜单项(Menultem)产生的事件是()。
Java中对共享数据操作的并发控制采用传统的【】。
构造方法的作用是()。
在进行模块测试时,要为每个被测试的模块另外设计两类模块:驱动模块和承接模块(桩模块)。其中【】的作用是将测试数据传送给被测试的模块,并显示被测试模块所产生的结果。
下列关于线程调度的叙述十,错误的是()。
在E-R图中,用来表示实体的图形是()。
在下列关于二叉树的叙述中,正确的一项是()。
下列叙述正确的是()。
有如下的代码段,当编译和运行时,下列各选项中说法正确的是()。publicclassZ{publicstaticvoidmain(Stringargs[]){newZ()
在深度为7的满二叉树中,非叶子结点的个数为()。
随机试题
A.加味二妙散B.三仁汤C.清燥救肺汤D.虎潜丸痿证肺热津伤证代表方为
氨由肌肉组织通过血液向肝进行转运的过程是()
A.关节间隙狭窄,关节边缘有“骨刺”形成B.骨质疏松,关节间隙狭窄,附近骨组织呈磨砂玻璃样改变C.椎体无骨质破坏,脊柱呈“竹节”样改变D.椎体破坏,累及相邻椎体,椎间隙狭窄,伴椎旁梭形阴影类风湿关节炎的X线表现为
儿童病人尿道下裂的最佳分期手术年龄是
公开发行可转换公司债券应当提供担保,但最近1期末经审计的净资产不低于人民币()亿元的公司除外。
某永续年金每年都产生15元的现金流,若年利率为10%,则该年金流现值为()元。
战略决策与战术决策的区别在于()。
做学问,“要大处着眼,小处下手”,由博人专,不可急功近利。能大处着眼,为学方不致流于_________,而有裨益于世;能小处下手,方不致流于________。所以做学问千万不要求速效。填入画横线部分最恰当的一项是:
在考生文件夹中有一个工程文件execise54.vbp设窗体文件execise54.frm。在窗体Form1中已经给出了所有控件,如下图所示。编写适当的事件过程实现以下功能;
A、LegislationtoreducetheUSdebtiswaitingtobeapprovedbyCongress.B、TheUSisamongthe30countrieswithoutvotingpri
最新回复
(
0
)