Dim recCount As Integer            '存放学生人数

Dim sClass(1 To 1000) As Integer     '存放学生班级

Dim sName(1 To 1000) As String     '存放学生姓名

Dim sScore(1 To 1000) As Integer   '存放学生成绩

Private Sub Command1_Click()

  Dim i As Integer, t As Integer, nc As Integer

  Dim a(1 To 20)  As Integer, b(1 To 20) As Integer    '分别存放班级高分人数和班级参加考试人数

  Dim sum(1 To 20) As Integer, ave(1 To 20) As Single  '分别存放班级总分和班级均分

  Dim c(1 To 20) As Integer

  For i = 1 To recCount

    b(t) = b(t) + 1

    If b(t) = 1 Then

      nc = nc + 1

    End If

    If sScore(i) >= 97 Then a(t) = a(t) + 1

    sum(t) = sum(t) + sScore(i)

  Next i

  For i = 1 To nc

    ave(c(i)) = Int(sum(c(i)) / b(c(i)) * 100 + 0．5) / 100

  Next i

  For i = 1 To nc - 1

    For j = nc To i + 1 Step -1

      If  Then

        t = c(j): c(j) = c(j - 1): c(j - 1) = t

     End If

    Next j

  Next i

  For i = 1 To nc

    List2.AddItem Str(c(i)) + " " + Str(b(c(i))) + " " + Str(a(c(i))) + " " + Str(ave(c(i)))

  Next i

End Sub

Private Sub Form_Load()

'链接数据库，代码略

recCount = 0

  Do While Not rs.EOF

    recCount = recCount + 1

    sClass(recCount) = rs.Fields("class")

    sName(recCount) = rs.Fields("name")

    sScore(recCount) = rs.Fields("score")

    rs.MoveNext

  Loop

'将数据显示在列表框List1中，代码略

End Sub