如何按成绩和性别分班

liyunfei099

如果分5个班，我觉得按下面顺序更公平点
1234554321  2345115432  3451221543  4512332154  5123443215

aoe1981

夏秋梦 发表于 2014-7-24 22:27
谢谢aoe1981大侠的回答，我做教务大约有10年时间，分班更不止10年，分班的好坏对班主任和授课教师，甚至整 ...

呵呵，现在我们来捋一捋我们的指标或条件：1.成绩；2.性别；3.重名；4.人情择班（可能有正常的，呵呵）；5.家境特殊；6.性格难管；7.弱智……看来，这项工作要完全交由计算机量化完成，确实不容易……当然，我不排除有这种实现的可能，这些指标还是可以量化的，或者分等分级的……这个首先要有规范的数据源，利用代码识别、处理的数据源……

夏秋梦

liyunfei099 发表于 2014-7-24 22:33
如果分5个班，我觉得按下面顺序更公平点
1234554321  2345115432  3451221543  4512332154  5123443215

同感，我用这种1234554321  2345115432  3451221543  4512332154  5123443215的方法分班好多年了

夏秋梦

aoe1981 发表于 2014-7-24 22:35
呵呵，现在我们来捋一捋我们的指标或条件：1.成绩；2.性别；3.重名；4.人情择班（可能有正常的，呵呵）； ...

aoe1981你好，这个假期，我们校大约400多人新生，分班时主要做到三点，成绩公平、男女搭配均匀（便于安排寝室，寝室非常紧张）、刚才提到的那几类学生一定要分均匀。同名同姓，姓名同音的，是次要的。关系户最难办，我们一般是这样：定了班主任、班主任抽签分了学生再分关系户，关系户先拿出来，接下来的事情好麻烦，仍然要成绩公平、男女搭配均匀……，不然班主任不准。

aoe1981

香川群子 发表于 2014-7-24 21:51
分班条件:
1、先男生后女生分开，然后按总分从高到低排序后依名次顺序分班。力争各班成绩搭配均匀。
2、假 ...

香川，其中一个数组第一维的上下标定义的很巧妙，－1、0、1、2……n-1，俺服了油，专业啊！

liyunfei099

香川群子 发表于 2014-7-24 22:05
发现我的代码计算耗时，还包括了重新排序的时间。

如果不算排序时间(事先已经排序完成)，那么我的代码 ...

如果是 1234554321  2345115432  3451221543  4512332154  5123443215，程序该怎么改？

香川群子

夏秋梦 发表于 2014-7-24 22:37
同感，我用这种1234554321  2345115432  3451221543  4512332154  5123443215的方法分班好多年了

那样的话，班级参数该按以下方式计算了：

1. Sub test()
   
2.     k = 5
   
3.     For t = 0 To 99        
   
4.         If (t \ k) Mod 2 Then c = (t \ (k * 2) + k - 1 - t Mod k) Mod k Else c = (t + t \ (k * 2)) Mod k
   
5.         If t Mod k * 2 = 0 Then s = s & vbCr & c Else s = s & c
   
6.     Next
   
7.     MsgBox s
   
8. End Sub
   

复制代码

也可以用Int：
If (t \ k) Mod 2 Then c = (Int(t / k / 2) + k - 1 - t Mod k) Mod k Else c = (t + Int(t / k / 2)) Mod k


结果为：


0123443210
1234004321
2340110432
3401221043
4012332104
0123443210
1234004321
2340110432
3401221043
4012332104

香川群子

aoe1981 发表于 2014-7-24 23:05
香川，其中一个数组第一维的上下标定义的很巧妙，－1、0、1、2……n-1，俺服了油，专业啊！

【如果是 1234554321  2345115432  3451221543  4512332154  5123443215，程序该怎么改？】

你不许看我的抄我的，自己想个办法试一试！

aoe1981

香川群子 发表于 2014-7-24 23:55
【如果是 1234554321  2345115432  3451221543  4512332154  5123443215，程序该怎么改？】

你不许看我 ...

　　以下附件是借鉴……呵呵，我在此申明，核心算法来自于香川，版权归香川所有，我重点做了工作表格式及报表输出……
　　 性别总分分班(香川方法二次优化共82行代码可打印版).rar (147.69 KB, 下载次数: 170)

2014-7-25 00:15 上传

点击文件名下载附件

　　刚刚更新了提示信息。

aoe1981

　　其实，这一次的借鉴、修改，除了使用了香川的绝妙算法之外，所以能简化就是把按1.总分降序排序，序列填充名次；2.按“性别降序＋总分降序”的联合排序工作提前在原始数据表中手动提前完成了，这样规范的、准备好的数据给代码的运行创造了良好的基础……这也说明，Excel各大功能还是要配合运用，可以用基本功能、函数解决的就用他们吧，把更适宜的留给VBA！