[原创]请教vfbpgyfk先生一个编程问题

白新岭

SELECT 1
USE D:\素数式裂解\素数式.DBF ALIAS 素数式
kssj=SECONDS()
    For i=1 to 16
        FOR j=i+1  TO 17
        ss1=2*i
        ss2=2*j
       SELECT  1   &&打开盛放素数式的表
       APPEND BLANK     &&增加一条空记录
       REPLACE 素式0 WITH ss1 &&将B值付给素数式
       APPEND BLANK     &&增加一条空记录
       REPLACE 素式0 WITH ss2 &&将B值付给素数式
       endfor
   endfor
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式5.DBF ALIAS 素数式5
kssj=SECONDS()
    For i=1 to 15
      FOR j=i+1  TO 16
         FOR h=j+1  TO 17
          ss1=2*i
          ss2=2*j
          ss3=2*h
          SELECT  1   &&打开盛放素数式的表
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式5 WITH ss1 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式5 WITH ss2 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式5 WITH ss3 &&将B值付给素数式
         ENDFOR
      endfor
   endfor
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式6.DBF ALIAS 素数式6
kssj=SECONDS()
    For i=1 to 14
      FOR j=i+1  TO 15
         FOR h=j+1  TO 16
         FOR k=h+1  TO 17
          ss1=2*i
          ss2=2*j
          ss3=2*h
          ss4=2*k
          SELECT  1   &&打开盛放素数式的表
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式6 WITH ss1 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式6 WITH ss2 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式6 WITH ss3 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式6 WITH ss4 &&将B值付给素数式
          ENDFOR
         ENDFOR
      endfor
   endfor
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式7.DBF ALIAS 素数式7
kssj=SECONDS()
    For i=1 to 13
      FOR j=i+1  TO 14
         FOR h=j+1  TO 15
         FOR k=h+1  TO 16
         FOR m=k+1  TO 17
          ss1=2*i
          ss2=2*j
          ss3=2*h
          ss4=2*k
          ss5=2*m
          SELECT  1   &&打开盛放素数式的表
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式7 WITH ss1 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式7 WITH ss2 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式7 WITH ss3 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式7 WITH ss4 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式7 WITH ss5 &&将B值付给素数式
          ENDFOR
          ENDFOR
         ENDFOR
      endfor
   endfor
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式8.DBF ALIAS 素数式8
kssj=SECONDS()
    For i=1 to 12
      FOR j=i+1  TO 13
         FOR h=j+1  TO 14
         FOR k=h+1  TO 15
         FOR m=k+1  TO 16
          FOR g=m+1  TO 17
          ss1=2*i
          ss2=2*j
          ss3=2*h
          ss4=2*k
          ss5=2*m
          ss6=2*g
          SELECT  1   &&打开盛放素数式的表
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式8 WITH ss1 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式8 WITH ss2 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式8 WITH ss3 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式8 WITH ss4 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式8 WITH ss5 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式8 WITH ss6 &&将B值付给素数式
          ENDFOR
          ENDFOR
          ENDFOR
         ENDFOR
      endfor
   endfor
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式9.DBF ALIAS 素数式9
kssj=SECONDS()
    For i=1 to 11
      FOR j=i+1  TO 12
         FOR h=j+1  TO 13
         FOR k=h+1  TO 14
         FOR m=k+1  TO 15
          FOR g=m+1  TO 16
          FOR l=g+1  TO 17
          ss1=2*i
          ss2=2*j
          ss3=2*h
          ss4=2*k
          ss5=2*m
          ss6=2*g
          ss7=2*l
          SELECT  1   &&打开盛放素数式的表
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式9 WITH ss1 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式9 WITH ss2 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式9 WITH ss3 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式9 WITH ss4 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式9 WITH ss5 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式9 WITH ss6 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式9 WITH ss7 &&将B值付给素数式
          ENDFOR
          ENDFOR
          ENDFOR
          ENDFOR
         ENDFOR
      endfor
   endfor
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式10.DBF ALIAS 素数式10
kssj=SECONDS()
    For i=1 to 10
      FOR j=i+1  TO 11
         FOR h=j+1  TO 12
         FOR k=h+1  TO 13
         FOR m=k+1  TO 14
          FOR g=m+1  TO 15
          FOR l=g+1  TO 16
          FOR u=l+1  TO 17
          ss1=2*i
          ss2=2*j
          ss3=2*h
          ss4=2*k
          ss5=2*m
          ss6=2*g
          ss7=2*l
          ss8=2*u
          SELECT  1   &&打开盛放素数式的表
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式10 WITH ss1 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式10 WITH ss2 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式10 WITH ss3 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式10 WITH ss4 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式10 WITH ss5 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式10 WITH ss6 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式10 WITH ss7 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式10 WITH ss8 &&将B值付给素数式
          ENDFOR
          ENDFOR
          ENDFOR
          ENDFOR
          ENDFOR
         ENDFOR
      endfor
   endfor
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式11.DBF ALIAS 素数式11
kssj=SECONDS()
    For i=1 to 9
      FOR j=i+1  TO 10
         FOR h=j+1  TO 11
         FOR k=h+1  TO 12
         FOR m=k+1  TO 13
          FOR g=m+1  TO 14
          FOR l=g+1  TO 15
          FOR u=l+1  TO 16
          FOR v=u+1  TO 17
          ss1=2*i
          ss2=2*j
          ss3=2*h
          ss4=2*k
          ss5=2*m
          ss6=2*g
          ss7=2*l
          ss8=2*u
          ss9=2*v
          SELECT  1   &&打开盛放素数式的表
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式11 WITH ss1 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式11 WITH ss2 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式11 WITH ss3 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式11 WITH ss4 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式11 WITH ss5 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式11 WITH ss6 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式11 WITH ss7 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式11 WITH ss8 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式11 WITH ss9 &&将B值付给素数式
          ENDFOR
          ENDFOR
          ENDFOR
          ENDFOR
          ENDFOR
          ENDFOR
         ENDFOR
      endfor
   endfor
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是跨度36的素数式（从4生到11生的制作程序，线型）。

