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

#2

chychychy2024-02-18 14:18

#3

ls_y0412024-02-18 21:18

难得的乐事

#4

hu9jj2024-02-19 08:33

论坛是有很久无法登录了。

#5

huasinstamps2024-02-19 08:51

虽然能登录了，还是好奇想问下：啥情况

#6

laowan0012024-02-19 09:02

终于又回来了

#7

星光悠蓝2024-02-19 10:25

祝贺论坛回归

#8

老去的流星雨2024-02-19 11:09

确实年前上不来了，感觉挺失落的，这个是VFP唯一的论坛了吧

#9

lsh042024-02-19 11:53

终于又回来了

#10

aroffice2024-02-19 15:40

感觉这是唯一的VFP论坛了样，什么原因造成了哟？

#11

aqyejun2024-02-19 16:40

终于又回来了

#12

dye_lio2024-02-19 18:42

这是我们网上最后的家园

#13

easyppt2024-02-20 11:44

终于又回来了

#14

sam_jiang2024-02-20 20:16

我也想知道是啥情况。很怕从此有少一个论坛！

#15

zkzcs2024-02-20 23:50

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

#16

凝聚双眼2024-02-21 08:47

也想知道是啥情况？
这儿应该是仅存的vfp最后论坛吧

#17

chychychy2024-12-03 15:26

回复楼主 wengjl

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

只有本站会员才能查看附件，请登录

程序代码：

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