3. 综合应用（1小题，计30分）

　　注意：下面出现的“考生文件夹”均为%USER%

　　在考生文件夹下有一个工程文件sjt5.vbp，窗体如图所示。运行程序时，从数据文件中读取学生的成绩（均为整数）。要求编写程序，统计总人数，并统计不及格、60～69、70～79、80～89及90～100各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击“保存”按钮，保存统计结果。

　　注意：

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

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。

　　由于所提供的窗体程序不完整，需添加事件过程。

　　单击“统计”按钮（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Command1_Click()

　　Text1.Text = n

　　count1 = 0

　　count2 = 0

　　count3 = 0

　　count4 = 0

　　count5 = 0

　　count6 = 0

　　For i = 1 To n

　　y = Int(arr(i) / 10)

　　Select Case y

　　Case 1, 2, 3, 4, 5

　　count1 = count1 + 1

　　Case 6

　　count2 = count2 + 1

　　Case 7

　　count3 = count3 + 1

　　Case 8

　　count4 = count4 + 1

　　Case 9, 10

　　count5 = count5 + 1

　　End Select

　　Next

　　Text2.Text = count1

　　Text3.Text = count2

　　Text4.Text = count3

　　Text5.Text = count4

　　Text6.Text = count5

　　End Sub

　　参考文件：c:/wexam/26990001/hlpsys/参考答案/sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt

　　请把这些文件复制到c:/wexam/26990001中，然后打开sjt5.vbp文件并运行。