白新岭

SELECT 1
USE D:\素数式裂解\素数式.DBF ALIAS 素数式
SELECT 2
USE D:\素数式裂解\素数式4横.DBF ALIAS 素数式4横
kssj=SECONDS()
    SELECT 1
    ss1=0
    ss4=36
    For i=1 to 136
      ss2=素式0
      SKIP
      ss3=素式0
       SELECT  2  &&打开盛放素数式的表
       APPEND BLANK     &&增加一条空记录
       REPLACE 素1 WITH ss1 &&将B值付给素数式
       REPLACE 素2 WITH ss2 &&将B值付给素数式
       REPLACE 素3 WITH ss3 &&将B值付给素数式
       REPLACE 素4 WITH ss4 &&将B值付给素数式
       SELECT 1
       skip
   endfor
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式5.DBF ALIAS 素数式5
SELECT 2
USE D:\素数式裂解\素数式5横.DBF ALIAS 素数式5横
kssj=SECONDS()
    SELECT 1
    ss1=0
    ss5=36
    For i=1 to 680
      ss2=素式5
      SKIP
      ss3=素式5
      SKIP
      ss4=素式5
       SELECT  2  &&打开盛放素数式的表
       APPEND BLANK     &&增加一条空记录
       REPLACE 素1 WITH ss1 &&将B值付给素数式
       REPLACE 素2 WITH ss2 &&将B值付给素数式
       REPLACE 素3 WITH ss3 &&将B值付给素数式
       REPLACE 素4 WITH ss4 &&将B值付给素数式
       REPLACE 素5 WITH ss5 &&将B值付给素数式
       SELECT 1
       skip
   endfor
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式6.DBF ALIAS 素数式6
SELECT 2
USE D:\素数式裂解\素数式6横.DBF ALIAS 素数式6横
kssj=SECONDS()
    SELECT 1
    ss1=0
    ss6=36
    For i=1 to 2380
      ss2=素式6
      SKIP
      ss3=素式6
      SKIP
      ss4=素式6
      SKIP
      ss5=素式6
       SELECT  2  &&打开盛放素数式的表
       APPEND BLANK     &&增加一条空记录
       REPLACE 素1 WITH ss1 &&将B值付给素数式
       REPLACE 素2 WITH ss2 &&将B值付给素数式
       REPLACE 素3 WITH ss3 &&将B值付给素数式
       REPLACE 素4 WITH ss4 &&将B值付给素数式
       REPLACE 素5 WITH ss5 &&将B值付给素数式
       REPLACE 素6 WITH ss6 &&将B值付给素数式
       SELECT 1
       skip
   endfor
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式7.DBF ALIAS 素数式7
SELECT 2
USE D:\素数式裂解\素数式7横.DBF ALIAS 素数式7横
kssj=SECONDS()
    SELECT 1
    ss1=0
    ss7=36
    For i=1 to 6188
      ss2=素式7
      SKIP
      ss3=素式7
      SKIP
      ss4=素式7
      SKIP
      ss5=素式7
       SKIP
      ss6=素式7
       SELECT  2  &&打开盛放素数式的表
       APPEND BLANK     &&增加一条空记录
       REPLACE 素1 WITH ss1 &&将B值付给素数式
       REPLACE 素2 WITH ss2 &&将B值付给素数式
       REPLACE 素3 WITH ss3 &&将B值付给素数式
       REPLACE 素4 WITH ss4 &&将B值付给素数式
       REPLACE 素5 WITH ss5 &&将B值付给素数式
       REPLACE 素6 WITH ss6 &&将B值付给素数式
       REPLACE 素7 WITH ss7 &&将B值付给素数式
       SELECT 1
       skip
   endfor
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式8.DBF ALIAS 素数式8
SELECT 2
USE D:\素数式裂解\素数式8横.DBF ALIAS 素数式8横
kssj=SECONDS()
    SELECT 1
    ss1=0
    ss8=36
    For i=1 to 12376
      ss2=素式8
      SKIP
      ss3=素式8
      SKIP
      ss4=素式8
      SKIP
      ss5=素式8
       SKIP
      ss6=素式8
      skip
      ss7=素式8
       SELECT  2  &&打开盛放素数式的表
       APPEND BLANK     &&增加一条空记录
       REPLACE 素1 WITH ss1 &&将B值付给素数式
       REPLACE 素2 WITH ss2 &&将B值付给素数式
       REPLACE 素3 WITH ss3 &&将B值付给素数式
       REPLACE 素4 WITH ss4 &&将B值付给素数式
       REPLACE 素5 WITH ss5 &&将B值付给素数式
       REPLACE 素6 WITH ss6 &&将B值付给素数式
       REPLACE 素7 WITH ss7 &&将B值付给素数式
       REPLACE 素8 WITH ss8 &&将B值付给素数式
       SELECT 1
       skip
   endfor
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式9.DBF ALIAS 素数式9
SELECT 2
USE D:\素数式裂解\素数式9横.DBF ALIAS 素数式9横
kssj=SECONDS()
    SELECT 1
    ss1=0
    ss9=36
    For i=1 to 19448
      ss2=素式9
      SKIP
      ss3=素式9
      SKIP
      ss4=素式9
      SKIP
      ss5=素式9
       SKIP
      ss6=素式9
      skip
      ss7=素式9
       skip
      ss8=素式9
       SELECT  2  &&打开盛放素数式的表
       APPEND BLANK     &&增加一条空记录
       REPLACE 素1 WITH ss1 &&将B值付给素数式
       REPLACE 素2 WITH ss2 &&将B值付给素数式
       REPLACE 素3 WITH ss3 &&将B值付给素数式
       REPLACE 素4 WITH ss4 &&将B值付给素数式
       REPLACE 素5 WITH ss5 &&将B值付给素数式
       REPLACE 素6 WITH ss6 &&将B值付给素数式
       REPLACE 素7 WITH ss7 &&将B值付给素数式
       REPLACE 素8 WITH ss8 &&将B值付给素数式
       REPLACE 素9 WITH ss9 &&将B值付给素数式
       SELECT 1
       skip
   endfor
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式10.DBF ALIAS 素数式10
SELECT 2
USE D:\素数式裂解\素数式10横.DBF ALIAS 素数式10横
kssj=SECONDS()
    SELECT 1
    ss1=0
    ss10=36
    For i=1 to 24310
      ss2=素式10
      SKIP
      ss3=素式10
      SKIP
      ss4=素式10
      SKIP
      ss5=素式10
       SKIP
      ss6=素式10
      skip
      ss7=素式10
       skip
      ss8=素式10
      skip
      ss9=素式10
       SELECT  2  &&打开盛放素数式的表
       APPEND BLANK     &&增加一条空记录
       REPLACE 素1 WITH ss1 &&将B值付给素数式
       REPLACE 素2 WITH ss2 &&将B值付给素数式
       REPLACE 素3 WITH ss3 &&将B值付给素数式
       REPLACE 素4 WITH ss4 &&将B值付给素数式
       REPLACE 素5 WITH ss5 &&将B值付给素数式
       REPLACE 素6 WITH ss6 &&将B值付给素数式
       REPLACE 素7 WITH ss7 &&将B值付给素数式
       REPLACE 素8 WITH ss8 &&将B值付给素数式
       REPLACE 素9 WITH ss9 &&将B值付给素数式
       REPLACE 素10 WITH ss10 &&将B值付给素数式
       SELECT 1
       skip
   endfor
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式11.DBF ALIAS 素数式11
SELECT 2
USE D:\素数式裂解\素数式11横.DBF ALIAS 素数式11横
kssj=SECONDS()
    SELECT 1
    ss1=0
    ss11=36
    For i=1 to 24310
      ss2=素式11
      SKIP
      ss3=素式11
      SKIP
      ss4=素式11
      SKIP
      ss5=素式11
       SKIP
      ss6=素式11
      skip
      ss7=素式11
       skip
      ss8=素式11
      skip
      ss9=素式11
      skip
      ss10=素式11
       SELECT  2  &&打开盛放素数式的表
       APPEND BLANK     &&增加一条空记录
       REPLACE 素1 WITH ss1 &&将B值付给素数式
       REPLACE 素2 WITH ss2 &&将B值付给素数式
       REPLACE 素3 WITH ss3 &&将B值付给素数式
       REPLACE 素4 WITH ss4 &&将B值付给素数式
       REPLACE 素5 WITH ss5 &&将B值付给素数式
       REPLACE 素6 WITH ss6 &&将B值付给素数式
       REPLACE 素7 WITH ss7 &&将B值付给素数式
       REPLACE 素8 WITH ss8 &&将B值付给素数式
       REPLACE 素9 WITH ss9 &&将B值付给素数式
       REPLACE 素10 WITH ss10 &&将B值付给素数式
       REPLACE 素11 WITH ss11 &&将B值付给素数式
       SELECT 1
       skip
   endfor
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
制作k生素数式记录条（从4生到11生），
\(C_n^m=C_n^{n-m}\)，可以推出跨度2k的，最多形成（k+1）/2+2的素数式

