| 
 | 
 1 
USE D:\三角递增法\四生素数表中.DBF ALIAS 四中表 
SELECT 2 
USE D:\三角递增法\四生素数表中分层.DBF ALIAS 四中表分层 
kssj=SECONDS()  
 SELECT  1 
 GO 1 
 For i=1 to 102949 
      @ 5,12 say i 
    SELECT  1     
    && jl=recno() 
    PUBLIC A 
    A=四中 
    B=INT(A/210) 
    C=MOD(A,210) 
         SELECT 2 
         APPEND BLANK      
         REPLACE 整数 WITH B  
         REPLACE 余数 WITH C 
   SELECT 1 
   skip 
   ENDFOR 
    =MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示") 
制作四生素数中项的分身 |   
 
 
 
 |