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

白新岭 · 发表于 2025-7-4 11:08

SELECT 1
USE d:\最密四生素数文件\四中和值4复中没有的.DBF ALIAS 四中和复4没有
SELECT 2
USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计

kssj=SECONDS()
FOR i=1 TO 46
   @ 3,6 say i
      fw=i*19399380+1338557220
      SELECT 1
      COUNT ALL FOR szhz4<fw TO tj
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE 区间 WITH i+69
      REPLACE 范围 WITH fw
      REPLACE 总量 WITH tj
ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-7-4 11:32

SELECT 1
USE d:\最密四生素数文件\四中和值6复中没有的.DBF ALIAS 四中和复6没有
SELECT 2
USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计

kssj=SECONDS()
FOR i=1 TO 46
   @ 3,6 say i
      fw=i*19399380+2230928700
      SELECT 1
      COUNT ALL FOR szhz6<fw TO tj
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE 区间 WITH i+115
      REPLACE 范围 WITH fw
      REPLACE 总量 WITH tj
ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-7-4 17:19

SELECT 1
USE d:\最密四生素数文件\四中和值8复中没有的.DBF ALIAS 四中和复8没有
SELECT 2
USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计

kssj=SECONDS()
FOR i=1 TO 46
   @ 3,6 say i
      fw=i*19399380+3123300180
      SELECT 1
      COUNT ALL FOR szhz8<fw TO tj
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE 区间 WITH i+161
      REPLACE 范围 WITH fw
      REPLACE 总量 WITH tj
ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-7-4 17:33

SELECT 1
USE d:\最密四生素数文件\四中和值10复中没有的.DBF ALIAS 四中和复10没有
SELECT 2
USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计

kssj=SECONDS()
FOR i=1 TO 46
   @ 3,6 say i
      fw=i*19399380+4015671660
      SELECT 1
      COUNT ALL FOR szhz10<fw TO tj
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE 区间 WITH i+207
      REPLACE 范围 WITH fw
      REPLACE 总量 WITH tj
ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-7-4 17:42

SELECT 1
USE d:\最密四生素数文件\四中和值12复中没有的.DBF ALIAS 四中和复12没有
SELECT 2
USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计

kssj=SECONDS()
FOR i=1 TO 46
   @ 3,6 say i
      fw=i*19399380+4908043140
      SELECT 1
      COUNT ALL FOR szhz12<fw TO tj
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE 区间 WITH i+253
      REPLACE 范围 WITH fw
      REPLACE 总量 WITH tj
ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-7-4 17:50

SELECT 1
USE d:\最密四生素数文件\四中和值14复中没有的.DBF ALIAS 四中和复14没有
SELECT 2
USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计

kssj=SECONDS()
FOR i=1 TO 46
   @ 3,6 say i
      fw=i*19399380+5800414620
      SELECT 1
      COUNT ALL FOR szhz14<fw TO tj
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE 区间 WITH i+299
      REPLACE 范围 WITH fw
      REPLACE 总量 WITH tj
ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-7-4 18:02

SELECT 1
USE d:\最密四生素数文件\四中和值16复中没有的.DBF ALIAS 四中和复16没有
SELECT 2
USE d:\最密四生素数文件\四中特例统计.DBF ALIAS 四中特例统计

kssj=SECONDS()
FOR i=1 TO 46
   @ 3,6 say i
      fw=i*19399380+6692786100
      SELECT 1
      COUNT ALL FOR szhz16<fw TO tj
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE 区间 WITH i+345
      REPLACE 范围 WITH fw
      REPLACE 总量 WITH tj
ENDFOR
   =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2025-7-4 23:03

截止2025年07月03日周四21:18分浏览量810481，回复3887，热度282
截止2025年07月04日周五23:03分浏览量813836，回复3897，热度282

白新岭 · 发表于 2025-7-5 09:53

截止2025年07月04日周五23:03分浏览量813836，回复3897，热度282
截止2025年07月05日周六09:52分浏览量814684，回复3898，热度282

白新岭 · 发表于 2025-7-5 10:43

SELECT 1
   USE d:\最密四生素数文件\四中和值2复中没有的.DBF ALIAS 四中和复没有
   kssj=SECONDS()
   SELECT 1
   GO 1
   FOR i=1 TO 511250
   @ 3,6 say i
   jl=recno()
   PUBLIC A
   A=szhz2f
   s=MOD(A,210)
   SELECT 1
   REPLACE mod210 WITH s
   GO jl+1
   ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

		自动登录	找回密码
密码			注册