1-33共33个数字，生成由小到大的

1,2,3,4,5,6

1,2,3,4,5,7

..........

27,29,30,31,32,33

28,29,30,31,32,33

6位数字不相同的新组合

CLEAR
T1=SECONDS()
CREATE CURSOR TEST (A1 N(2),A2 N(2),A3 N(2),A4 N(2),A5 N(2),A6 N(2))

FOR I1=1 TO 33
    FOR I2=I1+1 TO 33
        FOR I3=I2+1 TO 33
            FOR I4=I3+1 TO 33
                FOR I5=I4+1 TO 33
                    FOR I6=I5+1 TO 33
                        INSERT INTO TEST VALUES (I1,I2,I3,I4,I5,I6)
                    ENDFOR
                ENDFOR
            ENDFOR
        ENDFOR
    ENDFOR
ENDFOR
MESSAGEBOX("运行："+TRANSFORM(SECONDS()-T1)+" 秒,共生成："+TRANSFORM(RECCOUNT())+" 组数据")
BROWSE