每次考试都要打乱顺序随机编排考场,一个考场30人,座号从01到30,怎么排啊请教了

按年级班（每个班的编号不允许缺号）统一编号（BH），然后MOD（BH，考场数），余数相同的一个考场。相同余数的重新编号。

[ 本帖最后由 sdta 于 2012-2-28 00:20 编辑 ]

********************************************
* 全县毕业考试场编排
* 随机编排毕业考证号、试场、座位号
* 翁建林 完成时间2007年4月11日星期三13：29
********************************************
CLOSE DATABASES
SET SAFETY off
SET engi 70
SELECT 0
USE bybmk
IF !EMPTY(sjs)
  MESSAGEBOX('试场号已生成，不能重排！！！',64,'提示')
  RETURN
ENDIF
REPLACE sjs with allt(str(val(subs(time(),7))*rand()*123456789)) all
INDEX ON school+sjs to ls
SET ORDER TO ls
GO top
nZKZH=VAL('11001')
DO WHILE !EOF()
  czwh=101
  cxxdm=school
  DO WHILE !EOF().AND.czwh<=130 .and. school=cxxdm
    REPL sch WITH SUBSTR(allt(STR(nZKZH)),2)
    repl zwh with subs(allt(str(czwh)),2)
    czwh=czwh+1
    SKIP +1
  ENDDO
  nZKZH=nZKZH+1
ENDDO
go top
nZKZH=VAL('1100001')
DO WHILE !EOF()
  REPL bykh WITH SUBSTR(allt(STR(nZKZH)),2)
  SKIP +1
  nZKZH=nZKZH+1
ENDDO

非常感谢你的热心帮助，不过由于我是刚入门，看不太懂啊，能做个简单的说明吗，呵呵 ，谢谢啦

先学会走，才能学跑

简单的来了

SELECT 座位表
SCAN
    REPL SORT WITH RAND() * 10000000
ENDSCAN
SELECT * FROM 座位表 ORDER SORT INTO CURSOR 新座位表
 

******************************************************
* 考场安排：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

[ 本帖最后由 sdta 于 2012-2-28 00:31 编辑 ]

思路1、用随机数替换字段sjh
repl all zh with rand()*1000
2、以sjh排序
select * from 学生表  order by sjh into table 按sjh的排序表
3、编排考号kh
4、编排座号1--30 zh
go top
do while !eof()
   for k=1to 30
   repl zh with k
   if !eof()
         skip
        else
        exit
    endif
   endfor
enddo

[ 本帖最后由 zkzcs 于 2012-3-2 14:48 编辑 ]

继续……

谢谢谢谢