计算问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

两个问题：

1、根据输入的数字（n）计算有效分并填入表格

有效分计算公式：

总分有效分数（称之为控制分数）：总分从大到小排序，找到第n个数

学科有效分公式：

学科有效分=学科平均分+（学科标准差/各学科标准差之和）*（控制分数—总分平均分）

2、统计有效人数：DataColChanged事件中

如何将控制分数赋值给yxfs

1.在何处输入统计在何处?说的不清不楚帮不上你忙啊.

2.赋值给YXFS?

在"有效人数"表格中统计"原始成绩"中的数据

在控制人数中输入数字

根据你的例子,还是没有看懂.抱歉. 能否说具体一些.

头晕……解决了第一个问题，第二个问题没有看懂，那些学科平均分、标准差，是计算全部学生的，还是高于控制分数的学生的？

还有就是，一本线的怎么计算，二本线的又怎么计算了？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

谢谢，第一个问题正确。

学科平均分、标准差是计算所有学生的单科成绩的平均分、标准差，统计数字要求大于有效分数。

例如：语文一本有效分数

1、统计一本控制人数40人，控制分数为544分

2、计算各学科标准差：语文：b1 数学：b2英语：b3政治：b4历史：b5地理：b6

3、计算语文平均分：P1

4、计算总分平均分：p

5、计算语文一本有效分数为：p1+[b1/(b1+b2+b3+b4+b5+b6)]*(544-p)

“一本上线”与“一本有效”同学科有效分是一样的

二本依然

如下代码，你一个一个往表里写入，就行了。

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))

主题：计算问题