首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的?改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生文件夹下的in5.txt文件中的15个姓名读到数组a中,并在窗体上显示这些姓
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的?改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生文件夹下的in5.txt文件中的15个姓名读到数组a中,并在窗体上显示这些姓
admin
2013-11-29
55
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
下列关于事件的叙述中不正确的是______。
若整型变量a值为2、b的值为3,则下列程序段执行后整型变量c的值为______。Ifa>5thenIfb<4Thenc=a-bElsec=b-aElseIfb>3Thenc=a*bElsec=
软件工程的出现是由于
将一个窗体设置为MDI子窗体的方法是______。
程序流程图(PFD)中的箭头代表的是______。
当用【】方式打开文件时,如果对文件进行写操作,则写入的数据附加到原来文件的后面。
最简单的交换排序方法是
高度为h(h>O)的二叉树最少有【】个结点。
如果一个工人可管理多个设备,而一个设备只被一个工人管理,则实体“工人”与实体“设备”之间存在______的联系。
某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签,计时器的属性设置为Enabled=True,Interval=0,并编程如下。希望在程序运行时,可以每2秒在标签上显示一次系统当前时间。PrivateSubTimer
随机试题
甲从A地出发往B地方向追乙,走了6个小时尚未追到,路旁店主称4小时前乙曾在此地,甲知此时距乙从A地出发已有12小时,于是甲以2倍原速的速度继续追乙,到B地追上乙,这样甲总共走了约()小时(取最近的选项)。
阅读下面的散文,运用已学的散文文体知识和评论写作方法,写一篇散文评论。要求:不求面面俱到,要有个人的角度和观点;不少于1000字;题目自拟。春之怀古
某患儿,5岁,高热40.8℃,昏迷不醒,抽搐,四肢厥冷,休克血压,肛拭子取便镜检:脓细胞(+),红细胞(+)。为了纠正休克,常用的扩容药是()
《诸病源候论》将前起阴蒂,后至阴唇系带,左右大、小阴唇之间的前后左右,称为
A.Ⅰ度烧伤B.Ⅲ度烧伤C.浅Ⅱ度烧伤D.深Ⅱ度烧伤E.特殊烧伤伤及真皮深层,有皮肤附件残留,主要病理变化为局部组织坏死,皮下层渗出明显,毛根有正常的结构的为()
“史前的卢浮宫”是指在()发现的拉斯科洞窟壁画。
差别定价是一种根据顾客需求强度而制定不同价格的定价技巧,主要运用于建立基本需求.尤其是对高峰期的服务最为适用;也可用以缓和需求的波动,减少服务的时间等不利影响。差别定价的形式包括:时间差异、顾客支付能力差异、服务品牌差异、地理位置差异等。根据上述定义,下
①流泪过程可以简单地理解为日常生活中的出排水系统:泪腺相当于水龙头,眼睛就像水盆,而鼻泪管就是下水管②但是,前者叫“流泪”,后者称之为“溢泪”③而“溢泪”则是一种疾病,病因在于泪道系统的异常④无论是水龙头放水太快,还是下水道走水太慢或者堵塞,都可能导
世界发展不应单峰耸立,________不应有孤岛。经济全球化浪潮中,“每一朵浪花有它的精彩”,________彼此声浪相助,________形成滚滚发展的春潮。依次填入画横线部分最恰当的一项是()。
公民实现政治权利和自由、社会经济权等其他权利的前提和基础是
最新回复
(
0
)