【正确答案】[操作步骤] 步骤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+i '奇数个数加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：调试并运行程序，关闭程序后按题目要求存盘。

【答案解析】[考点] 本题考点有：文件编辑、App.Path相对路径、Mod()函数、Select Case语句、Int()函数、For循环语句以及If判断语句。 [解析] 通过文件操作，打开文件，把数值读入数组。通过循环语句遍历数组a(k)，用If语句和Mod()函数判断是奇数还是偶数，先求出数组中元素的所有奇数和和所有偶数和，计算出平均数，通过Int()函数实现对结果的四舍五入取整，所有奇数和和所有偶数和的加和，求出所有数的和，用同样的方法得出平均数。Select Case语句判断组合框中选中的项目，实现函数的功能，在文本框中显示题目要求的平均值，并按题目要求存盘。