首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下已有一个工程文件sjt5.vbp。运行程序后,分别从两个文件中读出数据,放入两个一维数组a、b中。请编写程序,当单击“合并数组”按钮时,将a、b数组中相同下标的数组元素的值求和,并将结果存入数组c。单击“找最大值”按钮时,调用find过程分别找
在考生目录下已有一个工程文件sjt5.vbp。运行程序后,分别从两个文件中读出数据,放入两个一维数组a、b中。请编写程序,当单击“合并数组”按钮时,将a、b数组中相同下标的数组元素的值求和,并将结果存入数组c。单击“找最大值”按钮时,调用find过程分别找
admin
2020-07-22
55
问题
在考生目录下已有一个工程文件sjt5.vbp。运行程序后,分别从两个文件中读出数据,放入两个一维数组a、b中。请编写程序,当单击“合并数组”按钮时,将a、b数组中相同下标的数组元素的值求和,并将结果存入数组c。单击“找最大值”按钮时,调用find过程分别找出a、c数组中元素的最大值,并将所找到的结果分别显示在Text1、Text2中。在给出的窗体文件中已经有了全部控件,但程序不完整。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,并编写相应程序,实现程序的功能。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后,各命令按钮的事件过程必须至少各执行一次。
选项
答案
步骤l:打开考生文件夹下的本题工程文件sit5.vbp,打开代码编辑窗口,在指定位置编写代码。 Max=x(1) Next For i=2 To UBound(x) t.Text=Max If x(i)>Max Then For i=1 To UBound(a) Max=x(i) c(i)=a(i)+b(i) End If Next 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按
键运行程序,先单击“读数据”按钮,再单击“合并数组”按钮,最后单击“找最大值”按钮。
解析
本题中自定义过程find的功能是找出数组参数x()中的最大值,并且将其放入文本框参数t中。其基本思路为:首先利用Ubound函数获得数组的长度,然后假设数组的第一个数为最大值,再由数组的第二个数直到最后一个数进行循环,在循环中对数组元素和最大值进行比较,二者中较大的数存入最大值变量,循环结束后将最大值显示在t中。
在“合并数组”按钮的单击事件中,利用For循环依次将a、b数组中同下标的元素相加并且放入数组c中。
转载请注明原文地址:https://kaotiyun.com/show/lwHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
A、选择B、投影C、自然连接D、并A由关系R到关系S为一元运算,排除C和D。关系S是关系R的一部分,是通过选择之后的结果,因此选A。
(1)在考生文件夹下包含一个工程文件Sjt=;.vbp,请在名称为Forml的窗体上添加一个名称为Textl的文本框和一个名称为c1、标题为“转换”的命令按钮,如图所示。在程序运行时,单击“转换”按钮,可以把Textl中的小写字母转换为大写,把大写字母转换
要使得文件列表框File1中只显示文件扩展名为jpg的图片文件,则下列正确的语句是
下面描述中,不属于软件危机表现的是( )。
为了使标签中的内容居中显示,应把Alignment属性设置为()。
下列关于栈的叙述正确的是()。
下面不属于软件设计阶段任务的是
设x为一整型变量,且情况语句的开始为:SelectCasex,则不符合语法规则的case子句是()。
用语句Open"C:\teac.txt"ForInputAs#1打开文件后,就可以编程序
有如下语句序列:Dima,bAsIntegerPrintaPrintb执行以上语句序列,下列叙述中错误的是()。
随机试题
________.
内、外侧膝状体分别是____________和____________传导通路的中继站。
吕女士,32岁,孕2产1,妊娠24周以后,腹部迅速膨隆,出现腹部胀痛、呼吸困难及下肢浮肿,于妊娠28周时来院就诊.检查:子宫底在剑突下3横指,腹围96cm,胎位触不清。胎心音听不清,隐约触到胎动,本病例可能的诊断是()
能引起心脏损伤的药物是
确立系统质量控制网络的首要工作是()。
根据我国《企业会计制度》的规定,我国企业资产负债表采用()结构。
计算销项税是以含增值税的销售额作为计税依据。()
假设某深圳证券交易所所属的证券登记结算机构的结算银行是招商银行总行(深圳),则深圳交易所的会员法人可选择()作为其结算银行。
在乘火车时,导游人员应尽量将老年旅游者安排在下铺。()
Notlongago,amysteriousChristmascarddroppedthroughourmailslot.TheenvelopewasaddressedtoamannamedRaoul,who,I
最新回复
(
0
)