Question

VB期末考试题,请各位帮帮忙

某班有M名同学，本学期开了N门课，期末考试后，要统计每门课程的平均分。请你编写一个程序实现该功能。要求：对于每个学生要输入学号和N门课的成绩。程序的设计界面如图所示，程序运行时单击【输入成绩】按钮将出现输入对话框让用户输入每个学生的学号和各门课的成绩。输入了学号和成绩后单击【计算】按钮将计算出各门课的平均成绩并显示出来，

Answer 1

Option Base 1
Dim a(), b() '分别用来存放课程数和人数
n = Val(InputBox("输入课程的总门数 "))
m = Val(InputBox("输入学生的总人数"))
ReDim b(n)
ReDim a(m)
For i = 1 To n
Sum = 0
For j = 1 To m
a(i) = Val(InputBox("输入第" & i & "个同学的第" & j & "门课的成绩"))
Next j
For j = 1 To m
Sum = Sum + a(i)
Next j
b(i) = Sum / m
Next i

'输出过程
For i = 1 To n
Print "第" & i & "门课程的平均成绩是"; b(i)
Next i

Answer 2

这个,你用INPUTBOX和数组就行了.
前者输入,后者存储并带有计算.
你可以很简单地编写出来的.
先自己试试.不行,再要代码.

Answer 3

很简单，我过了