主题：[求助]在加入计算“标准差”时总是报错，是代码错了吗？

谢了！dr("标准差") = DataTables("成绩库").Aggregate(AggregateEnum.Std, 0, p, rs, p)
应改为dr("标准差") = Tables("成绩库").Aggregate(AggregateEnum.Std, 0, p, rs, p)才行。

上述问题已经解决了。但又遇到新问题了。

在填充“平均分之和”时最后一科“生物”填充进去了，语数英理化无法填充。麻烦您帮我看一下。

“平均分之和=语数英物化生各科平均分之和”。谢谢!

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:高中期末成绩统计程序.rar

谢谢！“平均分之和”、“标准差之和”问题解决了。

总分和生物的“有效分”已经填充，但“语、数、英、物、化”的“有效分”不知如何填充了，麻烦版主帮帮忙。谢谢！

各科重点有效分＝(重点线-平均分之和)/各科标准差之和*该科标准差+该科平均分

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:高中期末成绩统计程序1.rar

谢谢！已经搞出来了。我是在

Dim sum As Double = Tables("总分有效分").Aggregate(AggregateEnum.Sum, 0, q, 5, q)
For i As Integer = 0 To 5
     Tables("总分有效分").Rows(i)("平均分之和") = sum
Next　　　

的后面加上
For Each bm As DataTable In DataTables
    For Each dr As DataRow In DataTables(bm.name).DataRows
        If bm.name <> "成绩库"
        dr("重点A级有效分") = ( dr("重点A级分数线") - dr("平均分之和"))/dr("标准差之和")*dr("标准差")+dr("平均分")
        dr("重点B级有效分") = ( dr("重点B级分数线5") - dr("平均分之和"))/dr("标准差之和")*dr("标准差")+dr("平均分")
        dr("本科有效分") = ( dr("本科线") - dr("平均分之和"))/dr("标准差之和")*dr("标准差")+dr("平均分")
        dr("专科有效分") = ( dr("专科线") - dr("平均分之和"))/dr("标准差之和")*dr("标准差")+dr("平均分")
        End If
    Next

再次谢谢指教。