问答题

完成下列问题：
在考生文件夹下有一个工程文件sjt4.vbp，包含了所有控件和部分程序，如图4所示。程序功能如下：


①单击“渎数据”按钮，可将考生文件夹下in4.dat文件中的100个整数读到数组a中。
②单击“计算”按钮，则根据从名称为Combo1的组合框中选中的项目，对数组a中的数据计算平均值，并将计算结果四舍五入取整后显示在文本框Text1中。
“读数据”按钮的Click事件过程已经给出，请为“计算”按钮编写适当的事件过程，实现上述功能。
注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行一次计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后程序按原文件名存盘。
[题目提供的源程序]
Dim a(100) As Integer
Private Sub Command1_Click()
Dim k As Integer
Open App.Path & "\in4.dat" For Input As #1
For k=1 To 100
Input #1, a(k)
Next k
Close #1
End Sub
Private Sub Command2_Click()
’考生应编写的程序
End Sub