白新岭

SELECT 1
USE D:\素数式裂解\素数式.DBF ALIAS 素数式
kssj=SECONDS()
    m=3
    For i=1 to 16+m
        FOR j=i+1  TO 17+m
        ss1=2*i
        ss2=2*j
       SELECT  1   &&打开盛放素数式的表
       APPEND BLANK     &&增加一条空记录
       REPLACE 素式0 WITH ss1 &&将B值付给素数式
       APPEND BLANK     &&增加一条空记录
       REPLACE 素式0 WITH ss2 &&将B值付给素数式
       endfor
   endfor
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
SELECT 1
USE D:\素数式裂解\素数式7.DBF ALIAS 素数式7
kssj=SECONDS()
x=3 && m已经作为一个变量存在，所以文件大的没边，形成了1.9亿的记录条
    For i=1 to 13+x
      FOR j=i+1  TO 14+x
         FOR h=j+1  TO 15+x
         FOR k=h+1  TO 16+x
         FOR m=k+1  TO 17+x
          ss1=2*i
          ss2=2*j
          ss3=2*h
          ss4=2*k
          ss5=2*m
          SELECT  1   &&打开盛放素数式的表
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式7 WITH ss1 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式7 WITH ss2 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式7 WITH ss3 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式7 WITH ss4 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式7 WITH ss5 &&将B值付给素数式
          ENDFOR
          ENDFOR
         ENDFOR
      endfor
   endfor
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
因为大于等于5组和后，变量m已经用了，出现自嵌套问题，导致文件异常大，所以改变了变量，用x代替了m（这样避免了，同一个变量表示两种不同的角色矛盾）。
SELECT 1
USE D:\素数式裂解\素数式12.DBF ALIAS 素数式12
kssj=SECONDS()
    x=2
    For i=1 to 9+x
      FOR j=i+1  TO 10+x
         FOR h=j+1  TO 11+x
         FOR k=h+1  TO 12+x
         FOR m=k+1  TO 13+x
          FOR g=m+1  TO 14+x
          FOR l=g+1  TO 15+x
          FOR u=l+1  TO 16+x
          FOR v=u+1  TO 17+x
          FOR f=v+1  TO 18+x
          ss1=2*i
          ss2=2*j
          ss3=2*h
          ss4=2*k
          ss5=2*m
          ss6=2*g
          ss7=2*l
          ss8=2*u
          ss9=2*v
          ss10=2*f
          SELECT  1   &&打开盛放素数式的表
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式12 WITH ss1 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式12 WITH ss2 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式12 WITH ss3 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式12 WITH ss4 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式12 WITH ss5 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式12 WITH ss6 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式12 WITH ss7 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式12 WITH ss8 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式12 WITH ss9 &&将B值付给素数式
          APPEND BLANK     &&增加一条空记录
          REPLACE 素式12 WITH ss10 &&将B值付给素数式
          ENDFOR
          ENDFOR
          ENDFOR
          ENDFOR
          ENDFOR
          ENDFOR
          ENDFOR
         ENDFOR
      endfor
   endfor
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
因为这是在9组和的基础上又加了一层嵌套，所以x变成2，最中心的嵌套是18结尾，加2就是20了。
所以要因实而变。

