设计一个窗体，输入4名学生的英语、高等数学和计算机基础3门课程的成绩，计算并输出各学生的平均分,

Question

并计算每门课程的平均分。定义一个字符类型的一维数组student存储学生姓名，一个实型的二维数组score存储每个学生的成绩。其它代码能打，不知道怎么计算每门课程的平均分

Answer 1

Private Sub Command1_Click()
Dim score(3, 2) As Single
Dim i As Integer, j As Integer
Dim avg(2) As Single

For i = 0 To 3
For j = 0 To 2
score(i, j) = 80
Next
Next

For j = 0 To 2
For i = 0 To 3
avg(j) = avg(j) + score(i, j)
Next
avg(j) = avg(j) / 4
Debug.Print avg(j)

Next

End Sub本回答被网友采纳

Answer 2

把[i][j]改成[j][i]计算,然后循环，就是把行循环，改成列循环