vb编程 分数统计

来源：百度知道 编辑：UC知道 时间：2024/05/30 02:35:51
vb6的程序，统计600个学生的成绩分分数段（100-90，89-80，79-70，69-60，59-0）
（1）程序会使用VB中的open指令找开score2007.txt文件
（2）通过Input把成绩逐一录入内存文件中，名为renshu.txt

Dim Count90_100 as Integer
Dim Count80_89 as Integer
Dim Count70_79 as Integer
Dim Count60_69 as Integer
Dim Count0_59 as Integer

Select Case Score
Case 0 To 59
Count0_59 = Count0_59 + 1
Case 60 To 69
Count60_69 = Count60_69 + 1
Case 70 To 79
Count70_79 = Count70_79 + 1
Case 80 To 89
Count80_89 = Count80_89 + 1
Case 90 To 100
Count90_100 = Count90_100 + 1
End Select

人名与分数，以空格分开，如下。
aaa 50
bbb 60
ccc 70
ddd 89
eee 100
fff 32

人数统计+人名成绩列表输出
Private Sub Command1_Click()
Open "C:\score2007.txt" For Input As #1
Dim linetxt As String
Dim r90, r80, r70, r60, r0 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))
Ca