100分问题，解决了再加分，高手们帮帮忙

qiying1984 2008-01-14 12:12:33

现在数据库中存在一组数据，就是一个班的学生成绩,现在要求这几个参数，不知道怎么编码，高手帮帮忙！万分感谢！
试题难度
试题区分度
试题信度
试题效度
具体名词解释如下：
指标说明：
http://blog.tianya.cn/blogger/post_show.asp?idWriter=0&Key=0&BlogID=884495&PostID=12397475

谢谢大家了，帮帮忙吧！

...全文

419 37 打赏收藏转发到动态举报

写回复

用AI写文章

37 条回复

切换为时间正序

请发表友善的回复…

发表回复

wcwtitxu 2008-01-15

打赏
举报

如果每个学生一条记录,上面代码应该可以算出区分度了.

number123456 2008-01-15

打赏
举报

真是晕呼呼,啥意思没懂!
是想通过"里面三个字段：id，学生，成绩”
来算出那五度？好象不可能吧，没依据，电脑必竟不是人脑啊

xiao1zhao 2008-01-15

打赏
举报

整晕了~~~

后悔没上大学了~~

哈哈~

qiying1984 2008-01-15

打赏
举报

帖子再加分100

qiying1984 2008-01-15

打赏
举报

我的表的结构是：一个成绩表，里面三个字段：id，学生，成绩

qiying1984 2008-01-15

打赏
举报

好了，结题，谢谢各位
特别是;wcwtitxu 大哥

抱抱我的小猫 2008-01-15

打赏
举报

实在是不想看。。。

wcwtitxu 2008-01-15

打赏
举报

晕死,错了.

Set rs = conn.Execute("SELECT AVG(总分) FROM (SELECT TOP " & HSTotal & " 总分 FROM 总分统计 where 试卷编号=" & id & " ORDER BY 总分 DESC)")

AVGH = rs(0).Value

rs.Close

Set rs = Nothing

wcwtitxu 2008-01-15

打赏
举报

Set rs = conn.Execute("SELECT AVG(总分) FROM (SELECT TOP " & HSTotal & " 总分 FROM 总分统计 where 试卷编号=" & id & " ORDER BY 总分 DESC"))

AVGH = rs(0).Value

rs.Close

Set rs = Nothing

qiying1984 2008-01-15

打赏
举报

谢谢 wcwtitxu 大哥;

我加了一个条件，可是总是出错不知错在那里大家指点一下，谢谢！

' 高分区学生平均成绩

Set rs = conn.Execute("SELECT AVG(总分) FROM (SELECT TOP " & HSTotal & " 总分 FROM 总分统计 where 试卷编号=" & id ORDER BY 总分 DESC ))

AVGH = rs(0).Value

rs.Close

Set rs = Nothing

ajax666666 2008-01-15

打赏
举报

太晕了

w7a321 2008-01-15

打赏
举报

20楼不是把区分度弄出来了的哇

w7a321 2008-01-15

打赏
举报

还要问个问题
你那成绩是所有题目的总成绩
还是只是其中一道的成绩

qiying1984 2008-01-15

打赏
举报

是的，再一张页面显示出来

w7a321 2008-01-15

打赏
举报

楼主还在吗
你的意识是不是在一张页面上把他显示出来
我觉得应该简单啊

jbj001 2008-01-15

打赏
举报

高数就no way了。顶顶

wcwtitxu 2008-01-15

打赏
举报

不知道你的表结构是怎么样
假设表名是 "表"
每个考生一条记录
里面有一个列 "成绩" 记录着该考生本试题的成绩

Dim STotal, HSTotal, LSTotal, AVGH, AVGL, W, D

W = 100		' 假设试题满分为 100 分



Set rs = conn.Execute("SELECT COUNT(*) FROM [表]") ' 学生总数

STotal = rs(0).Value

rs.Close

Set rs = Nothing

HSTotal = STotal * 27 \ 100	' 高分区学生数

LSTotal = HSTotal		' 低分区学生数



' 高分区学生平均成绩

Set rs = conn.Execute("SELECT AVG([成绩]) FROM (SELECT TOP " & HSTotal & " [成绩] FROM [表] ORDER BY [成绩] DESC)")

AVGH = rs(0).Value

rs.Close

Set rs = Nothing



' 低分区学生平均成绩

Set rs = conn.Execute("SELECT AVG([成绩]) FROM (SELECT TOP " & LSTotal & " [成绩] FROM [表] ORDER BY [成绩] ASC)")

AVGL = rs(0).Value

rs.Close

Set rs = Nothing



' 试题区分度

D = (AVGH - AVGL) / W

Response.Write "试题区分度：" & D & "<br />"

If D >= 0.4 Then

	Response.Write "试题区分度等级：优"

ElseIf D>=0.3 And D<0.4 Then

	Response.Write "试题区分度等级：良"

ElseIf D>=0.2 And D<0.3 Then

	Response.Write "试题区分度等级：可"

Else

	Response.Write "试题区分度等级：差"

End If