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

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

admin2016-06-23  25
问题 在考生文件夹下有一个工程文件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
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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