较难的成绩统计代码求助

hedgehog93

mjzxlmg 发表于 2013-1-29 19:46
请设计好表格式发上来。

常用工具.zip (247.31 KB, 下载次数: 19)

2013-1-30 21:25 上传

点击文件名下载附件

初步设计了一样表，请高手帮忙看一下，如有不妥，请留言。非常感谢。

mjzxlmg

hedgehog93 发表于 2013-1-30 21:26
初步设计了一样表，请高手帮忙看一下，如有不妥，请留言。非常感谢。

仍然不明白，你是要取前90%还是要取后10%？有漏洞呀。
正如你的65人的前90%是四取五入是59人，后面剩下只有6人，怎么会有7人？

hedgehog93

mjzxlmg 发表于 2013-1-30 23:00
仍然不明白，你是要取前90%还是要取后10%？有漏洞呀。
正如你的65人的前90%是四取五入是59人，后面剩下只 ...

你看我现在程序里的设计就会明白，是先去后10%，要四舍五入，然后考核人数才是剩下的。所以比如65人的，10%是会取7个人出来，前90%考核人数就会是58，后10%会是7人的。

mjzxlmg

hedgehog93 发表于 2013-1-31 09:38
你看我现在程序里的设计就会明白，是先去后10%，要四舍五入，然后考核人数才是剩下的。所以比如65人的，1 ...

说一下思路你也可以自行解决。
代码中的班排名是按同分不同名的，计算科汇总表时也算好了各班各科的参考人数，有了参考人数，乘于0.9四舍五入就可求得各班各科考核人数（即需要的最后名次），考核人数*0.9就求得需要的起始名次。然后 if >起始名次 and <=最后名次 then 就可以了得到了

hedgehog93

mjzxlmg 发表于 2013-2-2 23:29
说一下思路你也可以自行解决。
代码中的班排名是按同分不同名的，计算科汇总表时也算好了各班各科的参考 ...

看了一下你的设计思路，还有成绩里的后10%名册。好像你把后10%设计成90%里的后10%了。我的意思是：原来程序是考核总参考人数的90%（这里的90%是总参考人数减去后10%（后10%为总参考人数*0.1要四舍五入))是不？那我现在要把后10%是哪些人，成绩是多少显示出来哦。

hedgehog93

mjzxlmg 发表于 2013-2-2 23:29
说一下思路你也可以自行解决。
代码中的班排名是按同分不同名的，计算科汇总表时也算好了各班各科的参考 ...

常用工具.zip (130.17 KB, 下载次数: 20)

2013-2-3 08:48 上传

点击文件名下载附件

再麻烦一下高手，帮我改一改，好吗？我确实能力有限，要不然看到你现在的程序应该可以改出来的。

mjzxlmg

hedgehog93 发表于 2013-2-3 08:31
看了一下你的设计思路，还有成绩里的后10%名册。好像你把后10%设计成90%里的后10%了。我的意思是：原来程 ...

你是说没有统计考核人数的哪些人？

hedgehog93

我改了“后百分之十名册”里If arr_out(i, j + 2) > Assessment_number And arr_out(i, j + 2) <= class_exam_number_dic(arr_out(i, 1) & arr_out(1, j)) Then这个代码，好像就可以了，高手，你帮我看看，对吗？

hedgehog93

mjzxlmg 发表于 2013-2-3 08:53
你是说没有统计考核人数的哪些人？

现在程序的功能是这样的，前90%要统计，但是是统计他们的平均分啊，优秀率啊等等，也就是前面几个表（什么“预览表”，“业绩预览表”，“汇总表”，“业绩汇总表”，“优生名册”，“年级成绩册”）的实现。而后10%是要把他们的姓名和成绩弄出来，也就是“后10%学生名册”这个表的实现。也就是相当于现在全班参考人数都在程序里过了一遍了。

hedgehog93

[code=vb]ReDim Result(1 To UBound(Arr_out), 1 To Subject_dic.count * 2 + 1)[/code]执行到这一句时显示424错误，什么意思呢？