首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sj5.vbp,窗体Forml上有两个标签、两个文本框与一个命令按钮。其中命令按钮的名称为Commandl、标题为“查找”;文本框的名称分别是Textl与Text2,内空;标签名称分别是Labell与Label2,标题为“查找内
在考生文件夹下有一个工程文件sj5.vbp,窗体Forml上有两个标签、两个文本框与一个命令按钮。其中命令按钮的名称为Commandl、标题为“查找”;文本框的名称分别是Textl与Text2,内空;标签名称分别是Labell与Label2,标题为“查找内
admin
2009-08-26
62
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
下列程序的功能是将一个整数数组写入二进制文件,在程序的下划线处应填入的选项是()。importjava.io.*;publicclassXieShuzu{publicstaticvoidmain(String[]a){
下列程序段的输出结果是()。intdata=0;chark=’a’,p=’f’data=p-k;System.out.printlln(data);
Java语言的各种数据类型之间提供自动转换,如第1操作数是byte类型,第2操作数是float类型,其结果是【】类犁。
1下列程序创建了一个线程并运行,请填空,使程序完整。publicclassThreadTest{publicstaticvoidmain(Stringargs[]){Helloh=newHello();
在下列源代码文件Test.java中,正确定义类的代码是()。
下列叙述正确的是()。
【】是运行Java小应用程序的一个软件单元,对Java小应用程序的访问权限加以限制。
将E-R图转换到关系模式时,实体与联系都可以表示成()。
在深度为7的满二叉树中,非叶子结点的个数为()。
已知二叉树后序遍历序列是dabec,中序遍历序列是debac,它的前序遍历序列是()。
随机试题
硬蜱传播哪些疾病
某电力调度大楼总建筑面积49700m2,高143m,其中地下3层、地上主楼36层,副楼7层。该大厦是电力局的指挥中心、调度中心、信息通信中心,是集决策、办公、生产、服务、会议等于一体的综合大厦。本大楼智能化系统主要包括设备监控、火灾报警、有线电视、保安自动
土方路基实测项目中,属于关键项目的是()。
浅埋及软土隧道施工通常采用()。
可以为施工承包商提供履约担保书的单位有()。
存款合同必须是在储户将款项交付银行经确认并出具存款凭证后才成立,这说明存款合同是一种()。
因产品存在缺陷造成人身损害的,在()情况下,生产者不承担赔偿责任。
编一本书的书页,用了270个数字(重复的也算,如页码115用了2个1和1个5,共3个数字),问这本书一共有多少页?
A、Cheesecanhelpreducetheacidinthemouth.B、Cheesecanhelpstrengthentheteeth.C、Notallcheesecanhelpwithyourdent
Forthispart,youareallowed30minutestowriteashortessayentitledDoesGradesMeanAbility?Youshouldwriteatleast15
最新回复
(
0
)