白新岭

SELECT 1
USE D:\素数式裂解\素数式12.DBF ALIAS 素数式12
SELECT 2
USE D:\素数式裂解\素数式12横.DBF ALIAS 素数式12横
kssj=SECONDS()
    SELECT 1
    ss1=0
    ss12=42
    For i=1 to 184756
      ss2=素式12
      SKIP
      ss3=素式12
      SKIP
      ss4=素式12
      SKIP
      ss5=素式12
       SKIP
      ss6=素式12
      skip
      ss7=素式12
       skip
      ss8=素式12
      skip
      ss9=素式12
      skip
      ss10=素式12
      skip
      ss11=素式12
       SELECT  2  &&打开盛放素数式的表
       APPEND BLANK     &&增加一条空记录
       REPLACE 素1 WITH ss1 &&将B值付给素数式
       REPLACE 素2 WITH ss2 &&将B值付给素数式
       REPLACE 素3 WITH ss3 &&将B值付给素数式
       REPLACE 素4 WITH ss4 &&将B值付给素数式
       REPLACE 素5 WITH ss5 &&将B值付给素数式
       REPLACE 素6 WITH ss6 &&将B值付给素数式
       REPLACE 素7 WITH ss7 &&将B值付给素数式
       REPLACE 素8 WITH ss8 &&将B值付给素数式
       REPLACE 素9 WITH ss9 &&将B值付给素数式
       REPLACE 素10 WITH ss10 &&将B值付给素数式
       REPLACE 素11 WITH ss11 &&将B值付给素数式
       REPLACE 素12 WITH ss12 &&将B值付给素数式
       SELECT 1
       skip
   endfor
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是制作素数式记录条程序。

