******************************************************
* 考场安排：30人/考场
* 特点：当考生人数不是30的整数倍时，1号考场空1号座位
******************************************************
CLEAR
CREATE CURSOR KC (考生号 C(4),考场号 C(4),座位号 C(7))
NUM=1821 &&总人数
KCS=INT(NUM/30)+IIF(MOD(NUM,30)=0,0,1) &&考场数
FOR I=1 TO NUM
         INSERT INTO KC VALUE (PADL(I,4,"0"),PADL(MOD(I,KCS)+1,4,"0"),"")
ENDFOR
SELECT * FROM KC ORDER BY 考场号 INTO DBF MMM
REPLACE ALL 座位号 WITH 考场号+"-"+TRANSFORM(MOD(RECNO(),30)+1)
BROWSE
CLOSE TABLES
ERASE MMM.DBF