小题分分析程序调试:
此主题相关图片如下:理数调试.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
[此贴子已经被作者于2019/4/29 12:22:08编辑过]