首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下已有一个工程文件sjt5.vbp。运行程序后,分别从两个文件中读出数据,放入两个一维数组a、b 中。请编写程序,当单击“合并数组”按钮时,将a、b 数组中相同下标的数组元素的值求和,并将结果存入数组c。单击“找最大值”按钮时,调用find过程分
在考生目录下已有一个工程文件sjt5.vbp。运行程序后,分别从两个文件中读出数据,放入两个一维数组a、b 中。请编写程序,当单击“合并数组”按钮时,将a、b 数组中相同下标的数组元素的值求和,并将结果存入数组c。单击“找最大值”按钮时,调用find过程分
admin
2018-10-29
31
问题
在考生目录下已有一个工程文件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全国计算机二级
相关试题推荐
假定有以下通用过程:FunctionFun(nAsInteger)AsInteger x=n*n Fun=x-11EndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateS
设有如下通用过程:PublicFunctionf(xAsInteger) DimyAsInteger x=20 y=2 f=x*yEndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下
要删除列表框中最后一个列表项,正确的语句是( )。
编写如下程序:PrivateSubCommand1_Click()DimnAsInteger,tAsLongStaticsAsIntegert=1Forn=1To3t=
以下控件中,能显示滚动条的是
下列不属于计时器控件属性的是
支持子程序调用的数据结构是( )。
设有如下事件过程:PrivateSubForm_Click() Sum=0 Fork=1To3 Ifk
命令按钮Command1的事件过程如下:PrivateSubCommand1_Click() Dimarr(5,5)AsInteger DimiAsInteger,jAsInteger Fori=1To4
软件设计中模块划分应遵循的准则是
随机试题
()是不合理的营养要求。
针对具体的部门、岗位层次或岗位类别,在现有人员的基础上通过计算流人量和流出量来预测未来的供给的人力资源供给预测方法是()
下列选项中,说法正确的是()。
下列关于记账本位币的说法中,错误的是()。
下列有关线粒体和叶绿体的叙述,错误的是()。
最重要和最良性的学习动力是()
法律解释的种类不属于根据解释尺度不同而分类的是()。
在VlsualFoxPro中,字母Y表示的字段类型为【】。
有如下程序:PrivateSubForm_Click()DimiAsInteger,nAsIntegerFori=1To20i=i+4:n=n+iIfi>10ThenExitForNextPrintnEndSub
Ifyouareastudentwithbadcreditoralowcreditscore,nothavingacreditcardcanbefrustrating.【D1】______,youcanincr
最新回复
(
0
)