2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5．vbp，窗体如图所示。运行程序时，从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序，统计总人数，同时统计不及格、60～69、70～79、80～89及90～100各分数段的人数，将统计结果显示在相应的文本框

在考生文件夹下有一个工程文件sjt5．vbp，窗体如图所示。运行程序时，从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序，统计总人数，同时统计不及格、60～69、70～79、80～89及90～100各分数段的人数，将统计结果显示在相应的文本框

admin2018-09-19  44
问题  在考生文件夹下有一个工程文件sjt5．vbp，窗体如图所示。运行程序时，从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序，统计总人数，同时统计不及格、60～69、70～79、80～89及90～100各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击“保存”按钮，保存统计结果。
    注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中，再按“保存”按钮，否则将没有成绩，最后将修改后的文件按原文件名进行存盘。
选项
答案【操作步骤】 步骤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 Print #1, Text5.Text Print #1, Text6.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() For i = 1 To n If arr(i) < 60 Then Text2 = Val(Text2) + 1 ElseIf arr(i) >= 60 And arr(i) < 70 Then Text3 = Val(Text3) + 1 ElseIf arr(i) >= 70 And arr(i) < 80 Then Text4 = Val(Text4) + 1 ElseIf arr(i) >= 80 And arr(i) < 90 Then Text5 = Val(Text5) + 1 ElseIf arr(i) >= 90 And arr(i) <= 100 Then Text6 = Val(Text6) + 1 End If Text1 = Val(Text1) + 1 Next End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/4mFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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