学生分班问题...
我现在做了一个学生档案管理系统。别的功能都完善的差不多了   ，就差个分班了。
    要求把某一期的学员   按男女平均分配给   N   位老师。老师可选。
    每位老师手下的学生     人数相等     最多相差1人     男女相等   最多相差1人

    代码怎么写啊  


------解决方案--------------------
<%

'1)获得男生数
a = 505
'2)获得女生数
b = 405
'3)获得老师数
c = 7
'4)获得平均男生数
d = int(a/c)
'5)获得平均女生数
e = int(b/c)
'6)获得男生余数
f = a mod c
'7)获得女生余数
g = b mod c
response.write "－－男生： " & a & "－－女生： " & b & "－－老师： " & c & " <hr> "
m = f
n = g

'循环老师
dim i
dim x
dim y
dim xx
dim yy
for i=1 to 7
'老师班级男生x人、女生y人
response.Write "老师 " & i & " <br> "

x = d
y = e

'男生余数+女生余数> 老师数
if m + n > c then

'男生有余，分一个
if f> 0 then
x = x + 1
f = f - 1
end if

'女生有余，分一个
if g> 0 then
g = g - 1
y = y + 1
end if

else

'男生有余，分一个
if f > 0 then
x = x + 1
f = f - 1
else
'女生有余，分一个
if g > 0 then
g =g - 1
y =y + 1
end if
end if

end if
xx = xx + x
yy = yy + y
response.write "－－男生： " & x & "－－女生： " & y & " <br> "
next

response.write " <hr> －－男生： " & xx & "－－女生： " & yy & " <br> "
%>