白新岭

SELECT 1
USE D:\素数式裂解\素数式12横.DBF ALIAS 素数式12横
SELECT 2
USE D:\素数式裂解\余数表.DBF ALIAS 余数表
SELECT 3
USE D:\素数式裂解\素数表.DBF ALIAS 素数表
SELECT 4
USE D:\素数式裂解\素数式12横42剩.DBF ALIAS 素数式12横剩
kssj=SECONDS()
  DIMENSION ss(12)
  SELECT 1
  For i=1 to 184756 &&高位少了184
  @ 5,10 say i
    ss(1)=素1
    ss(2)=素2
    ss(3)=素3
    ss(4)=素4
    ss(5)=素5
    ss(6)=素6
    ss(7)=素7
    ss(8)=素8
    ss(9)=素9
    ss(10)=素10
    ss(11)=素11
    ss(12)=素12
       SELECT 3
       GO 1
       FOR j=1 TO 4
       SELECT 3
       sss=素数
       SELECT 2
       DELETE ALL
       pack   &&下一步要用到余数表，所以清空它
           FOR k=1 TO 12
           ys=MOD(ss(k),sss)
           @ 15,20 say ss(k)
           SELECT 2
           count all for ys=余数 to js  &&改成余数表中的字段名
                   IF js=0
                   SELECT 2
                   APPEND BLANK
                   REPLACE 余数 WITH ys
                   ENDIF
           ENDFOR
           SELECT 2
           zjl=RECCOUNT()  &&把余数表中的记录条数赋给变量zjl
           IF zjl=sss
           EXIT
           ENDIF
           SELECT 3
           skip
       ENDFOR
       IF j>4
       SELECT  4  &&打开盛放素数式的表
       APPEND BLANK     &&增加一条空记录
       REPLACE 素1 WITH ss(1) &&将B值付给素数式
       REPLACE 素2 WITH ss(2) &&将B值付给素数式
       REPLACE 素3 WITH ss(3) &&将B值付给素数式
       REPLACE 素4 WITH ss(4) &&将B值付给素数式
       REPLACE 素5 WITH ss(5) &&将B值付给素数式
       REPLACE 素6 WITH ss(6) &&将B值付给素数式
       REPLACE 素7 WITH ss(7) &&将B值付给素数式
       REPLACE 素8 WITH ss(8) &&将B值付给素数式
       REPLACE 素9 WITH ss(9) &&将B值付给素数式
       REPLACE 素10 WITH ss(10) &&将B值付给素数式
       REPLACE 素11 WITH ss(11) &&将B值付给素数式
       REPLACE 素12 WITH ss(12) &&将B值付给素数式
       ENDIF
   SELECT 1
   skip
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
进过几次改动，最终成功，开始时，没有做任何排查，都是直接输出的11，从素1到素12，从第一条记录到末尾的184756条记录，后来把ss=素数，改成了sss=素数（可能原因是程序默认为ss(k)=11，即把ss当了ss(12)=11,数组中的每个值都被11所取代），还有一个问题当时没有注意到，判断记录条数是否与素数值相等时，仍就用了ss，没有跟着改成sss，所以也没有获得结果，输出数据仍就错误。
总结经验：在设置变量时，一定注意是否用重复，这点非常重要；在数组中，数组变量后有无小括号，程序会认为是同一变量，切记，切记，否则就出错误结果。

