在考生文件夹下有一个工程文件sjt4.vbp,包含了所有控件和部分程序,如图所示。其功能如下: ①单击“读数据”按钮,可将考生文件夹下in4.dat文件中的100个整数读到数组a中。 ②单击“计算”按钮,则根据从组合框Combo1中选中的项目,对数组a中的

admin2016-06-23  26

问题 在考生文件夹下有一个工程文件sjt4.vbp,包含了所有控件和部分程序,如图所示。其功能如下:
①单击“读数据”按钮,可将考生文件夹下in4.dat文件中的100个整数读到数组a中。
②单击“计算”按钮,则根据从组合框Combo1中选中的项目,对数组a中的数据计算平均值,并将计算结果四舍五入取整后显示在文本框Text1中。
“读数据”按钮的Click事件过程已经给出,请为“计算”按钮编写适当的事件过程实现上述功能。
注意:不得修改已经存在的控件和程序,在结束程序运行之前,必须进行一次计算,且必须用窗体右上角的关闭按钮结柬程序.否则无成绩。最后,程序按原文件名存盘。

选项

答案[操作步骤] 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考代码 Dim k As Long Dim m As Long Dim q As Long Dim P As Long Dim r As Long Dim n As Long For k=1 To 100 If a(k)Mod 2=0Then’判断是否为偶数 m=m+a(k)’偶数之和 q=q+1’偶数个数加1 Else n=n+a(k)’奇数之和 P=P+1’奇数个数加1 End If Next k r=Int((m+n)/(p+q)+0.5)’平均值 m=Int(m/q+0.5)’偶数平均值 n=Int(n/P+0.5)’奇数平均值 Select Case Combol.Text Case"所有偶数" Text1=m Case"所有奇数" Text1=n Case"所有数" Text1=r End Select 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

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

最新回复(0)