首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的?改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生目录下的ins.txt文件中的15个姓名读到数组a中,并在窗体上显示这些姓名
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的?改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生目录下的ins.txt文件中的15个姓名读到数组a中,并在窗体上显示这些姓名
admin
2010-09-02
31
问题
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的?改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生目录下的ins.txt文件中的15个姓名读到数组a中,并在窗体上显示这些姓名;当在Textl中输入一个姓名,或一个姓氏后,如果单击“查找”按钮,则进行查找,若找到,就把所有与Textl中相同的姓名或所有具有TextI中姓氏的姓名显示在Text2.中(如图1-14l所示);若未找到,则在Text2中显示“未找到!”;若Textl中没有查找内容,则在Text2中显示“未输入查找内容!”。
注意:考生不得修改程序的其他部分和控件的属性,最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1;打开考生文件夹中的本题工程文件sjt5.vbp,打开代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: Close#1 n=Len(Textl.Text) If Left(a(k),n)=Textl.Text Then c=c+""+a(k) Text2.Text=c 步骤2:按要求将文件保存至考生文件夹中。
解析
由本题程序源代码及要求可知,在程序运行时,首先单击“取数”按钮,使用Open语句打开考生目录下的mS.mt文件,然后利用For循环结合Input语句将15个姓名读到数组a中,并在窗体上显示这些姓名,循环结束后使用Close语句关闭打开的文件。
在“查找”按钮的单击事件中,首先判断Textl中文本的长度,如果长度大于0则意味着文本框中有输入,此时利用一个循环依次比较数组中每个元素的开头字符是否等于Textl中的内容。若相等则意味着是要找的结果,将其连接到变量c上,直到循环完毕判断变量c是否为空字符串,若不为空则显示在Text2中。
转载请注明原文地址:https://kaotiyun.com/show/PFmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序段的输出结果是( )。publicclassTest{publicstaticvoidmain(String[]args){intj=2,i=5;whi
按照“后进先出”原则组织数据的数据结构是( )。
现有一个整型数组a[4],它的所有数组元素为( )。
创建一个10行40列的文本区域tal的正确语句是______。
下列选项中可以创建一个标识有“关闭”的按钮语句的是( )。
给出下列代码,可放在类A的横线位置作为A合理的内部类的是( )。classA{protectedinti;A(inti){this.i=i;}
下面不属于软件设计原则的是( )。
关于文件名的处理中,测试当前文件是否目录用______函数。
在关系运算中,______运算是对两个具有公共属性的关系所进行的运算。
下列程序的功能是在监控台上每隔一秒钟显示一个字符串"Hello!",能够填写在程序中下划线位置,使程序完整并能正确运行的语句是publicclassTestimplementsRunnable{publicstaticvoidmain(Strin
随机试题
A、1B、2C、3D、5C
子产实行的确认土地私有合法性的制度是()
(2010年)管道长度L不变,管中流动为层流,允许的水头损失hf不变,若直径d变为原来的2倍时,且不计局部损失,流量将变为原来的()倍。
安全保证计划是施工组织设计的重要组成部分,下列项目属于计划内容的是()。
()的成立标志着国际评估业走向国际化协助发展的道路。
根据《中华人民共和国出境入境管理法》的规定,下列几类外国人中,()属于不批准出境的。
依据《宪法》规定,有权决定直辖市进入紧急状态的机关是()。
哲学上称之为一元论的是指
真理原则要求是()
Forthispart,youareallowed30minutestowriteashortessayonthetopicofIsOfferingSeatsCompulsoryforYoungPassenge
最新回复
(
0
)