UC知道vb 多组成绩计算
来源：百度知道 编辑：UC知道 时间：2024/07/02 09:59:49
问题：已知3个小组中每个学生的成绩，要求出3个小组各自的平均成绩
Private Sub Command1_Click()
Dim score(3, 9) As Single
Dim sum As Single, aver As Single
Dim i As Integer, j As Integer
For j = 1 To 3
sum = 0
For i = 1 To 9
score(i, j) = InputBox("请输入第" & Str(i) & "个学生的成绩：")
sum = sum + score(i, j)
Next i
aver = sum / 9
Print "第" & Str(i) & "门课程的平均成绩是："; aver
Print
Next j
End Sub
这个有错误，请给个正确滴
Private Sub Command1_Click()
Dim score(3, 9) As Single
Dim sum As Single, aver As Single
Dim i As Integer, j As Integer
For j = 1 To 3
sum = 0
For i = 1 To 9
score(i, j) = InputBox("请输入第" & Str(i) & "个学生的成绩：")
sum = sum + score(i, j)
Next i
aver = sum / 9
Print "第" & Str(i) & "门课程的平均成绩是："; aver
Next j
End Sub
这个有错误，请给个正确滴
Option Base 1 '加上这一句
Private Sub Command1_Click()
Dim score(3, 9) As Single
Dim sum As Single, aver As Single
Dim i As Integer, j As Integer
For i = 1 To 3 '改
sum = 0
For j = 1 To 9 '改
score(i, j) = InputBox("请输入第" & Str(i) & "个学生的成绩：")
sum = sum + score(i, j)
Next '改
aver = sum / 9
Print "第" & Str(i) & "门课程的平均成绩是："; aver
Print
Next '改
End Sub
Private Sub Command1_Click()
Dim score(3, 9) As Single
Dim sum As Single, aver As Single
Dim i As Integer, j As Integer
For j = 1 To 3
sum = 0
For i = 1 To 9
score(j, i) = InputBox("请输入第" & Str(i) & "个学生的成绩：")--------------把i,j颠倒
sum = sum + score(j, i) -----------把i,j颠倒
Next i
aver = sum / 9
Print Str(i) - 1 & "门课程的平均成绩是："; aver
Print
Next j
End Sub