程序代码：

SELECT RECNO() bh, * FROM a INTO TABLE 交换结果记录表
SELECT RECNO() bh, * FROM b INTO CURSOR tb
SELECT 交换结果记录表
INDEX on bh TAG ta_bh
RAND(-1)
SELECT tb
INDEX ON RAND() TAG tb_r
SET RELATION TO bh INTO "交换结果记录表"
ran = INT((RECCOUNT("tb")-1)*RAND()+1)
? " 取 "+TRANSFORM(ran)+" 条记录"
SCAN NEXT ran
    ? bh
    SCATTER MEMVAR
    SELECT 交换结果记录表
    GATHER MEMVAR
ENDSCAN
SELECT 交换结果记录表
BROWSE
CLOSE TABLES ALL