最简单的按分数,男女平均分班编班的程序closedatacleasele1useg1111200
dbfsorton总分/dto男for性别="男"sele2use男dowhile
eof()i=1dowhilei=1repl班别withii=i-1skipifeof()exitendifenddoenddo******************88indeon考号toa1sele1indeon考号tob1updaon考号frombrepl班别withb
班别randclosdatasele1useg1111200sorton总分/dto女for性别="女"sele2use男dowhile
eof()i=1dowhilei=1repl班别withii=i-1skipifeof()exitendifenddoenddo******************88indeon考号toa1sele1indeon考号tob1updaon考号frombrepl班别withb
班别randclosdata