首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下已有一个工程文件sjt5.vbp。运行程序后,分别从两个文件中读出数据,放入两个一维数组a、b中。请编写程序,当单击“合并数组”按钮时,将a、b数组中相同下标的数组元素的值求和,并将结果存入数组c。单击“找最大值”按钮时,调用find过程分别找
在考生目录下已有一个工程文件sjt5.vbp。运行程序后,分别从两个文件中读出数据,放入两个一维数组a、b中。请编写程序,当单击“合并数组”按钮时,将a、b数组中相同下标的数组元素的值求和,并将结果存入数组c。单击“找最大值”按钮时,调用find过程分别找
admin
2017-06-22
59
问题
在考生目录下已有一个工程文件sjt5.vbp。运行程序后,分别从两个文件中读出数据,放入两个一维数组a、b中。请编写程序,当单击“合并数组”按钮时,将a、b数组中相同下标的数组元素的值求和,并将结果存入数组c。单击“找最大值”按钮时,调用find过程分别找出a、c数组中元素的最大值,并将所找到的结果分别显示在Text1、Text2中。在给出的窗体文件中已经有了全部控件,但程序不完整。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,并编写相应程序,实现程序的功能。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后,各命令按钮的事件过程必须至少各执行一次。
选项
答案
步骤1:打开考生文件夹下的本题工程文件sjt5.vbp,打开代码编辑窗口,在指定位置编写代码。 参考代码: Max=x(1) Next Fori=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:按<F5>键运行程序,先单击“读数据”按钮,再单击“合并数组”按钮,最后单击“找最大值”按钮。
解析
本题中自定义过程find的功能是找出数组参数x()中的最大值,并且将其放入文本框参数t中。其基本思路为:首先利用Ubound函数获得数组的长度,然后假设数组的第一个数为最大值,再由数组的第二个数直到最后一个数进行循环,在循环中对数组元素和最大值进行比较,二者中较大的数存入最大值变量,循环结束后将最大值显示在t中。在“合并数组”按钮的单击事件中,利用For循环依次将a、b数组中同下标的元素相加并且放入数组c中。
转载请注明原文地址:https://kaotiyun.com/show/hDGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在程序运行时,可以通过______方法来移动滚动条的位置。
在窗体上有—今名为Cd1的通用对话框,为了在运行程序时打开保存文件对话框,则在程序中应使用的语句是______。
设有如下程序:PrivateStaticFunctionFac(nAsInteger)AsIntegerDimfAsIntegerf=f+nFac=f
为了暂时关闭计时器,应把计时器的某个属性设置为False,这个属性是______。
以下能判断是否到达文件尾的函数是______。
下列工具中不是需求解析常用工具的是______。
在窗体上画一个名称为TxtA的文本框,然后编写如下的事件过程:PrivateSubTxtA_KeyPress(Keyasciiasinteger)EndSub若焦点位于文本框中,则能够触发KeyPress事件的操作是
当用__________________方式打开文件时,如果对文件进行写操作,则写入的数据附加到原文件的后面。
下列说法正确的是
设有如下的VisualBasic表达式:5*x^2-3*x-2*Sin(A)/3,它相当于代数式【】。
随机试题
查封、扣押决定书应当载明的事项包括()
代谢当量(Met)是指基础状态时的耗氧量,1Met等于
预防气性坏疽的最可靠治疗方法是
A.球后视神经炎B.视乳头炎C.视神经脊髓炎D.视乳头血管炎E.Leber遗传性视神经炎可分为视乳头水肿型和视网膜中央静脉阻塞型的是
男,6个月。患法洛四联症。近2天反复于哭闹时突然四肢抽搐,青紫加重,神志不清,呼吸急促,持续时间2~3分钟。主要原因是()
赔偿损失与支付违约金两种承担民事责任的方式()。
在预算定额的编制阶段,以下选项中不属于确定编制细则阶段内容的是()。
下列情形不能构成我国《继承法》上的父母子女关系的是()。
需求曲线向右上方倾斜的充分必要条件是()。
OneofthedifficultiesinbuildinganSQL-likequerylangefortheWebistheabsenceofadatabaseschemaforthishuge,heter
最新回复
(
0
)