首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)考生文件夹下的工程文件Bjt3.vbp中有一个初始文本为空且带有垂直滚动条的文本框,其名称为Text1;两个标题分别为“读数据”和“查找”的命令按钮,其名称分别为Cmd1、Cmd2。请添加—个标题为“查找结果”的标签Labell,再添加一个名称为Te
(1)考生文件夹下的工程文件Bjt3.vbp中有一个初始文本为空且带有垂直滚动条的文本框,其名称为Text1;两个标题分别为“读数据”和“查找”的命令按钮,其名称分别为Cmd1、Cmd2。请添加—个标题为“查找结果”的标签Labell,再添加一个名称为Te
admin
2015-06-30
54
问题
(1)考生文件夹下的工程文件Bjt3.vbp中有一个初始文本为空且带有垂直滚动条的文本框,其名称为Text1;两个标题分别为“读数据”和“查找”的命令按钮,其名称分别为Cmd1、Cmd2。请添加—个标题为“查找结果”的标签Labell,再添加一个名称为Text2,其初始文本为空的文本框,如图所示。
程序功能如下:
①单击“读数据”按钮,则将考生文件夹下的in3.dat文件中已按从小到大排列顺序的30个整数读入一维数组a中,并同时在Text1文本框内显示。
②单击“查找”按钮,将弹出输入框接收用户输入的任意一个偶数,若接收的数为奇数,则提示重新输入。如果接收的偶数超出一维数组a的数值范围,则无须进行相应查找工作,直接在Text2内给出结果;否则,在一维数组a中查找该数,并根据查找结果在Text2文本框内显示相应信息。
命令按钮的Click事件过程已给出,但“查找”按钮的Click事件过程不完整,请将其中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后程序按原文件名进行存盘。
(2)考生文件夹下的工程文件sjt4.vbp中有一个初始文本为空的文本框Text1,一个包含三个元素的文本框控件数组Text2,两个分别含有三个元素的标签控件数组Label1和LabeL2,两个标题分别是“读数据”和“统计”的命令按钮,如图所示。
程序功能如下:
①考生文件夹下in4.dat文件中存有20个考生的考号及数学和语文单科考试成绩。单击“读数据”按钮,可以将in4.dat文件内容读入20行3列的二维数组a中,并同时在Text1文本框内显示。
②单击“统计”按钮,则对考生数学和语文的平均分在“优秀”、“通过”和“不通过”三个分数段的人数进行统计,并将人数统计结果在控件数组Text2中相应位置显示。其中,平均分在85分以上(含85分)为“优秀”,平均分在60—85分(含60分)为“通过”,平均分在60分以下为“不通过”。
命令按钮的Click事件过程已经给出,但“统计”按钮的Click事件过程不完整,请将其中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后程序按原文件名进行存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件,添加一个标签为"查找结果"的标签和一个初始内容为空的文本框。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(30) As Integer Private Sub Cmd1_Click() Open App.Path & "\in3.dat" For Input As #1 For m = 1 To 30 Input #1, a(m) Text1 = Text1 + Str(a(m)) + Space(2) Next m Close #1 End Sub Private Sub Cmd2_Click() Dim num As Integer, n As Integer num = InputBox("请输入待查找的数") ’ If num / 2 ? Fix(num / 2) Then MsgBox "输入数为奇数,请重输!", , "检查" Exit Sub End If ’ If num < a(1) ? num > a(30) Then Text2.Text = Str(num) + "已超出所给数值范围" Exit Sub End If For n = 1 To 30 ’ If a(n)= ? Then Text2.Text = Str(num) + "是数组中的第" + Str(n) + "个值" Exit For End If Next n ’If n ? 30 Then Text2.Text = Str(num) + "不存在于数组中" End If End Sub 程序结束 参考答案 第1个?处填入:<> 第2个?处填入:Or 第3个?处填入:num 第4个?处填入:> 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(20, 3) As Integer Private Sub Command1_Click() Open App.Path & "\in4.dat" For Input As #1 For i = 1 To 20 For j = 1 To 3 Input #1, a(i, j) Text1 = Text1 + Str(a(i, j)) + Space(4) Next j Text1 = Text1 + Chr(13) + Chr(10) Next i Close #1 End Sub Private Sub Command2_Click() Dim x(3) As Integer For i = 1 To 20 ’ ? = (a(i, 2) + a(i, 3)) / 2 Select Case Avg ’ Case ? x(1) = x(1) + 1 ’ Case ? x(2) = x(2) +1 Case Is < 60 x(3) = x(3) + 1 ’ ? Next i For n = 1 To 3 ’ Text2( ? ) = x(n) Next n End Sub 程序结束 参考答案 第1个?处填入:Avg 第2个?处填入:Is >= 85 第3个?处填入:Is >= 60 第4个?处填入:End Select 第5个?处填入:n - 1 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/DuQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体中有3个按钮Command1、Command2和Command3,该程序的功能是当单击按钮Command1时,按钮2可用,按钮3不可见,正确的程序是PrivateSubCommand1_Click()Comm
若结点的存储地址与其关键字之间存在某种映射关系,则称这种存储结构为______。
下列语句用于打开一个顺序文件Open"C:\MyFile.txt"ForOutPut,但该语句的一个重要错误是没有()。
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:FunctionM(xAsInteger,yAsInteger)AsIntegerM=IIf(x>y,x,y)EndFuncti
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1Click()a=Val(InputBox(“请输入一个整数”))b=Val(InputBox(“请输入一个整数”))P
执行下面的程序段后,i的值为______,s的值为______。s=2Fori=2To9Step0.8s=s+1Nexti
结构化分析方法是面向()的自顶向下逐步求精进行需求分析的方法。
下面关于多窗体程序设计描述不正确的是
下列选项中,不是一个算法的基本特征的是()。
随机试题
公民、法人或者其他组织对仲裁行为不服提起诉讼的,不属于人民法院行政诉讼的受案范围()
背景资料: 某大(2)型水利枢纽工程由拦河坝、溢洪道、泄洪隧洞、引水发电隧洞等组成。拦河坝为混凝土面板堆石坝,坝高80m,拦河坝断面示意图如图4-2所示。 施工过程中发生如下事件: 事件一:施工单位进驻工地后,对石料料场进行了复核和规划,并对堆石
全口义齿的前牙排列成浅覆颌浅覆盖的原因()
具有三种电压的110kV变电所,通过主变压器各侧线圈的功率均达到该变压器容量的下列哪个数值以上时,主变压器宜采用三线圈变压器?()
某证券投资基金合同生效已超过10年,投资业绩表现良好,关于该基金宣传推介材料的业绩登载,以下表述正确的是()。[2017年11月真题]Ⅰ.应当登载最近10个完整会计年度的业绩Ⅱ.推介该基金的定期定额投资业务时,可以按
人民法院于2012年5月16日受理了债权人甲公司申请债务人乙公司破产案。管理人在对乙公司的债权债务进行清理时发现,乙公司曾于2011年9月11日为所欠丙公司的一笔原本没有财产担保的到期债务提供抵押担保。根据企业破产法律制度的规定,下列表述中,正确的是(
患者,男性,36岁。因饮食不当,腹痛、腹泻2天,前来就诊,临床诊断为急性胃肠炎。医师开具处方如下:蒙脱石散3.0g,tid,冲服。盐酸左氧氟沙星片,0.2g,bid,口服。口服补液盐I散剂14.75g,qd。根据上述案例,回答下列问题:发药时,药
霍尔巴赫认为:“人是自然产物,存在于自然之中,服从自然的法则,不能超越自然。”这一观点()
RainmakingScientificrainmakingwasstartedbyVincentJ.Schaeferaftertheyearof【1】.Alucky【2】broughthimtosuccess.
WriteonANSWERSHEETONEanoteofabout50~60wordsbasedonthefollowingsituation:Youhaveheardthatyourclassmate,D
最新回复
(
0
)