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

白新岭

截止2025年05月21日周三22:30分浏览量707130， 回复3638，热度276
截止2025年05月22日周四17:16分浏览量708392， 回复3640，热度276

白新岭

截止2025年05月21日周三22:30分浏览量707130， 回复3638，热度276
截止2025年05月22日周四23:10分浏览量708906， 回复3641，热度276

白新岭

截止2025年05月22日周四23:10分浏览量708906， 回复3641，热度276
截止2025年05月23日周五08:40分浏览量708918， 回复3642，热度276

白新岭

截止2025年05月22日周四23:10分浏览量708906， 回复3641，热度276
截止2025年05月23日周五23:40分浏览量710953， 回复3643，热度276

白新岭

截止2025年05月23日周五23:40分浏览量710953， 回复3643，热度276
截止2025年05月24日周六08:44分浏览量711570， 回复3644，热度276

白新岭

SELECT 1
USE d:\三生素数中项\三中和统计表.DBF ALIAS 三中和统计
kssj=SECONDS()
FOR i=1 TO 999999
   @ 3,6 say i
      FOR j=1  TO 3
         m=30*i+(j-1)*6-2
         SELECT  1  
         APPEND BLANK   
         REPLACE szhh WITH m
         REPLACE tj2 WITH 0
     ENDFOR
ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
给三中和置数（即把最密三中项的和（两个三中项相加得到的结果，预先放置在一个表上））

白新岭

3*INT((A2+2)/30-1)+MOD(A2+2,30)/6+1
把A2换成中项之和，go 上式值（记录号），在tj2+1
就ok了。

白新岭

设两层嵌套循环，内循环从第一条记录加到最后一条，每次都是，外循环从第一条记录，每循环一次（外循环）取一个值，并且记录当前指针位置，再循环时，记录指针往下移动一个。

白新岭

SELECT 1
USE d:\三生素数中项\正最密三生素数中项.DBF ALIAS 正三中项
SELECT 2
USE d:\三生素数中项\三中和统计表.DBF ALIAS 三中和统计
kssj=SECONDS()
SELECT 1
GO 1 &&定位在第一个参与运算值上
FOR i=1 TO 258
   @ 3,6 say i
   jl=recno()
   PUBLIC A
   A=三中
      SELECT 1
      GO 1
      FOR j=1  TO 8542
      PUBLIC B
      B=三中
      n=A+B
      SELECT  2
      GO   3*INT((n+2)/30-1)+MOD(n+2,30)/6+1
      REPLACE tj2 WITH tj2+1
      SELECT 1
      skip
      ENDFOR
      
      SELECT 1
      GO jl+1
ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是把最密3生素数中项的和分配到其合成值上的vfp程序。

白新岭

截止2025年05月23日周五23:40分浏览量710953， 回复3643，热度276
截止2025年05月24日周六22:58分浏览量714108， 回复3649，热度276