[多項選擇題] 完成下列問題：

在考生文件夾下有一個工程文件sjt4.vbp，包含了所有控件和部分程序，如圖4所示。程序功能如下：

①單擊“瀆數(shù)據(jù)”按鈕，可將考生文件夾下in4.dat文件中的100個整數(shù)讀到數(shù)組a中。

②單擊“計算”按鈕，則根據(jù)從名稱為Combo1的組合框中選中的項目，對數(shù)組a中的數(shù)據(jù)計算平均值，并將計算結果四舍五入取整后顯示在文本框Text1中。

“讀數(shù)據(jù)”按鈕的Click事件過程已經給出，請為“計算”按鈕編寫適當?shù)氖录^程，實現(xiàn)上述功能。

注意：不得修改已經存在的控件和程序，在結束程序運行之前，必須進行一次計算，且必須用窗體右上角的關閉按鈕結束程序，否則無成績。最后程序按原文件名存盤。

[題目提供的源程序]

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

[操作步驟] 第A步：打開工程文件sjtD.vbp。 第B步：編寫程序。參考程序如下： Dim m As Long, n As Long Dim x As Integer, y As Integer For i=A to A00 if a(i) Mod B=0 Then m=m+a(i) y=y+A Else n=n+a(i) y=y+A End If Next Select Case ComboA.Text Case "所有偶數(shù)" TextA=Round(m/x)

Command1_Click事件過程實現(xiàn)“讀數(shù)據(jù)”，將數(shù)據(jù)讀入到數(shù)組a中。Command2_Click事件過程負責數(shù)組a中數(shù)據(jù)平均值的計算和結果的顯示。計算時可采用兩種方法：一種方法是把數(shù)組a中所有的偶數(shù)、奇數(shù)及其個數(shù)分別累加到一個變量中，例如m為所有偶數(shù)的總和，x為偶數(shù)的個數(shù)，n為所有奇數(shù)的總和，y為奇數(shù)的個數(shù)，根據(jù)組合框當前選取的計算內容來決定將m/x、n/y或(m+n)/(x+y)四舍五入取整顯示在Text1中；另一種方法是先取得組合框當前選擇的內容，再決定對數(shù)組a中的哪些數(shù)求平均數(shù)。 用循環(huán)語句遍歷數(shù)組a，用If語句和Mod運算符可判斷奇偶數(shù)，用Int()或Round()函數(shù)可以實現(xiàn)數(shù)據(jù)的四舍五入。