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

白新岭 · 发表于 2023-9-14 00:11

分享vfp运算结果

白新岭 · 发表于 2023-9-14 00:12

继续分享

白新岭 · 发表于 2023-9-14 15:21

截止2023年09月13日周三23:40分浏览量116623，回复2365，热度165
截止2023年09月14日周四15:20分浏览量116715，回复2370，热度165
刚才蓝屏了，蓝屏有恢复之意。浏览量有原来的116714变成了116715引起注意。

独木星空谁 · 发表于 2023-9-14 21:37

截止2023年09月13日周三23:40分浏览量116623，回复2365，热度165
截止2023年09月14日周四21:36分浏览量116756，回复2371，热度165

白新岭 · 发表于 2023-9-15 21:24

SELECT 1
USE H:\三生素数中项合成\素数表十亿.DBF ALIAS 素表
SELECT 2
USE H:\三生素数中项合成\逆三生素数表.DBF ALIAS 三素表
kssj=SECONDS()
For i=1 to 50876324
   @ 5,12 say i
SELECT  1    &&打开盛放素数式的表
jl=recno()
PUBLIC A
A=素数
SKIP 1
PUBLIC B
B=素数
cj=B-A
SKIP 1
PUBLIC C
C=素数
cj1=C-B
IF cj=4 AND cj1=2
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE 逆三中 WITH A+3       &&将N值付给素数式
ENDIF
   SELECT 1
   GO jl+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2023-9-15 22:32

筛选逆最密3生素数的中项用时超过了32分钟。

白新岭 · 发表于 2023-9-16 11:26

截止2023年09月14日周四21:36分浏览量116756，回复2371，热度165
截止2023年09月16日周六11:25分浏览量117067，回复2374，热度165

白新岭 · 发表于 2023-9-16 23:16

截止2023年09月14日周四21:36分浏览量116756，回复2371，热度165
截止2023年09月16日周六23:15分浏览量117140，回复2375，热度165

白新岭 · 发表于 2023-9-17 10:12

截止2023年09月16日周六23:15分浏览量117140，回复2375，热度165
截止2023年09月17日周日10:11分浏览量117263，回复2376，热度165

独舟星海 · 发表于 2023-9-17 22:51

截止2023年09月16日周六23:15分浏览量117140，回复2375，热度165
截止2023年09月17日周日22:57分浏览量117377，回复2377，热度165

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

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

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源