| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]代码Aggregate(AggregateEnum.Average, 0, r, x-1, r) (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134131) |
| -- 作者：cqlpjks -- 发布时间：2019/4/28 11:10:00 -- [求助]代码Aggregate(AggregateEnum.Average, 0, r, x-1, r) x是行号最大值，等于20 dr("难度") = Tables(Km & "小题分析").Aggregate(AggregateEnum.Average, 0, r, 19, r) dr("区分度") = Tables(Km & "小题分析").Aggregate(AggregateEnum.Average, 0, q, 19, q) 执行结果正确.但下面这代码执行结果不正确，好像是取的第一行值： dr("难度") = Tables(Km & "小题分析").Aggregate(AggregateEnum.Average, 0, r, x-1, r) dr("区分度") = Tables(Km & "小题分析").Aggregate(AggregateEnum.Average, 0, q, x-1, q) 不知怎么回事？请指教。谢谢！
|
| -- 作者：有点甜 -- 发布时间：2019/4/28 11:20:00 -- 弹出你的x的值看看
msgbox(x) |
| -- 作者：cqlpjks -- 发布时间：2019/4/28 11:27:00 -- Dim x As Double = DataTables(Km & "小题分析").Compute("Max(序号)","类型 = \'客观题\' And 题型 = \'听力\'") x弹出是20.
[此贴子已经被作者于2019/4/28 11:32:09编辑过]
|
| -- 作者：有点甜 -- 发布时间：2019/4/28 11:50:00 --
出错的实例发上来测试。
|
| -- 作者：cqlpjks -- 发布时间：2019/4/28 12:38:00 -- 只有“听力”和“阅读理解”的难度和区分度计算有误。即题型=听力和题型=阅读理解的平均值。 附件看不见？不知附件传起没有。 [此贴子已经被作者于2019/4/28 13:25:37编辑过]
|
| -- 作者：有点甜 -- 发布时间：2019/4/28 12:38:00 -- 出错的实例发上来测试。 |
| -- 作者：cqlpjks -- 发布时间：2019/4/28 13:51:00 -- 解决了，原来是“答案设置中”听力“、”阅读理解“的”类型“设置错了。应为”客观题“，设置成”主观题了。谢谢！ |