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

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

admin2019-01-16  32
问题 在考生目录下有一个工程文件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
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)