在考生目录下有一个工程文件sjt5.vbp,其功能是:单击“读数据”按钮,则把考生目录下的文件in5.dat 中的100个整数读到数组a中;单击“计算”按钮,则找出其中与所有数的平均值(平均值截尾取整)最接近的整数,放到文本框中;单击“存盘”按钮则把计算结

admin2019-01-16  34

问题 在考生目录下有一个工程文件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:按键运行程序,先单击“读数据”按钮,再单击“计算”按钮,最后单击“存盘”按钮。

解析
转载请注明原文地址:https://kaotiyun.com/show/guFp777K
0

最新回复(0)