Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim txt2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim drs As List(Of DataRow) = DataTables("原始成绩").Select("", "总分 desc")
Dim dr1 As DataRow = DataTables("有效人数").Find("学科 = '总分' and 项目 = '一本上线'")
Dim dr2 As DataRow = DataTables("有效人数").Find("学科 = '总分' and 项目 = '二本上线'")
dr1("有效分数") = drs(txt1.text)("总分")
dr2("有效分数") = drs(txt2.text)("总分")
'得到各科的标准差
Dim b1 As Double = DataTables("原始成绩").Compute("StDev(语文)")
Dim b2 As Double = DataTables("原始成绩").Compute("StDev(数学)")
Dim b3 As Double = DataTables("原始成绩").Compute("StDev(英语)")
Dim b4 As Double = DataTables("原始成绩").Compute("StDev(政治)")
Dim b5 As Double = DataTables("原始成绩").Compute("StDev(历史)")
Dim b6 As Double = DataTables("原始成绩").Compute("StDev(地理)")
Dim p1 As Double = DataTables("原始成绩").Compute("avg(语文)")
Dim p2 As Double = DataTables("原始成绩").Compute("avg(数学)")
Dim p3 As Double = DataTables("原始成绩").Compute("avg(英语)")
Dim p4 As Double = DataTables("原始成绩").Compute("avg(政治)")
Dim p5 As Double = DataTables("原始成绩").Compute("avg(历史)")
Dim p6 As Double = DataTables("原始成绩").Compute("avg(地理)")
Dim p As Double = DataTables("原始成绩").Compute("avg(总分)")
msgbox("语文 有效分是:" & p1+(b1/(b1+b2+b3+b4+b5+b6))*(dr1("有效分数")-p))
加好友 
发短信
Post By：2013/9/5 20:33:00 [显示全部帖子]
