首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sj5.vbp,窗体Forml上有两个标签、两个文本框与一个命令按钮。其中命令按钮的名称为Commandl、标题为“查找”;文本框的名称分别是Textl与Text2,内空;标签名称分别是Labell与Label2,标题为“查找内
在考生文件夹下有一个工程文件sj5.vbp,窗体Forml上有两个标签、两个文本框与一个命令按钮。其中命令按钮的名称为Commandl、标题为“查找”;文本框的名称分别是Textl与Text2,内空;标签名称分别是Labell与Label2,标题为“查找内
admin
2009-08-26
74
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
如果线程正处于阻塞状态,不能够使线程直接进入可运行状态的情况是()。
数据库设计中,用E-R图来描述信息结构但不涉及信息在计算机中的表示,它属于数据库设计的()。
调试方法中的【】最适合小规模程序的排错。
下列数据结构中属于非线性结构的是()。
当启动Applet程序时,首先调用的方法是()。
要实现对Java代码的数字签名,对于代码的提供者要经过的4个步骤的正确顺序是()。Ⅰ:创建JAR文件Ⅱ:创建密钥Ⅲ:对JAR文件进行数字签名Ⅳ:输出公钥证书
在双链表中,每个结点有两个指针域,一个指向前驱结点,另一个指向【】。
有如下数组声明"intvalue[30];",下标值引用错误的是()。
在一棵二叉树上第5层的结点数最多是()。
当循环队列非空且队尾指针等于队头指针时,说明循环队列已满,不能进行入队运算。这种情况称为【】。
随机试题
I’dliketodiscusswithyouthesecretsofgoodconversation.Whensomeonetellsyouthatyouhavetogiveaspeech,your【B1】__
颅底骨折属于
A、《省心录论医》B、《外科正宗》C、《医业伦理学》D、《医家十要》E、万病回春》在上述著作中哪一本于1932年6月出版,成为我国第一部较系统的医学伦理学专著
A.每天化疗前,联合应用5一HT3受体阻断剂、口服地塞米松和阿瑞吡坦B.每天化疗前,联合应用5一HT3受体阻断剂和口服地塞米松C.每日化疗前,应用5一HT3受体阻断剂或口服地塞米松D.可不须治疗,必要时每天于化疗前,应用5一HT3受体阻断剂E.每天
(2018年)关于普通股筹资方式,下列说法错误的是()。
学生害怕在社会交往场合讲话,在人际交往中感到惶恐不安,并出现脸红、出汗、心跳加快、说话结巴和手足无措等现象。这种心理症状属于()。
中国共产党成立的思想基础是()。
极限
上网需要在计算机上安装()。
A、Thewomanisgoingtohaveajobinterview.B、Thewomanisbeinginterviewedbytheman.C、Thewomanwantstoprepareforher
最新回复
(
0
)