用VB写程序，5名学生，6门成绩，求每个学生的平均分以及每门功课的平均分？？在线等

基础呀
hi我

Private Sub Command1_Click()
Dim a(1 To 5, 1 To 6) As Integer
Dim i As Integer, j As Integer
Dim t As Integer, max As Integer
For i = 1 To 5
For j = 1 To 6
a(i, j) = InputBox("第" & j & "门功课", "第" & i & "位学生")
Next
Next

For i = 1 To 5
For j = 1 To 6
Print a(i, j);
Next
Print
Next
Print

For i = 1 To 5
sum1 = a(i, 1)
For j = 2 To 6
sum1 = sum1 + a(i, j)
Next
Print "第" & i; "位学生平均值=" & sum1 / 6
Next
Print

For j = 1 To 6
sum2 = a(1, j)
For i = 2 To 5
sum2 = sum2 + a(i, j)
Next
Print "第" & j; "门功课平均值=" & sum2 / 5
Next
End Sub

你再稍微改改就行了

下面就是你想要的程序，测试通过~~
Private Sub Command1_Click()
Dim stu(1 To 5, 1 To 6) '学生的成绩
Dim stucj(1 To 5) As Single '每个学生的成绩
Dim course(1 To 6) As Sing