用VB怎么做学生成绩等级排序的程序？

VB中添加一个按钮点击就可以了\x0d\x0aPrivate Sub Command1_Click()\x0d\x0aa = InputBox("请输入分数：")\x0d\x0aIf IsNumeric(a) And a = 0 Then\x0d\x0aSelect Case a\x0d\x0aCase 0 To 59\x0d\x0add = "E"\x0d\x0aCase 60 To 69\x0d\x0a dd = "D"\x0d\x0aCase 70 To 79\x0d\x0a dd = "C"\x0d\x0aCase 80 To 89\x0d\x0a dd = "B"\x0d\x0aCase 90 To 100\x0d\x0a dd = "A"\x0d\x0aCase Else\x0d\x0add = "成绩错误！"\x0d\x0aEnd Select\x0d\x0aMsgBox dd\x0d\x0aElse\x0d\x0aMsgBox "你输入的成绩非法"\x0d\x0aEnd If\x0d\x0aEnd Sub

Private Sub Main()

  Dim Scores(1 To 10) As Single

  Call InputScore(Scores)

  Call PrintScore(Scores)

  Call AboveAverage(Scores)

  Call ScoreSort(Scores)

  Call PrintScore(Scores)

  Call FindMaxMin(Scores)

End Sub

Private Sub InputScore(sngScores() As Single)

  Dim i As Single

  For i = LBound(sngScores) To UBound(sngScores)

    sngScores(i) = InputBox("请输入第" & i & "名学生高考成绩：", "高考成绩管理系统", 600)

  Next i

End Sub

Private Sub PrintScore(sngScores() As Single)

  Dim i As Integer

  Load Form1

  Form1.Show

  For i = LBound(sngScores) To UBound(sngScores)

    Form1.Print sngScores(i)

  Next i

  Form1.Print

End Sub

Private Sub ScoreSort(sngScores() As Single)

  Dim i As Integer, j As Integer, t As Single

  For i = LBound(sngScores) To UBound(sngScores) - 1

    For j = i + 1 To UBound(sngScores)

      If sngScores(j) > sngScores(i) Then

        t = sngScores(i)

        sngScores(i) = sngScores(j)

        sngScores(j) = t

      End If

    Next j

  Next i

End Sub

Private Sub AboveAverage(sngScores() As Single)

  Dim i As Integer, k As Integer, sngSum As Single, sngAverage As Single

  For i = LBound(sngScores) To UBound(sngScores)

    sngSum = sngSum + sngScores(i)

  Next i

  sngAverage = sngSum / UBound(sngScores)

  For i = LBound(sngScores) To UBound(sngScores)

    If sngScores(i) > sngAverage Then

      k = k + 1

    End If

  Next i

  Form1.Print "平均值为：" sngAverage,

  Form1.Print "高于平均值的人数为：" k

End Sub

Private Sub FindMaxMin(sngScores() As Single)

  Dim i As Integer, sngMax As Single, sngMin As Single

  sngMax = sngScores(LBound(sngScores))

  sngMin = sngScores(LBound(sngScores))

  For i = LBound(sngScores) + 1 To UBound(sngScores)

    If sngScores(i) > sngMax Then sngMax = sngScores(i)

    If sngScores(i) < sngMin Then sngMin = sngScores(i)

  Next i

  Form1.Print "最高分为：" sngMax, "最低分为：" sngMin

End Sub

Private Sub Command2_Click()

With rs2

.Fields("第一单元") = Text3.Text

.Update

End With

rs2.MoveNext

Text1.Text = rs2.Fields("学生编号")

Text2.Text = rs2.Fields("学生姓名")

End Sub

---