首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的?改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生文件夹下的in5.txt文件中的15个姓名读到数组a中,并在窗体上显示这些姓
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的?改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生文件夹下的in5.txt文件中的15个姓名读到数组a中,并在窗体上显示这些姓
admin
2013-11-29
39
问题
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的?改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生文件夹下的in5.txt文件中的15个姓名读到数组a中,并在窗体上显示这些姓名;当在Text,中输入一个姓氏,或一个姓名后,单击“查找”按钮,则进行查找,若找到,就把所有与Textl中所有具有Textl中姓氏的姓名或相同的姓名显示在Text2中(如图所示);若未找到,则在Text2中显示“未找到!”;若Textl中没有查找内容,则在Text2中显示“未输入查找内容!”。
注意:考生不得修改程序的其他部分和控件的属性,最后将修改后的文件按原文件名存盘。
选项
答案
窗体的Print办法用于向窗体上输出内容,Cls办法用于清除窗体上已输出的内容。Left()函数用于取出已有字符串左边指定个数的字符串。根据题意,在“取数”按钮的click事件过程中,用Open语句打开文件in5.txt,用For循环的Input #方法读出10个数据存入数组a,并输出到窗体上,在整个输出前应先清除窗体上已有内容。在“查找”按钮的Click事件过程中,先判断在Txtl中是否输入了内容,若没有输入,在Txt2中显示相关信息;若有输入,用For循环在数组a 中逐一查找与Txtl中内容相符的元素,相符的标准是Left(a(i),n)=Txtl.text(i为循环变量,n为Txtl文本的长度),最后在文本框中显示结果。 步骤l:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Dim a(15)As String Private Sub Cl_Click() Dim k As Inleger Open“in5.txt”For Input As#l Forml.Cls For k=1 To 15 Input#l,a(k) Print a(k) Next k ‘Close? End Sub Private Sub C2_Click() Dim k As Integet,n As Integer,c As String ‘n=Len(?) C=“” lf n>0 Then For k=l To 15 ‘If Left(a(k),?)=Textl.Text Then ‘C=C+“”+? End If Next k If C=“”Then Text2.Text=“未找到!” Else Text2.Text=? End If Else Text2.Text=“未输入查找内容!” End If End Sub 程序结束 第1个?处填入:#l 第2个?处填入:Textl.Text 第3个?处填入:n 第4个?处填入:a(k) 第5个?处填入:C 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/7WQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_CIick()Dima(1To10)Dimp(1To3)k=5
软件工程的出现是由于
下面不属于软件工程的3个要素的是______。
若有一个动态数组a有两个元素a(0)和a(1),现要令数组a有三个元素a(0)、a(1)和a(2),则应当使用【】语句。
以下程序段的输出结果是【】。num=0DoWhilenum<=5num=num+1LoopPrintnum
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下事件过程:PrivateSubForm_Load()ShowTextl.Text=""Text2.Te
数据结构包括数据的逻辑结构、数据的【】以及对数据的操作运算。
以下叙述中错误的是
下列叙述中正确的是
下列说法中正确的是为了保存一个VisualBasic应用程序,应当
随机试题
保持现有出口竞争优势,加快培育以________为核心竞争力的新优势。()
A.交替脉B.颈静脉怒张C.水冲脉D.脉短绌慢性右心衰竭可出现
患者,女性,30岁,已婚,1一0一1—1。因“阴道流血8d,右下腹剧痛4h”就诊。下列叙述正确的有
(2010年)∫xe-2xdx等于()。(选项各式中C为任意常数)
下列关于施工图预算价格的说法错误的是()。
市场定位的步骤首先是()。
某市2008年6月底的人口总数为1000万人,其中就业人口为850万人,失业人口50万人,则该市2008年6月底的失业率为()。
在质量规划中,()是一种统计分析技术,可用来帮助人们识别并找出哪些变量对项目结果的影响最大。
A、 B、 C、 B
Yourweightaffectshowlongyoulive—butit’sextremelycomplicatedA)Weoftenthinkaboutweightlossintheshortterm,h
最新回复
(
0
)