请帮忙完善电脑派位新问题新思路的代码

maydbl

起因：本地搞了初中升重点高中的保送直升，保送生可在四所重点校中自选一所学校就读，造成了学校间优秀生的不平衡。
解决：在参加考试的考生中，取前若干名先行电脑派位，使各重点中学的优秀生数相同。（数据见附件）
思路：1、前222名按总分排队后分成7段，前6段每段36人，第7段6人；
      2、前6段每段均按A校4人、B校15人、C校17人的分配方式随机派位，第7段按B校4人、C校2人的分配方式随机派位。

现状：已完成实现第1段的代码，但2—6段（最好是至n段）及第7段的代码就不会做下去了。恳求各位高手帮忙完善！^_^

[ 本帖最后由 maydbl 于 2009-7-26 07:30 编辑 ]

maydbl

自己顶下。心急啊！大家别介意哦。

[ 本帖最后由 maydbl 于 2009-7-26 21:15 编辑 ]

maydbl

恳请大家帮忙哦！

maydbl

感谢badboy8086 您的关注！ 可能我的表达水平有限，令您费解了，深表歉意！

目前已完成实现第1段的代码，但继续执行2—6段（最好是至n段）及第7段的代码就不会做下去了。恳求各位高手帮忙完善！^_^

[ 本帖最后由 maydbl 于 2009-7-26 07:31 编辑 ]

maydbl

虽然目前已完成实现第1段的代码，但......，看来......

maydbl

OFFICE精英俱乐部的云端？给了我以下编制思路（谢谢他！），我觉得非常好且具灵活性：
1、排队。
2、取前222人（也可以用一个对话框输入）。
3、分段、做段循环（循环次数=分段数）。
4、嵌入内层循环，用随机数函数产生排位数（注意比较已选出的，别重复）。
5、将选出的人写入相应的位置。
如果你将全部固定数值都用对话框输入或做一个窗体进行对话，就全部都是n了。

    但我的VBA编制水平有限，做不来。希望各位好心人帮帮我哦，在此一并先谢啦！

[ 本帖最后由 maydbl 于 2009-7-27 14:39 编辑 ]

maydbl

咱论坛的高手都挺忙的！我得到了精英在线“爱疯”的帮助，问题已解决。附件放上供大家借鉴。

yes2boy

解决了？
好疑惑，学校间优秀生的多么不平衡（A4,B15,C17）
也许是理解错了？

maydbl

原帖由 yes2boy 于 2009-7-28 16:21 发表
解决了？
好疑惑，学校间优秀生的多么不平衡（A4,B15,C17）
也许是理解错了？

是的，应该是理解错了——因为保送直升的都是优秀生。

huangxiaoyao

maydbl 发表于 2009-7-28 16:14
咱论坛的高手都挺忙的！我得到了精英在线“爱疯”的帮助，问题已解决。附件放上供大家借鉴。

这个感觉还是不科学 ，可不可以a学校200人，b学校300人那样分配呢