Question

用VB编写一学生成绩统计程序

用户先输入学生的人数及科目数,再输入各位学生的各科目课程的考试成绩,要求该程序可以计算各个学生的平均成绩及每门课程的平均成绩

Answer 1

Private Sub Form_Click()
Dim Score As Single, Sum As Single, N As Integer, Average As Single
Sum = 0
N = 0
Score = InputBox("请输入第" & N + 1 & "个同学的成绩", "成绩输入")
Do While Score <> -1
Sum = Sum + Score
N = N + 1
Score = InputBox("请输入第" & N + 1 & "个同学的成绩", "成绩输入")
Loop
Average = Sum / N
Print "平均成绩为："; Average
End Sub

Answer 2

现在的学生比较懒啊，很简单的，定义一个数组，一个一个的输入就是了，平均成绩还不好做。

Answer 3

用excel就可以实现了，还需要VB做干吗？