一道成绩统计的VB编程题

来源：百度知道 编辑：UC知道 时间：2024/05/24 09:57:23
编写了一个 VB6的程序，帮助老师统计某年级（600学生）成绩各分数段（100-90，

89-80，79-70，69-60，59-0）的人数情况。这些成绩数据已经被录入成文本文件。

（1 ）程序会使用VB 中的Open 指令找开score2006.txt 文件（5 分）。

（2 ）通过 Input 语句把成绩逐一读入到内存的数组中。然后，程序会逐一判断数组中

的成绩，统计得出各分数段的人数（5 分）。

（3 ）使用Write 语句，把统计的结果保存到一个新的文件中，文件名为 renshu.txt （5

分）。

（4 ）使用Close 语句关闭保存文件（5 分）。

请你认真阅读下面的 VB 程序指令说明。在本试卷所附的源程序的基础上补充适当的指

令代码，使程序能够正常运行，得出统计结果。

Open "C:\score2007.txt" For Input As #1
Dim linetxt As String
Dim c90, c80, c70, c60, c0 As Integer

Do While Not EOF(1)
Line Input #1, linetxt
If Len(Trim(linetxt)) > 0 Then
tmpArr = Split(linetxt, " ")
Select Case CDbl(tmpArr(1))
Case Is >= 90
c90 = c90 + 1
Case Is >= 80
c80 = c80 + 1
Case Is >= 70
c70 = c70 + 1
Case Is >= 60
c60 = c60 + 1
Case Else
c0 = c0 + 1
End Select
End If
Loop
Close #1

Open "c:\renshu.txt" For Output As #2

Print #2, "100-90 共：" + CStr(c90) + " 人"
Print #2, "---------------------------------------------------"
Print #2, "89-80 共：" + CStr(c80) + " 人"
Print #2, "---------------------------------------------------&