摘要：
成绩分析还有一个问题就是计算平均分。考虑到各班均有不参加考试的学生，为了公平起见，往往是取前多少名（比如一个班有50名学生，往往都是取前40名或前45名的学生计算平均分）进行计算。现在就来实现这个问题。源程序如下:Sub 计算各班各科及总分的平均分() Dim rs(25), i, j, k As Integer Dim totalR As Integer Dim pj(25) As Double Dim km(9) As String km(1) = "语文" km(2) = "数学" km(3) = "外语" km(4) = &q 阅读全文
