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

admin2016-12-29  29

问题 在考生目录下已有一个工程文件sit5.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.C1 ick() ====以下为考生编写的程序==== 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 Close31 End Sub 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按键运行程序,先单击“读数据”按钮,再单击“合并数组”按钮,最后单击“找最大值”按钮。

解析
转载请注明原文地址:https://kaotiyun.com/show/c9Gp777K
0

最新回复(0)