用VB编写一学生成绩统计程序

现在的学生比较懒啊，很简单的，定义一个数组，一个一个的输入就是了，平均成绩还不好做。

【提高题1】编写一学生成绩统计程序，用户先输入学生的人数及科目数，再输入各位学生的各科课程的考试成绩，要求该程序可以计算各个学生的平均成绩及每门课程的平均成绩。程序保存时，程序运行结果如图所示。
【提示】本题使用动态的二维数组能够较好完成任务，数组的行号表示学生，列号表示科目，分别对数组的行或列进行求和即可进行学生科目成绩的统计
代码
Private Sub Command1_Click()
Dim a() As Integer
x = Val(Text1.Text) '人数
y = Val(Text2.Text) '科目数
ReDim a(x, y)
For i = 1 To x
For j = 1 To y
a(i, j) = InputBox("第" & i & "位同学的第" & j & "门成绩")
Next j
Next i
For i = 1 To x
s = 0
For j = 1 To y
s = s + a(i, j)
Next jPicture1.Print "第"; i; "位同学的平均成绩是"; s / y
Next i
For i = 1 To y
s = 0
For j = 1 To x
s = s + a(j, i)
Next j
Picture1.Print "第"; i; "门课的平均成绩是"; s / x
Next i
End Sub

现在的学生啊