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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何计算标准分

共有19314人关注过本帖树形打印复制链接主题：[求助]如何计算标准分

易服

小大 11楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：787 积分：6349 威望：0 精华：0 注册：2008/9/1 8:26:00

Post By：2011/9/6 9:19:00 [只看该作者]

以下是引用bohe在2011-9-6 8:26:00的发言：

谢谢楼上，这是一种在原始分为正态分布状态下的计算方法，如果为偏正态，则要先进行正态化处理后才能这样计算。我想要后一种。

谢谢纸上……：你这也是统计函数，但不是我要的那种。

[此贴子已经被作者于2011-9-6 8:29:27编辑过]

只是提供一个简单的数据，怎么转换标准分先按照公式请高手完成，由简单到复杂。一大堆文字反而说不清道不明，会吓走人，

gdlgh

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：449 积分：3506 威望：0 精华：5 注册：2008/9/1 2:32:00

Post By：2011/9/6 10:13:00 [只看该作者]

呵.这样调用

Dim objExcel As Object = CreateObject("Excel.Application")
Dim i As Integer = objExcel.NORMSINV(2)
Dim i2 As Integer = objExcel.RANK(10,1)
Dim i3 As Integer = objExcel.COUNTA(10)

msgbox(i & "," & i2 & "," & i3)

[本帖被加为精华]

狐狸爸爸

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/9/6 10:25:00 [只看该作者]

易服

小大 14楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：787 积分：6349 威望：0 精华：0 注册：2008/9/1 8:26:00

Post By：2011/9/6 10:41:00 [只看该作者]

征对9楼成绩管理的例子怎样实现标准分转换

紙上不談兵

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：113 积分：731 威望：0 精华：1 注册：2011/8/16 14:13:00

Post By：2011/9/6 11:00:00 [只看该作者]

以下是引用易服在2011-9-5 22:37:00的发言：

下载信息 [文件大小：308.0 KB 下载次数：3]
点击浏览该文件:成绩管理系统.table

　　例如：某中学高（1）班期末考试，已知语文期末考试的全班平均分为73分，标准差为7分，甲得了78分；数学期末考试的全班平均分为80分，标准差为6.5分，甲得了83分。甲哪一门考试成绩比较好？

　　因为两科期末考试的标准差不同，因此不能用原始分数直接比较。需要将原始分数转换成标准分数，然后进行比较。

Z(语文)=(78-73)/7=0.71
Z(数学)=(83-80)/6.5=0.46
　　

1.标准差怎确定?

2.你的例子中甲语文的标准分=100*(78-73)/7+500=571?

gdlgh

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：449 积分：3506 威望：0 精华：5 注册：2008/9/1 2:32:00

Post By：2011/9/6 11:12:00 [只看该作者]

以下是引用易服在2011-9-6 10:41:00的发言：

征对9楼成绩管理的例子怎样实现标准分转换

已给出函数调用方法,详细的该用那个函数就用那个函数来算嘛!

易服

小大 17楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：787 积分：6349 威望：0 精华：0 注册：2008/9/1 8:26:00

Post By：2011/9/6 12:19:00 [只看该作者]

以下是引用紙上不談兵在2011-9-6 11:00:00的发言：

标准分数（stardard score）也叫z分数（z-score）,是一个分数与平均数的差再除以标准差的过程。用公式表示为：　　z=(x-μ)/σ。其中x为某一具体分数，　　μ为平均数，σ为标准差。　　
图片点击可在新窗口打开查看此主题相关图片如下：标准差.jpg

紙上不談兵

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：113 积分：731 威望：0 精华：1 注册：2011/8/16 14:13:00

Post By：2011/9/6 14:34:00 [只看该作者]

Dim dr As DataRow

Dim ft,Lm As String

Dim μ,σ,sum As Double

Dim Arys As List(of String())

Dim drs As New List(of DataRow)

Dim dt As DataTable =DataTables("转换标准分")

Dim Ls As String() = {"语文","数学","英语","物理","化学","总分"}

Arys = dt.GetUniqueValues("","期数","班级")

For Each Ary As String() In Arys

ft = "期数 ='" & Ary(0) & "'And 班级 = '" & Ary(1) & "'"

drs =dt.Select(ft)

For Each Lm In Ls

sum = dt.Compute("sum(" & Lm & ")",ft)

μ =sum/drs.count

sum=0

For Each dr In drs

sum+=(dr(Lm)-μ)^2

σ =Math.Sqrt(sum/drs.count)

For Each dr In drs

dr(Lm & "_标准分")=(dr(Lm)-μ)/σ

[此贴子已经被作者于2011-9-6 15:58:42编辑过]

紙上不談兵

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：113 积分：731 威望：0 精华：1 注册：2011/8/16 14:13:00

Post By：2011/9/6 15:29:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:成绩管理系统.table

紙上不談兵

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：113 积分：731 威望：0 精华：1 注册：2011/8/16 14:13:00

Post By：2011/9/7 8:04:00 [只看该作者]

以下是引用bohe在2011-9-5 14:43:00的发言：

3.应用举例

假设该年级学生共有500人，在第2行至501行中，在H2单元格单击，输入公式：=100*NORMSINV(((RANK(D2,D$2:D$501,1)-1)/(COUNTA(D$2:D$501))))+500后回车，如果输入无误，可看到该单元格按照语文原始分转化出来的语文标准分。由于函数NORMSINV(0)返回的值是“#NUM!”（在以上公式中，就是最低分考生），而标准分最低分是100分，因此，进行标准分转换时，在显示 “#NUM!”的单元格上，必须手工把它改为100。

加個If就不用手工更改了:

=IF(RANK(D2,D$2:D$501,1)=1,100,100*NORMSINV(((RANK(D2,D$2:D$501,1)-1)/(COUNTA(D$2:D$501))))+500)

下一主题 >> << 上一主题

总数 23 上一页 1 2 3 下一页

主题：[求助]如何计算标准分