以文本方式查看主题

-  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
--  
解决了,原来是“答案设置中”听力“、”阅读理解“的”类型“设置错了。应为”客观题“,设置成”主观题了。谢谢!