VB 学生成绩统计程序，我的代码是错的，求正确答案。。。

Question

11、编写一学生成绩统计程序，用户先输入学生的人数及科目数，再输入各位学生的各科课程的考试成绩，要求该程序可以计算各个学生的平均成绩及每门课程的平均成绩。程序保存时，程序运行结果如图所示。
我的代码：Dim cj(1 To 66, 0 To 100)
Dim i, j
Dim a%, b%

Private Sub Command1_Click()
For i = 1 To Val(Text1)
For j = 1 To Val(Text2)
cj(i, j) = Val(InputBox("第" & i & "个学生的第" & j & "科成绩", "请输入"))
a = a + cj(i, j)
b = b + cj(j, i)
Next
Next
For i = 1 To Val(Text1)
Picture1.Print ("第" & i & "个学生的平均成绩为" & a / Val(Text2))
Next

For j = 1 To Val(Text2)
Picture1.Print ("第" & j & "门学科的平均成绩为" & b / Val(Text1))
Next
End Sub

Answer 1

Dim cj%(), a%(), b%(), i%, j%

Private Sub Command1_Click()
ReDim cj%(1 To Val(Text1), 1 To Val(Text2))
ReDim a(1 To Val(Text1)): ReDim b(1 To Val(Text2))

For i = 1 To Val(Text1)
For j = 1 To Val(Text2)
cj(i, j) = Val(InputBox("第" & i & "个学生的第" & j & "科成绩", "请输入"))
a(i) = a(i) + cj(i, j) '第i个学生的成绩总和
b(j) = b(j) + cj(i, j) '第j科的成绩总和
Next j, i
For i = 1 To Val(Text1)
Picture1.Print ("第" & i & "个学生的平均成绩为" & a(i) / Val(Text2))
Next
For i = 1 To Val(Text2)
Picture1.Print ("第" & i & "门学科的平均成绩为" & b(i) / Val(Text1))
Next
End Sub

参考资料：loumou

Answer 2

你都解决问题了，还要做吗？

Answer 3

问题都解决了的，楼主你好强哦