关于监考轮换的求助

是的，监考甲、监考乙分配要完全随机，不想第一组分配完，第二组或以下几组监考甲、监考乙用递增、递减或齿轮方法等串位，完全随机

具体分几组最好根据考试科目来定，每种考试的科目有所不同，就是无论分几组可能满足要求，我根据上传附件的男、女比例算了一下，应该够分

第一二场还好说，如果涉及到场数多，不一直对不上

jkj表（监考甲）里的数据是来自一所学校的，jky表（监考乙）里的数据是来自一所学校的

有思路了，在对接好里的表中删除甲、乙都是男的，剩上的随机筛选出7场

甲组中有10位男的，乙组中有14位男的，所以男男组合 有 140 所以最后得的组合 是949


      ********************
      * 名称：甲乙监考教师搭配处理
      * 时间：2025-4-18
      * 来源：https://bbs.bc-cn.net/thread-514275-1-1.html
      ********************
      CLEAR
      CLEAR ALL
      SET SAFETY off
      SET engi 70      
      CLOSE DATABASES
      SELECT * from jkjmd wher 1=3 into cursor lstem readw
      SELECT lstem
      FOR i=1 to 33
        APPEND FROM jkjmd
      ENDFOR
      SELECT * from lstem orde by jxm into array ls
      SELECT 0
      USE ppjg alia bmk
      ZAP
      APPEND FROM array ls
      CLOSE DATABASES  
      SELECT 0
      USE ppjg alia bmk
      SELECT 0
      USE jkymd alia kg
      SELECT bmk
      DO while not EOF()
          xmj=bmk.jxm
          xbj=bmk.jxb
          nRen=RECNO()
          SELECT * ,0.0000000 as nn from kg into cursor tmp readw
          SELECT tmp
          REPLACE nn with RAND() all
          SELECT * from tmp orde by nn into cursor ls
          SELECT bmk
          GO top
          jls=1
          SCAN for bmk.jxm=xmj
            SELECT ls
            GO jls
            REPLACE bmk.yxm with ls.yxm,bmk.yxb with ls.yxb
            SELECT bmk
            jls=jls+1
          ENDSCAN
          SELECT bmk
          GO nRen+32
          SKIP 1
      ENDDO
      SELECT bmk
      DELETE FOR jxb=[男] and yxb=[男]
      PACK
      CLOSE DATABASES
      QUIT

只做了搭配部分。
监考落到试场中的部分，尚未完全理解...

结果字段命名为什么是JXM2,YXM1(甲姓名2，乙姓名1？)，有什么特殊含义吗？这样写代码很容易乱啊，可以成xm1，xm2,或 xmJ,xmY吗？要不是我理解错了，XM是考试项目？最后结果是Ksapb吧，可以用其它结构吗？

[此贴子已经被作者于2025-4-18 12:19编辑过]

一个程序，3个表。监考教师表，考试课程表，监考安排表。考试课程门次不限，每门考场数可不限。，如有需要可以加一个判断男女人数的语句，男少禁止男男，女少禁止女女。

如果你把表单发上来，用事件代码处理就方便多了。比如，预先指定部分监考、同科不监考、同科不同场、某人不监考某场……。不发表单上来很难处理。