首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的?改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生目录下的in5.txt文件中的15个姓名读到数组a中,并在窗体上显示这些姓名
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的?改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生目录下的in5.txt文件中的15个姓名读到数组a中,并在窗体上显示这些姓名
admin
2019-05-14
48
问题
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的?改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生目录下的in5.txt文件中的15个姓名读到数组a中,并在窗体上显示这些姓名;当在Text1中输入一个姓名,或一个姓氏后,如果单击“查找”按钮,则进行查找,若找到,就把所有与Text1中相同的姓名或所有具有Text1中姓氏的姓名显示在Text2中(如图3-101所示);若未找到,则在Text2中显示“未找到!”;若Text1中没有查找内容,则在Text2中显示“未输入查找内容!”。
注意:考生不得修改程序的其他部分和控件的属性,最后把修改后的文件按原文件名存盘。
选项
答案
审题分析 由本题程序源代码及要求可知,在程序运行时,首先单击“取数”按钮,使用Open语句打开考生目录下的in5.txt文件,然后利用For循环结合Input语句将15个姓名读到数组a中,并在窗体上显示这些姓名,循环结束后使用Close语句关闭打开的文件。 在“查找”按钮的单击事件中,首先判断Text1中文本的长度,如果长度大于0则意味着文本框中有输入,此时利用一个循环依次比较数组中每个元素的开头字符是否等于Text1中的内容。若相等则意味着是要找的结果,将其连接到变量c上,直到循环完毕判断变量c是否为空字符串,若不为空则显示在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:按要求将文件保存至考生文件夹中。 考点链接 顺序文件、数组定义与操作。
解析
转载请注明原文地址:https://kaotiyun.com/show/DUUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据结构中,与所使用的计算机无关的是数据的()。
在窗体(Name属性为Form1)上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Commandl),然后编写如下两个事件过程()。PrivateSubCommandl__Click()
若将变量TestDate声明为Date类型,则下列为变量TestDate赋值的语句中正确的是()。
在数据库设计中,将E-R图转换成关系数据模型的过程属于()。
在利用菜单编辑器设计菜单时,为了把组合键设置为“打开(0)”菜单项的访问键,可以将该菜单项的标题设置为()。
关于MDI窗体下列说法正确的是()。
下列操作中不能向工程中添加窗体的是()。
设在工程中有一个标准模块,并定义了如下类型:TypeStutypeinoAsIntegerstmameAsString*20strsexAsString*2smarkAsSingle
随机试题
能够比较真实地测定人际关系的性质的方法是()。
A.【适应症】B.【注意事项】C.【药物相互作用】D.【不良反应】该药品与其他药品合并用药的注意事项应列在
饰面砖粘贴的技术要求有()。
广义的金融市场包括()与狭义的金融市场两个部分。
常用的建筑工程功能评价的方法有()。
福勒和布朗根据教师所关注的焦点问题,把教师的发展分为三个阶段,下列选项不属于其分类的是()。
南京国民政府代表的是()的利益。
市场放缓,有实力的车企调整对策,使得自主品牌车企在乘用车市场的表现呈现出两极分化的态势:趋于成熟的自主品牌车企______,越走越好;也有一些企业走到了生死存亡的关头,已到______的地步。填入画横线部分最恰当的一项是:
A国人在B国境内劫持了C国飞机,迫降于D国境内,该A国人逃到我国境内,我国法院依照刑法对A国人追究刑事责任。这体现了我国刑法的()。
"TheDigitalDivide"TheChallengeofTechnologyandEquityInformationtechnologyisinfluencingthewaymanyofuslive
最新回复
(
0
)