VB求高于平均成绩的分数

有3个学生，每个学生4门课。
先求每个学生的平均成绩，然后展示高于平均成绩的分数。

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim pj%, i%, n%, sum%, say$
        Dim cj(0 To 3) As Integer
        i = 1
        say = ""
        Do
            sum = 0
            For n = 1 To 4

                cj(n - 1) = Val(InputBox("请输入第" & i & "个学生第" & n & "门课成绩：", "各门课成绩"))
                sum = sum + cj(n - 1)
                say = say & cj(n - 1) & " "
            Next
            pj = sum / 4
            say = say & "高于平均的分数："
            For n = 0 To 3
                If cj(n) > pj Then
                    say = say & cj(n) & " "
                End If
            Next
            Select Case pj
                Case 0 To 59
                    say = say & "平均成绩小于60，不能评定奖学金！" & Chr(13)
                Case 60 To 69
                    say = say & "平均成绩为" & pj & "，可以评定四等奖学金！" & Chr(13)
                Case 70 To 79
                    say = say & "平均成绩为" & pj & "，可以评定三等奖学金！" & Chr(13)
                Case 80 To 89
                    say = say & "平均成绩为" & pj & "，可以评定二等奖学金！" & Chr(13)
                Case 90 To 100
                    say = say & "平均成绩为" & pj & "，可以评定一等奖学金！" & Chr(13)
            End Select
            Label1.Text = say
            i = i + 1
            If i = 4 Then
                Exit Do
            End If
        Loop
    End Sub
End Class