在考生目录下有一个工程文件sjt5.vbp，其功能是：单击“读数据”按钮，则把考生目录下的文件in5.dat 中的100个整数读到数组a中；单击“计算”按钮，则找出其中与所有数的平均值（平均值截尾取整）最接近的整数，放到文本框中；单击“存盘”按钮则把计算结果存盘。窗体中给出了所有控件（如图1－312所示）和“读数据”按钮及“存盘”按钮的Click事件过程，请为“计算”按钮编写适当的事件过程实现上述功能。
【正确答案】【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口中，编写“计算”按钮的单击事件过程。
参考代码：
Private Sub Command2_Click()
Dim i, j, k, i1 As Integer
j = 0
For i = 1 To 100
j = j + a(i)
Next i
j = Fix(j / 100)
k = Abs(a(1) - j)
i1 = 1
For i = 2 To 100
If Abs(a(i) - j) < k Then
k = Abs(a(i) - j)
i1 = i
End If
Next i
Text1.Text = a(i1)
End Sub
步骤2：按要求将文件保存至考生文件夹中。
步骤3：按<F5>键运行程序，先单击“读数据”按钮，再单击“计算”按钮，最后单击“存盘”按钮。
步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口中，编写“计算”按钮的单击事件过程。
参考代码：
Private Sub Command2_Click()
Dim i, j, k, i1 As Integer
j = 0
For i = 1 To 100
j = j + a(i)
Next i
j = Fix(j / 100)
k = Abs(a(1) - j)
i1 = 1
For i = 2 To 100
If Abs(a(i) - j) < k Then
k = Abs(a(i) - j)
i1 = i
End If
Next i
Text1.Text = a(i1)
End Sub
步骤2：按要求将文件保存至考生文件夹中。
步骤3：按<F5>键运行程序，先单击“读数据”按钮，再单击“计算”按钮，最后单击“存盘”按钮。
【答案解析】