首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sj5.vbp,窗体Forml上有两个标签、两个文本框与一个命令按钮。其中命令按钮的名称为Commandl、标题为“查找”;文本框的名称分别是Textl与Text2,内空;标签名称分别是Labell与Label2,标题为“查找内
在考生文件夹下有一个工程文件sj5.vbp,窗体Forml上有两个标签、两个文本框与一个命令按钮。其中命令按钮的名称为Commandl、标题为“查找”;文本框的名称分别是Textl与Text2,内空;标签名称分别是Labell与Label2,标题为“查找内
admin
2009-08-26
60
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
下列包中,包含JoptionPane类的是()。
下面有关接口的说法中正确的是()。
在面向对象的程序设计中,类描述的是具有相似性质的一组【】。
线程在生命周期中要经历五种状态,在不使用stop()方法的情况下,线程当前处于终止状态,则它的上一个状态是()。
若二维数组a有m列,则在a[i][j]前的元素个数为()。
下列代码中,将引起一个编译错误的行是()。1)publicclassTest{2)intm,n;3)publicTest(){}4)publicTest(inta){m=a;}5)
下列代码中,将引起一个编译错误的行是()。1)publicclassTest{2)intm,n;3)publicTest(){}4)publicTest(ihta){m=a;}5)publicstaticvoidmain(Stringargs[]
设有定义语句inta[]={66,77,99},则下列对此语句的叙述中错误的是()。
在一棵二叉树上第5层的结点数最多是()。
某二叉树中度为2的结点有18个,则该二叉树中有【】个叶子结点。
随机试题
简述小说《奥利弗·退斯特》节选部分的艺术特征。
用酸水提取中药中的生物碱时,可用
下述说法错误的是
协调性宫缩乏力可从阴道分娩者,其护理计划为:
可以快速输注且有利尿作用的液体是()。
某化工生产基地,在进行防火设计时,根据不同泡沫系统的功能,为不同储罐设置了相应的泡沫灭火系统。其中,()应选用液下喷射泡沫灭火系统。
持有一种权益类证券的市值与其总市值的比例不得超过(),但因包销导致的情形和中国证券监督管理委员会另有规定的除外。
某高铁线路建设公司占用林地3万平方米用于办公楼的建设,另占用经济林地4万平方米用于建设高铁线路,所占耕地适用的定额税率为15元/平方米。该企业应缴纳耕地占用税()万元。
该商场1995年销售额最高的月份是()。该商场1995年10月份比9月份销售额增加了多少?()
It’s10pm.Youmaynotknowwhereyourchildis,butthechipdoes.Thechipwillalsoknowifyourchildhasfallenandne
最新回复
(
0
)