白新岭

白新岭 发表于 2021-5-29 17:50
SELECT 1
USE D:\素数式裂解\素数式12横.DBF ALIAS 素数式12横
SELECT 2

编程这东西有时真的是逼出来的，没有办法，你想获得数据，在Excel中无法获得，只能求助于编程了，不会的，只能从网上搜寻，一般情况下，你所想的就是那么回事，好像设计程序语言时（代码时）也是这么想的，心有灵犀一点通，一点都不假。

白新岭

SELECT 1
USE D:\素数式裂解\素数式10横.DBF ALIAS 素数式10横
SELECT 2
USE D:\素数式裂解\余数表.DBF ALIAS 余数表
SELECT 3
USE D:\素数式裂解\素数表.DBF ALIAS 素数表
SELECT 4
USE D:\素数式裂解\素数式12横42剩.DBF ALIAS 素数式12横剩
kssj=SECONDS()
  DIMENSION ss(10)
  SELECT 1
  For i=1 to 125970
  @ 5,10 say i
    ss(1)=素1
    ss(2)=素2
    ss(3)=素3
    ss(4)=素4
    ss(5)=素5
    ss(6)=素6
    ss(7)=素7
    ss(8)=素8
    ss(9)=素9
    ss(10)=素10
     && ss(11)=素11
     && ss(12)=素12
       SELECT 3
       GO 1
       FOR j=1 TO 3 &&在12生素数式时，用到素数11,10生素数式用到素数7就可以了
       SELECT 3
       sss=素数
       SELECT 2
       DELETE ALL
       pack   &&下一步要用到余数表，所以清空它
           FOR k=1 TO 10 &&此循环值到k生素数式中的k值即可
           ys=MOD(ss(k),sss)
           && @ 15,20 say ss(k)，不需要了，原先是想了解ss(k)是否随循环变量而改变，观察用
           SELECT 2
           count all for ys=余数 to js  &&改成余数表中的字段名
                   IF js=0
                   SELECT 2
                   APPEND BLANK
                   REPLACE 余数 WITH ys
                   ENDIF
           ENDFOR
           SELECT 2
           zjl=RECCOUNT()  &&把余数表中的记录条数赋给变量zjl
           IF zjl=sss
           EXIT
           ENDIF
           SELECT 3
           skip
       ENDFOR
       IF j>3  &&与参与素数的个数相关联
       SELECT  4  &&打开盛放素数式的表
       APPEND BLANK     &&增加一条空记录
       REPLACE 素1 WITH ss(1) &&将B值付给素数式
       REPLACE 素2 WITH ss(2) &&将B值付给素数式
       REPLACE 素3 WITH ss(3) &&将B值付给素数式
       REPLACE 素4 WITH ss(4) &&将B值付给素数式
       REPLACE 素5 WITH ss(5) &&将B值付给素数式
       REPLACE 素6 WITH ss(6) &&将B值付给素数式
       REPLACE 素7 WITH ss(7) &&将B值付给素数式
       REPLACE 素8 WITH ss(8) &&将B值付给素数式
       REPLACE 素9 WITH ss(9) &&将B值付给素数式
       REPLACE 素10 WITH ss(10) &&将B值付给素数式
        && REPLACE 素11 WITH ss(11) &&将B值付给素数式
        && REPLACE 素12 WITH ss(12) &&将B值付给素数式
       ENDIF
   SELECT 1
   skip
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是一个通用的筛选素数式程序（12生素数式以下，当然可以增加，只不过需要同时稍微改动一下程序）

白新岭

