2. 计算机
  3. 考生文件夹下有工程文件sjt5.vbp。程序运行时，外观如图1－153所示，单击“显示数据”按钮，则将考生文件夹下in5.dat 文件的内容读入到5行40列的二维数组a中，并按5行显示在Text1文本框内；单击“统计”按钮，则找出每行中偶数的最大值，计算奇

考生文件夹下有工程文件sjt5.vbp。程序运行时，外观如图1－153所示，单击“显示数据”按钮，则将考生文件夹下in5.dat 文件的内容读入到5行40列的二维数组a中，并按5行显示在Text1文本框内；单击“统计”按钮，则找出每行中偶数的最大值，计算奇

admin2018-10-29  58
问题 考生文件夹下有工程文件sjt5.vbp。程序运行时，外观如图1－153所示，单击“显示数据”按钮，则将考生文件夹下in5.dat 文件的内容读入到5行40列的二维数组a中，并按5行显示在Text1文本框内；单击“统计”按钮，则找出每行中偶数的最大值，计算奇数的平均值（平均值保留2 位小数，是否四舍五入不限），并将它们（共10个值）分别显示在Label1数组中和Text2 数组中。单击“保存”按钮，则保存计算结果。“显示数据”和“保存”按钮的Click事件过程已经给出，请编写“统计”按钮的Click事件过程实现上述功能。

    注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须用“统计”按钮进行统计，且必须单击“保存”按钮保存结果，否则无成绩。最后，程序按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt5.vbp，打开代码编辑窗口，在指定位置编写以下代码： 参考代码： For i = 1 To 5 Sum = 0 Counter = 0 Max = 0 For j = 1 To 40 If a(i, j) Mod 2 = 1 Then Sum = Sum + a(i, j) Counter = Counter + 1 Else If a(i, j) ＞ Max Then Max = a(i, j) End If End If Next Avg = Sum / Counter Label1(i - 1).Caption = Max Text2(i - 1).Text = Int(Avg * 100) / 100 Next 步骤2：按要求将文件保存至考生文件夹中。 步骤3：按＜F5＞键运行程序，先单击“显示数据”按钮，接着单击“统计”按钮，然后单击“保存”按钮保存结果。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/03Fp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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