应用题
2. 在考生文件夹下有一个工程文件sjt4.vbp，包含了所有控件和部分程序，如图所示。其功能如下：
①单击“读数据”按钮，可将考生文件夹下in4.dat文件中的100个整数读到数组a中。
②单击“计算”按钮，则根据从组合框Combo1中选中的项目，对数组a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Text1中。
“读数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程实现上述功能。
注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
①单击“读数据”按钮，可将考生文件夹下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=0 Then '判断是否为偶数
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 Combo1.TeXt
Case "所有偶数"
Text1=m
Case "所有奇数"
Text1=n
Case "所有数"
Text1=r
End Select
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】不要忘记Select Case语句以End Select语句结束。
步骤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=0 Then '判断是否为偶数
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 Combo1.TeXt
Case "所有偶数"
Text1=m
Case "所有奇数"
Text1=n
Case "所有数"
Text1=r
End Select
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】不要忘记Select Case语句以End Select语句结束。
【答案解析】[考点] 本题考点有：文件编辑、App.Path相对路径、Mod()函数、Select Case语句、Int()函数、For循环语句以及If判断语句。
通过文件操作，打开文件，把数值读入数组。通过循环语句遍历数组a(k)，用If语句和Mod()函数判断是奇数还是偶数，先求出数组中元素的所有奇数和和所有偶数和，计算出平均数，通过Int()函数实现对结果的四舍五入取整，所有奇数和和所有偶数和的加和，求出所有数的和，用同样的方法得出平均数。Select Case语句判断组合框中选中的项目，实现函数的功能，在文本框中显示题目要求的平均值，并按题目要求存盘。
通过文件操作，打开文件，把数值读入数组。通过循环语句遍历数组a(k)，用If语句和Mod()函数判断是奇数还是偶数，先求出数组中元素的所有奇数和和所有偶数和，计算出平均数，通过Int()函数实现对结果的四舍五入取整，所有奇数和和所有偶数和的加和，求出所有数的和，用同样的方法得出平均数。Select Case语句判断组合框中选中的项目，实现函数的功能，在文本框中显示题目要求的平均值，并按题目要求存盘。