在考生文件夹中有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从数据文件中读取学生的成绩。单击“统计”按钮,统计总人数、平均分(四舍五入取整)、及格人数和不及格人数,将统计结果显示在相应的文本框中。结束程序之前,必须单击“保存”按钮,保存统计出的

admin2020-02-27  29

问题 在考生文件夹中有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从数据文件中读取学生的成绩。单击“统计”按钮,统计总人数、平均分(四舍五入取整)、及格人数和不及格人数,将统计结果显示在相应的文本框中。结束程序之前,必须单击“保存”按钮,保存统计出的结果。

    注意:不能修改程序的其他部分和控件属性。程序调试通过后,运行程序,将统计结果显示在文本框中,再单击“保存”按钮保存数据,否则将没有成绩。最后将修改后的文件按原文件名进行存盘。

选项

答案【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private arr(100) As Integer Private n As Integer Private Sub Command2_Click() Open App.Path & "\out5.txt" For Output As #1 Print #1, Text1.Text Print #1, Text2.Text Print #1, Text3.Text Print #1, Text4.Text Close #1 MsgBox "保存成功!" End Sub Private Sub Form_Load() Open App.Path & "\in5.txt" For Input As #1 n = 0 Do While Not EOF(1)     Input #1, x     n = n + 1     arr(n) = x Loop Close #1 End Sub Private Sub Command1_Click() ’======考生编写程序开始======= ’======考生编写程序结束======== End Sub 程序结束 参考答案 Private Sub Command1_Click() Dim sum As Long For i = 1 To n If arr(i) >= 60 Then Text4 = Val(Text4) + 1 Else Text3 = Val(Text3) + 1 End If sum = sum + arr(i) Next Text2 = Int(sum / n + 0.5) Text1 = n End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

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

最新回复(0)