用vb编程：已知3个学生，5门功课的成绩，求每个学生的总分，平均分，每门功课的平均分。

Question

快考试了，急需高手给个过程，谢谢

Answer 1

方法有很多种，反正就是要输入每个人的成绩。下面就介绍一种最简单的给你
Private Sub Command1_Click()
'已知3个学生，5门功课的成绩，求每个学生的总分，平均分，每门功课的平均分。
Dim a As Single, b As Single, c As Single, d As Single, e As Single
For i = 1 To 3
If i = 1 Then
a = InputBox("请输入学科1的成绩：", "学生1")
b = InputBox("请输入学科2的成绩：", "学生1")
c = InputBox("请输入学科3的成绩：", "学生1")
d = InputBox("请输入学科4的成绩：", "学生1")
e = InputBox("请输入学科5的成绩：", "学生1")
ElseIf i = 2 Then
a = InputBox("请输入学科1的成绩：", "学生2")
b = InputBox("请输入学科2的成绩：", "学生2")
c = InputBox("请输入学科3的成绩：", "学生2")
d = InputBox("请输入学科4的成绩：", "学生2")
e = InputBox("请输入学科5的成绩：", "学生2")
Else
a = InputBox("请输入学科1的成绩：", "学生3")
b = InputBox("请输入学科2的成绩：", "学生3")
c = InputBox("请输入学科3的成绩：", "学生3")
d = InputBox("请输入学科4的成绩：", "学生3")
e = InputBox("请输入学科5的成绩：", "学生3")
End If
s = a + b + c + d + e
n = s / 5
a = a + a
b = b + b
c = c + c
d = d + d
e = e + e
If i = 1 Then
Print "学生1的各科总分为："; s; "平均分为："; n
ElseIf i = 2 Then
Print "学生2的各科总分为："; s; "平均分为："; n
Else
Print "学生3的各科总分为："; s; "平均分为："; n
a = a / 3
b = b / 3
c = c / 3
d = d / 3
e = e / 3
Print "学科1的平均分为："; a
Print "学科2的平均分为："; b
Print "学科3的平均分为："; c
Print "学科4的平均分为："; d
Print "学科5的平均分为："; e
End If
Next i
End Sub

Answer 2

调不明白教育部是搞什么名堂的，vb是98年出的东西，现在还用来考试，早就过时了，要用C＃或vb.net或C还好些嘛