在考生文件夹下有一个工程文件sjt5.vbp,其中文本框Text1用于显示五个学生的六门课成绩;右边的五个文本框是一个数组,名称为Text2,用于显示每个学生的平均分;下方的六个文本框是一个数组,名称为Text3,用于显示每门课的平均分。 程序的功

admin2019-01-16  29

问题 在考生文件夹下有一个工程文件sjt5.vbp,其中文本框Text1用于显示五个学生的六门课成绩;右边的五个文本框是一个数组,名称为Text2,用于显示每个学生的平均分;下方的六个文本框是一个数组,名称为Text3,用于显示每门课的平均分。
    程序的功能是:单击“读入文件”按钮,则把考生文件夹下的文件in5.dat 中的姓名和成绩分别读到数组n 和a中;单击“每人平均分”按钮,则计算每个学生的平均分,并显示在Text2 数组中;单击“每科平均分”按钮,则计算每门课的平均分,并显示在Text3数组中,所有平均分的值均四舍五入取整或截尾取整;单击“存结果”按钮,则把Text2、Text3中的所有平均分存入out5.dat文件中。
    窗体中给出了所有控件(如图1-307所示)和“读入文件”、“存结果”按钮的Click事件过程,请为“每人平均分”按钮和“每科平均分”按钮编写适当的事件过程,实现上述功能。

    注意:不得修改已经存在的程序;在结束程序运行之前,必须用“存结果”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。

选项

答案【操作步骤】 步骤1:打开本题对应工程文件sjt5.vbp。 步骤2:打开代码编辑窗口,分别编辑两个命令按 钮的单击事件过程。 参考代码: Private Sub Command2_Click() Dim i, j, k As Integer For i = 1 To 5 k = 0 For j = 1 To 6 k = k + a(i, j) Next j Text2(i - 1).Text = Round(k / 6, 0) Next i End Sub Private Sub Command3_Click() Dim i, j, k As Integer For i = 1 To 6 k = 0 For j = 1 To 5 k = k + a(j, i) Next j Text3(i - 1).Text = Round(k /5, 0) Next i End Sub 步骤3:运行程序,单击“读入文件”按钮读入数据,然后分别单击“每人平均分”和“每科平均分”命令按钮进行计算,然后单击“存结果”按钮保存计算结果。 步骤4:按要求将文件保存至考生文件夹中。

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

最新回复(0)