Question

vb编程:有10个学生参加4科考试,求每个学生和每个科目的平均成绩。急

急急急

Answer 1

Dim 学生人数 As Integer
Dim 科目数 As Integer
Dim i As Integer
Dim j As Integer
Dim 总分数 As Integer
Dim 学生分数() As Integer

学生人数 = 10
科目数 = 4

ReDim 学生分数(1 To 学生人数, 1 To 科目数)

For i = 1 To 学生人数
    For j = 1 To 科目数
        学生分数(i, j) = InputBox("请输入第" & i & "个学生的第" _
        & j & "个科目的得分")
    Next j
Next i

For i = 1 To 学生人数
    For j = 1 To 科目数
        总分数 = 总分数 + 学生分数(i, j)
    Next j
Next i
Print "每学生平均分=" & 总分数 / 学生人数
Print "每学科平均分=" & 总分数 / 科目数

Answer 2

今天 还要这个题目的答案吗？

追问

不用了，我今天又问了一个问题 你可以看看能不能解决
非常感谢

追答

把链接发过来看看

追问

http://share.weiyun.com/0aa41001b01779dd254e3fbb54f66aec
麻烦改改 非常感谢

追答

下载不了

Answer 3

使用多维数组