组合号码算法

算法 | 2015-04-22 09:08:57 | 阅读 1035 次 | 评论(0)

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


文章评论,共0条
游客请输入验证码
浏览264946次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...