SELECT 1
USE D:\素数式裂解\素数式9横.DBF ALIAS 素数式9横
SELECT 2
USE D:\素数式裂解\余数表.DBF ALIAS 余数表
SELECT 3
USE D:\素数式裂解\素数表.DBF ALIAS 素数表
SELECT 4
USE D:\素数式裂解\素数式12横42剩.DBF ALIAS 素数式12横剩
kssj=SECONDS()
  DIMENSION ss(9)
  SELECT 1
  For i=1 to 77520
  @ 5,10 say i
    ss(1)=素1
    ss(2)=素2
    ss(3)=素3
    ss(4)=素4
    ss(5)=素5
    ss(6)=素6
    ss(7)=素7
    ss(8)=素8
    ss(9)=素9
     && ss(10)=素10
     && ss(11)=素11
     && ss(12)=素12
       SELECT 3
       GO 1
       FOR j=1 TO 3 &&在12生素数式时，用到素数11,10生素数式用到素数7就可以了
       SELECT 3
       sss=素数
       SELECT 2
       DELETE ALL
       pack   &&下一步要用到余数表，所以清空它
           FOR k=1 TO 9 &&此循环值到k生素数式中的k值即可
           ys=MOD(ss(k),sss)
           && @ 15,20 say ss(k)，不需要了，原先是想了解ss(k)是否随循环变量而改变，观察用
           SELECT 2
           count all for ys=余数 to js  &&改成余数表中的字段名
                   IF js=0
                   SELECT 2
                   APPEND BLANK
                   REPLACE 余数 WITH ys
                   ENDIF
           ENDFOR
           SELECT 2
           zjl=RECCOUNT()  &&把余数表中的记录条数赋给变量zjl
           IF zjl=sss
           EXIT
           ENDIF
           SELECT 3
           skip
       ENDFOR
       IF j>3  &&与参与素数的个数相关联
       SELECT  4  &&打开盛放素数式的表
       APPEND BLANK     &&增加一条空记录
       REPLACE 素1 WITH ss(1) &&将B值付给素数式
       REPLACE 素2 WITH ss(2) &&将B值付给素数式
       REPLACE 素3 WITH ss(3) &&将B值付给素数式
       REPLACE 素4 WITH ss(4) &&将B值付给素数式
       REPLACE 素5 WITH ss(5) &&将B值付给素数式
       REPLACE 素6 WITH ss(6) &&将B值付给素数式
       REPLACE 素7 WITH ss(7) &&将B值付给素数式
       REPLACE 素8 WITH ss(8) &&将B值付给素数式
       REPLACE 素9 WITH ss(9) &&将B值付给素数式
        && REPLACE 素10 WITH ss(10) &&将B值付给素数式
        && REPLACE 素11 WITH ss(11) &&将B值付给素数式
        && REPLACE 素12 WITH ss(12) &&将B值付给素数式
       ENDIF
   SELECT 1
   skip
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
编程与素数有关问题相辅相成，相得益彰，互相促进。

白新岭

SELECT 1
USE D:\素数式裂解\素数式8横.DBF ALIAS 素数式8横
SELECT 2
USE D:\素数式裂解\余数表.DBF ALIAS 余数表
SELECT 3
USE D:\素数式裂解\素数表.DBF ALIAS 素数表
SELECT 4
USE D:\素数式裂解\素数式12横42剩.DBF ALIAS 素数式12横剩
kssj=SECONDS()
  DIMENSION ss(8)
  SELECT 1
  For i=1 to 38760
  @ 5,10 say i
    ss(1)=素1
    ss(2)=素2
    ss(3)=素3
    ss(4)=素4
    ss(5)=素5
    ss(6)=素6
    ss(7)=素7
    ss(8)=素8
     && ss(9)=素9
     && ss(10)=素10
     && ss(11)=素11
     && ss(12)=素12
       SELECT 3
       GO 1
       FOR j=1 TO 3 &&在12生素数式时，用到素数11,10生素数式用到素数7就可以了
       SELECT 3
       sss=素数
       SELECT 2
       DELETE ALL
       pack   &&下一步要用到余数表，所以清空它
           FOR k=1 TO 8 &&此循环值到k生素数式中的k值即可
           ys=MOD(ss(k),sss)
           && @ 15,20 say ss(k)，不需要了，原先是想了解ss(k)是否随循环变量而改变，观察用
           SELECT 2
           count all for ys=余数 to js  &&改成余数表中的字段名
                   IF js=0
                   SELECT 2
                   APPEND BLANK
                   REPLACE 余数 WITH ys
                   ENDIF
           ENDFOR
           SELECT 2
           zjl=RECCOUNT()  &&把余数表中的记录条数赋给变量zjl
           IF zjl=sss
           EXIT
           ENDIF
           SELECT 3
           skip
       ENDFOR
       IF j>3  &&与参与素数的个数相关联
       SELECT  4  &&打开盛放素数式的表
       APPEND BLANK     &&增加一条空记录
       REPLACE 素1 WITH ss(1) &&将B值付给素数式
       REPLACE 素2 WITH ss(2) &&将B值付给素数式
       REPLACE 素3 WITH ss(3) &&将B值付给素数式
       REPLACE 素4 WITH ss(4) &&将B值付给素数式
       REPLACE 素5 WITH ss(5) &&将B值付给素数式
       REPLACE 素6 WITH ss(6) &&将B值付给素数式
       REPLACE 素7 WITH ss(7) &&将B值付给素数式
       REPLACE 素8 WITH ss(8) &&将B值付给素数式
        && REPLACE 素9 WITH ss(9) &&将B值付给素数式
        && REPLACE 素10 WITH ss(10) &&将B值付给素数式
        && REPLACE 素11 WITH ss(11) &&将B值付给素数式
        && REPLACE 素12 WITH ss(12) &&将B值付给素数式
       ENDIF
   SELECT 1
   skip
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
没有对比，没有伤害，在编程上比这猫儿画虎还是相当必要的。

