分了几个年级，每个年级要求考场的人数不同，这样怎么写程序？

考场数可以自己输入吗？

是可以的。
考场人数要单独一个DBF比较方便
是在固定人数排考场的基础上，将循环的终止点用考场人数表的人数变量来替换即可，即多一个按　考场人数表的循环

能举个例子吗

“每个年级要求考场的人数不同”是什么意思？难道没有基本的人数要求吗？

就是人数能自己设置。有个提示框，让输入比如 1年级考场人数  2年级考场人数 。赋值到每个考场人数

USE stu

 ll="01" 

 rs=30

 do while ll!="00"

 
@2,5 say'请输入年级代码：' font '宋体',20 color RGB(0,0,255)  get ll
@8,5 say'请输入此年级每考场人数：' font '宋体',20 color RGB(0,0,255) get rs

 read

 if ll="00"
   exit
   endif

 set filt to nj=ll

ma=1
mb=1  &&两个变量
go top
do while not eof()
if mb>rs
ma=ma+1
mb=1
else
replace kc with ma
replace zh with mb
skip
mb=mb+1
endif
enddo


 endd

 close all

 

粗糙的也可以实现了。。

CLOSE ALL
CLEAR
USE stu ALIAS stu IN 0
SELECT 年级 FROM stu GROUP BY 年级,nj ORDER BY nj INTO ARRAY stu1
_n=ALEN(stu1)
FOR _i=1 TO _n
  rs=0
  @_i,5 say stu1(_i)+"考场人数：" get rs
  read
  IF rs=0
     EXIT
  ENDIF
  SET FILTER TO 年级=stu1(_i)
  ma=1
  mb=1  &&两个变量
  GO TOP
  DO WHILE !EOF()
   IF mb>rs
      ma=ma+1
      mb=1
    ELSE
      REPLACE kc WITH ma
      REPLACE zh WITH mb
    SKIP
    mb=mb+1
   ENDIF
  ENDDO
ENDFOR
CLOSE ALL

这个要是做随机呢？每个年级的考生随机怎么做？

編製考場的具體規則是什麼