首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的?改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生目录下的ins.txt文件中的15个姓名读到数组a中,并在窗体上显示这些姓名
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的?改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生目录下的ins.txt文件中的15个姓名读到数组a中,并在窗体上显示这些姓名
admin
2010-09-02
56
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
在文件类提供的方法中,用于创建目录的方法是( )。
给出下面不完整的类代码,则横线处的语句应该为( )。classPerson{Stringname,department;intage;publicPerson(Strings){nam
有下面的Applet程序段:import.java.awt.*;import.java.applet.*;publicclassHelloextendsApplet{publicvoidpanin(Graphicsg){gdrawS
软件设计模块化的目的是【】。
包含Swing构件的Applet(小应用程序)应该是______类的子类。
Java中方法的参数传递是______调用,方法不能改变参数值,但可以改变变量值,两个对象之间的参数字段不能相互交换。
下面程序实现对zip文件file.zip的查询,在横线处填上正确的语句______。packagetest;importjava.io.*;importjava.util.*;impor
下面属于面向对象程序设计语言的是______。
在文件类提供的方法中,用于创建目录的方法是.
随机试题
“七十者衣帛食肉”一句中含有哪种特殊语法现象()
下列疾病中不会出现异嗜现象的疾病是()。
A.尼尔雌醇B.甲羟孕酮C.地塞米松D.泼尼松龙E.氢化可的松属于雌激素的是
手术野污染的途径有( )。
根据《测绘仪器防霉、防雾、防锈》,下列测绘仪器三防要求中,错误的是()。
下列对倒虹吸管施工主要工序的顺序叙述正确的是()。
配制高强度混凝土必须使用的外加剂是()。
永发公司为增值税一般纳税人,2017年发生的有关业务如下:(1)2月19日,永发公司外购一项土地使用权,取得增值税专用发票注明的价款5000万元,增值税税额为550万元,取得土地使用证时支付契税200万元,支付其他相关费用80万元。该项土地使用权的使用年
()的情况下,替代品的威胁高。
DuringtheBritishCivilWar,thesupportersofthekingwerecalled
最新回复
(
0
)