主题：[求助]选做题区分度的计算

小题分分析程序调试：

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

点击浏览该文件:小题分分析程序调试.rar

此主题相关图片如下：理数调试.jpg

如何修改选做题(选做22题、选做23题)的区分度计算代码，请指教。谢谢！

If Lx = "客观题"  Then
    dr("难度") = dr("满分人")/dr("参考人数")
    dr("区分度") = (c4-c5)/c2
ElseIf Lx = "主观题"  Then
    dr("难度") = dr("平均分")/c1
    If dr("题型").Contains("选做") Then
        Dim c31 As Integer = DataTables(Km).Compute("count(单位)","选做 = '"& dr("题型") &"'")
        Dim c21 As Integer = c31*0.27
        Dim c22 As Integer = c31*0.73
        Dim tj1 As String = Km & "选做题名次"
        Dim c23 As Double = DataTables(Km).Compute("Sum("& dr("题号") &")","" & tj1 & " <= '" & c21 & "'") '选做题高分组得分之和
        Dim c24 As Double = DataTables(Km).Compute("Sum("& dr("题号") &")","" & tj1 & " >= '" & c22 & "'") '选做题低分组得分之和
        dr("区分度") = (c23-c24)/c21/(dr("最大值")-dr("最小值")) '高低分组得分的和之差/总人数27%/(最高分-最低分)
    Else
        dr("区分度") = (c6-c7)/c2/(dr("最大值")-dr("最小值")) '高低分组得分的和之差/总人数27%/(最高分-最低分)
    End If
Else
End If

不理解你的逻辑。

请你弹出你各个值看一下，和你手工计算对比，看哪个值不正确。

msgbox(c23)

msgbox(c24)

msgbox(c21)

msgbox(dr("最大值")-dr("最小值"))

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

点击浏览该文件:理数小题分分析表1.xls

代码：

卷二：

dr("难度") = Tables(Km & "小题分析").Aggregate(AggregateEnum.Average, 12, r, 18, r)
dr("区分度") = Tables(Km & "小题分析").Aggregate(AggregateEnum.Average, 12, q, 18, q)

理数：

dr("难度") = Tables(Km & "小题分析").Aggregate(AggregateEnum.Average, 0, r, 18, r)
dr("区分度") = Tables(Km & "小题分析").Aggregate(AggregateEnum.Average, 0, q, 18, q)

执行结果有误，怎么修改代码？请指教。谢谢！

卷一统计没问题：

dr("难度") = Tables(Km & "小题分析").Aggregate(AggregateEnum.Average, 0, r, 11, r)
dr("区分度") = Tables(Km & "小题分析").Aggregate(AggregateEnum.Average, 0, q, 11, q)

请用compute比较，如

Tables(Km & "小题分析").compute("avg(题号)", "题号>=13 and 题号<=19")