程序代码：

CLOSE DATABASES 
CREATE CURSOR jskb (jsxm c(8), km c(10))
USE jsrkb IN 0
SELECT jsrkb
SCAN 
    FOR i = 3 TO FCOUNT()
        ckc = FIELD(i)
        IF NOT EMPTY(EVALUATE("jsrkb." + ckc))
            INSERT INTO jskb VALUES (EVALUATE("jsrkb." + ckc), ckc)
        ENDIF 
    ENDFOR
ENDSCAN
SELECT jsxm FROM jskb WHERE INLIST(ALLTRIM(km), "语文", "数学", "英语") INTO CURSOR temp
SELECT DISTINCT jsxm FROM jskb WHERE jsxm NOT in (SELECT jsxm FROM temp) ORDER BY jsxm