2. 计算机
  3. 在考生目录下已有一个工程文件sjt5．vbp。运行程序后，分别从两个文件中读出数据，放入两个一维数组a、b中。请编写程序，当单击“合并数组”按钮时，将a、b数组中相同下标的数组元素的值求和，并将结果存入数组c。单击“找最大值”按钮时，调用find过程分别找

在考生目录下已有一个工程文件sjt5．vbp。运行程序后，分别从两个文件中读出数据，放入两个一维数组a、b中。请编写程序，当单击“合并数组”按钮时，将a、b数组中相同下标的数组元素的值求和，并将结果存入数组c。单击“找最大值”按钮时，调用find过程分别找

admin2010-09-02  63
问题 在考生目录下已有一个工程文件sjt5．vbp。运行程序后，分别从两个文件中读出数据，放入两个一维数组a、b中。请编写程序，当单击“合并数组”按钮时，将a、b数组中相同下标的数组元素的值求和，并将结果存入数组c。单击“找最大值”按钮时，调用find过程分别找出a、c数组中元素的最大值，并将所找到的结果分别显示在Textl、Text2中。在给出的窗体文件中已经有了全部控件，但程序不完整。
要求：去掉程序中的注释符，把程序中的?改为正确的内容，并编写相应程序，实现程序的功能。
注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，各命令按钮的事件过程必须至少各执行一次。
选项
答案 【操作步骤】 步骤1：打开考生文件夹下的本题工程文件sjt5．vbp。打开代码编辑窗口。在指定位置编写代码。 参考代码： Private Sub find(x()As Integer，t As ’======以下为考生编写的程序========= 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：按键运行程序，先单击“读数据”按钮，再单击“合并数组”按钮，最后单击“找最大值”按钮。
解析 本题中自定义过程fmd的功能是找出数组参数x()中的最大值，并且将其放入文本框参数t中。其基本思路为：首先利用Ubound函数获得数组的长度，然后假设数组的第一个数为最大值，再由数组的第二个数直到最后一个数进行循环，在循环中对数组元素和最大值进行比较，二者中较大的数存入最大值变量，循环结束后将最大值显示在t中。   
    在“合并数组”按钮的单击事件中，利用For循环依次将a、b数组中同下标的元素相加并且放入数组c中。
转载请注明原文地址:https://kaotiyun.com/show/iUmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)