首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sj5.vbp,窗体Forml上有两个标签、两个文本框与一个命令按钮。其中命令按钮的名称为Commandl、标题为“查找”;文本框的名称分别是Textl与Text2,内空;标签名称分别是Labell与Label2,标题为“查找内
在考生文件夹下有一个工程文件sj5.vbp,窗体Forml上有两个标签、两个文本框与一个命令按钮。其中命令按钮的名称为Commandl、标题为“查找”;文本框的名称分别是Textl与Text2,内空;标签名称分别是Labell与Label2,标题为“查找内
admin
2009-08-26
24
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
下列关于Java布尔类型的描述中,正确的是()。
软件工程的理论和技术性研究的内容主要包括软件开发技术和()。
在进行模块测试时,要为每个被测试的模块另外设计两类模块:驱动模块和承接模块(桩模块)。其中【】的作用是将测试数据传送给被测试的模块,并显示被测试模块所产生的结果。
下列叙述中正确的是()。
下列关于线程调度的叙述十,错误的是()。
程序设计方法要求在程序设计过程中()。
程序中的DrawAny是—个显示图像的Applet,并且允许用户通过参数指定所要显示的图像,请在画线处填入正确的语句使得程序能够正确运行。testl5.html:<HTML><HEAD><TITLE>ASimpleP
设有下列二叉树(如下图所示):对此二叉树中序遍历的结果是()。
一个javaapplication源程序文件名为myjavaapplication.java,如果使用SUH公司的java开发工具jdk编译该源程序文件并使用其虚拟机运算这个程序的字节码文件,则应该首先执行的命令是:【】。
随机试题
患者男性,65岁,发现下睑硬结1个月余。体检发现硬结在睑缘皮肤黏膜移行处,边界不规则,边缘质硬隆起。完善相关检查,肿瘤仅有局部侵犯,没有淋巴结及远处转移,取细胞学眼睑鳞状细胞癌。正确的治疗原则是
男性,52岁。因咳嗽、痰血伴体重减轻2个月就诊,检查发现右肺上叶空洞性病变,洞壁光整,疑为结核。结核病空洞的特征应是
A.组织接种单位销毁B.立即停止销售C.对该疫苗依法查封、扣押D.采取应急处置措施依照《疫苗流通和预防接种管理条例》的规定接到质量可疑疫苗报告的药品监督管理部门应()
生产经营单位对重大危险源应当登记建档,进行定期检测、评估、监控,并制定应急预案,告知从业人员和相关人员在紧急情况下应当()。
某企业年赊销收入为360元,信用条件为“2/10,n/30”时,预计有20%的客户选择现金折扣优惠,其余客户在信用期付款,变动成本率为60%,资金成本率为8%,则应收账款占用资金的应计利息为()元。(1年按360天计算)
2017年3月11日,甲公司签发一张商业汇票,收款人为乙公司,到期日为2018年9月11日,甲公司的开户银行P银行为该汇票承兑。2018年6月30日,乙公司从丙公司采购一批货物,将该汇票背书转让给丙公司,丙公司9月30日持该汇票到其开户银行Q银行办理委托收
政府制定或调整重大劳动关系标准应当贯彻“三方原则”,其中“三方”指的是()。
全国人大代表,在全国人大闭会期间非经()的许可,不受逮捕或刑事审判。
关于假释,下列选项正确的是
在考生文件夹下,打开文档WORD1.docx,按照要求完成下列操作并以该文件名(WORD1.docx)保存文档。【文档开始】认识AGF8X要想深入认识AGP8X,让我们先来说说AGP总线这个话题吧。我们知道最初的
最新回复
(
0
)