首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的“?”改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生目录下的in5.txt文件中的15个姓名读到数组a中,并在窗体上显示这些
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的“?”改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生目录下的in5.txt文件中的15个姓名读到数组a中,并在窗体上显示这些
admin
2017-09-22
66
问题
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的“?”改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生目录下的in5.txt文件中的15个姓名读到数组a中,并在窗体上显示这些姓名;当在Text1中输入一个姓名,或一个姓氏后,如果单击“查找”按钮,则进行查找,若找到,就把所有与Text1中相同的姓名或所有具有Text1中姓氏的姓名显示在Text2中(如图3.101所示);若未找到,则在Text2中显示“未找到!";若Text1中没有查找内容,则在Text2中显示“未输入查找内容!"。
注意:考生不得修改程序的其他部分和控件的属性,最后把修改后的文件按原文件名存盘。
选项
答案
步骤1:打开考生文件夹中的本题工程文件sjt5.vbp,打开代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: Close #1 n=Len(Text1.Text) If Left(a(k),n)=Text1.Text Then c=c+" "+a(k) Text2.Text=c 步骤2:按要求将文件保存至考生文件夹中。
解析
由本题程序源代码及要求可知,在程序运行时,首先单击“取数”按钮,使用Open语句打开考生目录下的in5.txt文件,然后利用For循环结合Input语句将15个姓名读到数组a中,并在窗体上显示这些姓名,循环结束后使用Close语句关闭打开的文件。
在“查找”按钮的单击事件中,首先判断Text1中文本的长度,如果长度大于0则意味着文本框中有输入,此时利用一个循环依次比较数组中每个元素的开头字符是否等于Text1中的内容。若相等则意味着是要找的结果,将其连接到变量c上,直到循环完毕判断变量c是否为空字符串,若不为空则显示在Text2中。
转载请注明原文地址:https://kaotiyun.com/show/xjGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面的程序执行时,将把当前目录下的顺序文件smtext1.txt的内容读入内存,并在文本框Text1中显示出来。请填空。PrivateSubCommandl_Click()DiminDataAsString
数据库设计包括概念设计、【】和物理设计。
滚动条控件中,用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是_______。
假定有下表所列的菜单结构:要求程序运行后,如果单击菜单项“大图标”,则在该菜单项前添加一个“√”。以下正确的事件过程是
通过文本框()事件过程可以获取文本框中输入字符的ASCII码值。
要把一个命令按钮设置成无效,应设置属性______的值为False。
使用驱动器列表框的______属性可以返回或设置驱动器列表中当前选中的磁盘驱动器的索引值。
决定一个窗体有无控制菜单的属性是______。
一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句PublicXAsInteger,在Model1中有语句PublicYAsInteger,则以下叙述中正确的是()。
随机试题
整体式滑动轴承修理,一般采用金属喷镀法,对大型或贵重材料的轴泵采用更新的方法。()
急性血源性骨髓炎最常见的致病菌是乙型链球菌。()
在下列间隙感染中,最常引起颌骨边缘性骨髓炎的是
头部外伤后,最常扪及头皮下波动的是
村民乙为了多获土地补偿款,找到负责核定土地面积的国家机关工作人员甲,与甲商量,让甲核定面积时多写面积。甲答应,将乙的核定土地面积从30平方米改到100平米,之后让其具体负责核定面积的下属丙签字。乙因此多获了40万元的土地补偿款,取出10万元给了甲。对于甲的
关于钢结构优点的说法,错误的是:
下列关于干粉灭火系统的说法中,不正确的是()。
下列关于信用风险评级标准法下信用风险计量框架的表述,正确的有()。
Barry,Here’saquickstatusreportonthecurrentaffairsintheofficewhileyou’vebeengone.Ialsosentyouanemailinadd
OfalltheextraordinaryeventsinthelifeofJohnPaulII,fewcancomparewiththe21minuteshespentinacellinRome’sRe
最新回复
(
0
)