白新岭

SELECT 1
USE D:\素数式裂解\素数式7横.DBF ALIAS 素数式7横 &&与需要处理的表名称相对应
SELECT 2
USE D:\素数式裂解\余数表.DBF ALIAS 余数表
SELECT 3
USE D:\素数式裂解\素数表.DBF ALIAS 素数表
SELECT 4
USE D:\素数式裂解\素数式12横42剩.DBF ALIAS 素数式12横剩
kssj=SECONDS()
  DIMENSION ss(7) &&改成本表字段数，即一条记录包含多少个字段
  SELECT 1
  For i=1 to 15504 &&改成本次处理表的记录条数
  @ 5,10 say i
    ss(1)=素1
    ss(2)=素2
    ss(3)=素3
    ss(4)=素4
    ss(5)=素5
    ss(6)=素6
    ss(7)=素7
     && ss(8)=素8
     && ss(9)=素9
     && ss(10)=素10
     && ss(11)=素11
     && ss(12)=素12
       SELECT 3
       GO 1
       FOR j=1 TO 3 &&在12生素数式时，用到素数11,10生素数式用到素数7就可以了
       SELECT 3
       sss=素数
       SELECT 2
       DELETE ALL
       pack   &&下一步要用到余数表，所以清空它
           FOR k=1 TO 7 &&此循环值到k生素数式中的k值即可
           ys=MOD(ss(k),sss)
           && @ 15,20 say ss(k)，不需要了，原先是想了解ss(k)是否随循环变量而改变，观察用
           SELECT 2
           count all for ys=余数 to js  &&改成余数表中的字段名
                   IF js=0
                   SELECT 2
                   APPEND BLANK
                   REPLACE 余数 WITH ys
                   ENDIF
           ENDFOR
           SELECT 2
           zjl=RECCOUNT()  &&把余数表中的记录条数赋给变量zjl
           IF zjl=sss
           EXIT
           ENDIF
           SELECT 3
           skip
       ENDFOR
       IF j>3  &&与参与素数的个数相关联
       SELECT  4  &&打开盛放素数式的表
       APPEND BLANK     &&增加一条空记录
       REPLACE 素1 WITH ss(1) &&将B值付给素数式
       REPLACE 素2 WITH ss(2) &&将B值付给素数式
       REPLACE 素3 WITH ss(3) &&将B值付给素数式
       REPLACE 素4 WITH ss(4) &&将B值付给素数式
       REPLACE 素5 WITH ss(5) &&将B值付给素数式
       REPLACE 素6 WITH ss(6) &&将B值付给素数式
       REPLACE 素7 WITH ss(7) &&将B值付给素数式
        && REPLACE 素8 WITH ss(8) &&将B值付给素数式
        && REPLACE 素9 WITH ss(9) &&将B值付给素数式
        && REPLACE 素10 WITH ss(10) &&将B值付给素数式
        && REPLACE 素11 WITH ss(11) &&将B值付给素数式
        && REPLACE 素12 WITH ss(12) &&将B值付给素数式
       ENDIF
   SELECT 1
   skip
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")