VB用二维数组求平均成绩

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim a(4, 5) As Integer, s As String, sum As Integer, avg As Integer
        s = ""
        For i = 1 To 4
            s = s & "第" & i & "个学生的成绩："
            For j = 1 To 5
                a(i, j) = InputBox("请输入第" & i & "个学生的第" & j & "门课成绩:")
                s = s & a(i, j) & " "
            Next
            s = s & Chr(13)
        Next
        Label1.Text = s

        s = ""
        For i = 1 To 4
            sum = 0
            For j = 1 To 5
                sum = sum + a(i, j)
            Next
            avg = Int(sum / 5)
            s = s & "第" & i & "个学生平均成绩：" & avg & Chr(13)
        Next
        Label2.Text = s
    End Sub
End Class