恭贺新年上班能登录VFP论坛 - VFP论坛

aqyejun

等　级：贵宾
威　望：10
帖　子：164
专家分：130
注　册：2010-6-11

第 11 楼

得分:0

终于又回来了

【独叶为舟】工作室

2024-02-19 16:40

easyppt

等　级：蝙蝠侠
威　望：1
帖　子：389
专家分：955
注　册：2021-11-24

第 13 楼

得分:0

终于又回来了

2024-02-20 11:44

zkzcs

等　级：论坛游民
帖　子：36
专家分：17
注　册：2005-9-25

第 15 楼

得分:0

龙年大吉！不容易呀，论坛又回来了！

2024-02-20 23:50

chychychy

等　级：论坛游侠
帖　子：436
专家分：148
注　册：2015-4-18

第 17 楼

得分:0

回复楼主 wengjl

近日浏览论坛以前帖子，看到[学生如何分派]，https://bbs.bccn.net/viewthread.php?tid=355567&extra=&highlight=%D1%A7%C9%FA&page=1
我也正好需要这样往4个学校相对均衡分配学生，Tiger5392版的这段程序正在学习，但是还没大懂，看到您的【人数有时不准的问题通过修改程序，终于解决了。】
想请教你是如何解决人数有时不等问题的。

学生分派.rar (94.24 KB)

程序代码：

CLOSE ALL
USE zkjhk
COPY TO ARRAY laArr FIELDS zsrs
USE bmk.dbf
RAND(SECONDS())
STORE 0 TO lnCnt1,lnCnt2,lnCnt3,lnCnt4
SCAN
  lnRound=RAND()
  DO CASE
    CASE lnRound<=laArr(1)/(laArr(1)+laArr(2)+laArr(3)+laArr(4)) AND lnCnt1<laArr(1)
      lcSchool='0100'
      lnCnt1=lnCnt1+1
    CASE lnRound<=(laArr(1)+laArr(2))/(laArr(1)+laArr(2)+laArr(3)+laArr(4)) AND lnCnt2<laArr(2)
      lcSchool='0200'
      lnCnt2=lnCnt2+1
    CASE lnRound<=(laArr(1)+laArr(2)+laArr(3))/(laArr(1)+laArr(2)+laArr(3)+laArr(4)) AND lnCnt3<laArr(3)
      lcSchool='0300'
      lnCnt3=lnCnt3+1
    OTHERWISE
      lcSchool='0400'
      lnCnt4=lnCnt4+1
  ENDCASE
  REPLACE lqxxdm WITH lcSchool
ENDSCAN
SELECT lqxxdm,CNT(*) cnttot,AVG(tot) avgtot FROM bmk GROUP BY lqxxdm

2024-12-03 15:26