首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下已有一个工程文件sjt5.vbp。运行程序后,分别从两个文件中读出数据,放入两个一维数组a、b 中。请编写程序,当单击“合并数组”按钮时,将a、b 数组中相同下标的数组元素的值求和,并将结果存入数组c。单击“找最大值”按钮时,调用find过程分
在考生目录下已有一个工程文件sjt5.vbp。运行程序后,分别从两个文件中读出数据,放入两个一维数组a、b 中。请编写程序,当单击“合并数组”按钮时,将a、b 数组中相同下标的数组元素的值求和,并将结果存入数组c。单击“找最大值”按钮时,调用find过程分
admin
2018-10-29
29
问题
在考生目录下已有一个工程文件sjt5.vbp。运行程序后,分别从两个文件中读出数据,放入两个一维数组a、b 中。请编写程序,当单击“合并数组”按钮时,将a、b 数组中相同下标的数组元素的值求和,并将结果存入数组c。单击“找最大值”按钮时,调用find过程分别找出a、c数组中元素的最大值,并将所找到的结果分别显示在Text1、Text2中。在给出的窗体文件中已经有了全部控件,但程序不完整。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,并编写相应程序,实现程序的功能。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后,各命令按钮的事件过程必须至少各执行一次。
选项
答案
【操作步骤】 步骤1:打开考生文件夹下的本题工程文件sjt5.vbp,打开代码编辑窗口,在指定位置编写代码。 参考代码: Private Sub find(x() As Integer, t As TextBox) ’======以下为考生编写的程序====== Max = x(1) For i = 2 To UBound(x) If x(i) > Max Then Max = x(i) End If Next t.Text = Max =====考生编写的程序结束====== End Sub Private Sub Command2_Click() =====以下为考生编写的程序======= For i = 1 To UBound(a) c(i) = a(i) + b(i) Next =====考生编写的程序结束========== Open App.Path & "\out51.txt" For Output As #1 For i = 0 To 9 Print #1, c(i) Next Close #1 End Sub 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按<F5>键运行程序,先单击“读数据”按钮,再单击“合并数组”按钮,最后单击“找最大值”按钮。
解析
转载请注明原文地址:https://kaotiyun.com/show/dCFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体的名称为Form1,标题为Win,则窗体的MouseDown事件过程的过程名是( )。
语句DimArr(-2To4)AsInteger所定义的数组的元素个数为( )。
下列关于控件数组的叙述中,正确的是
对于含有多个窗体的工程而言,以下叙述中正确的是
为了将"联想电脑"作为数据项添加到列表框List1的最前面,可以使用语句()。
为了使文本框同时具有垂直和水平滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为( )。
以下能接收焦点的控件是
为了在运行时能显示窗体左上角的控制框(即系统菜单),应执行的操作是
能够产生1到50之间(含1和50)随机整数的表达式是( )。
随机试题
下列行为中,属于侵犯商业秘密权的是()。
试述杜甫律诗的创作成就。
简述移植的分类。
患者,男,47岁,体质素弱,近半年来,呕吐时作时止,倦怠乏力,舌苔薄白,脉弱。治疗除主穴外,应选用
下列关于吊箱围堰的叙述正确的有()。
隧道施工中,作业环境必须符合的规定是()。
甲公司本月销售情况如下:(1)现款销售100台,售价2000000元(不含增值税,下同)已入账:(2)需要安装的销售20台,售价400000元,款项尚未收取,但安装任务比较简单;(3)分期收款销售40台,售价800000元,第一期款项400000元(不含增
生产力决定教育的领导权及受教育权。()
下列何种情形下,在侦查期间辩护律师会见在押的犯罪嫌疑人,应当经侦查机关许可?()
请在“答题”菜单中选择相应的命令,并按照题目要求完成下面的操作。注意:以下的文件必须保存在考生文件夹下。请根据提供的”ppt素材及设计要求.docx”设计制作演示文稿,并以文件名“ppt.pptx”存盘,具体要求如下:1.演示
最新回复
(
0
)