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

白新岭 · 发表于 2023-7-20 23:04

截止2023年07月19日周三23:05分浏览量107555，回复2236，热度153
截止2023年07月20日周四23:04分浏览量107764，回复2238，热度153

白新岭 · 发表于 2023-7-21 20:48

sELECT 1
USE h:\二生素数串\孪串23表.DBF ALIAS 孪串23表
SELECT 2
USE h:\二生素数串\孪串6表.DBF ALIAS 孪串6表
SELECT 3
USE h:\二生素数串\孪串6排列.DBF ALIAS 孪串6排列
kssj=SECONDS()                   &&取出开始时间
   SELECT 2
   GO 1
   FOR k=1 TO 7952170
   &&  @22,20 SAY k
   &&  jlh=recno()&&jlh记录号
   PUBLIC F
         F=串6
   PUBLIC G
         G=记录号6
   IF F=48
      SELECT 1
      GO G
         PUBLIC A
         A=孪串23
         SKIP 1
         PUBLIC B
         B=孪串23
         SKIP 1
         PUBLIC C
         C=孪串23
         SKIP 1
         PUBLIC D
         D=孪串23
         SKIP 1
         PUBLIC E
         E=孪串23
         SKIP 1
         PUBLIC M
         M=孪串23

         SELECT 3             &&打开保存求解结果的信息表
         APPEND BLANK                      &&增加一条空记录
         REPLACE 串6距 WITH 48    &&将被判断值保存到被判断值字段中(被判断值数据栏)
         REPLACE 记录6 WITH G
         REPLACE 元素1 WITH A
         REPLACE 元素2 WITH B
         REPLACE 元素3 WITH C
         REPLACE 元素4 WITH D
         REPLACE 元素5 WITH E
         REPLACE 元素6 WITH M
         ENDIF
      SELECT 2
      skip
      ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2023-7-21 21:31

sELECT 1
USE h:\二生素数串\孪串23表.DBF ALIAS 孪串23表
SELECT 2
USE h:\二生素数串\孪串7表.DBF ALIAS 孪串7表
SELECT 3
USE h:\二生素数串\孪串7排列.DBF ALIAS 孪串7排列
kssj=SECONDS()                   &&取出开始时间
   SELECT 2
   GO 1
   FOR k=1 TO 7952169
   &&  @22,20 SAY k
   &&  jlh=recno()&&jlh记录号
   PUBLIC F
         F=串7
   PUBLIC G
         G=记录号7
   IF F=60
      SELECT 1
      GO G
         PUBLIC A
         A=孪串23
         SKIP 1
         PUBLIC B
         B=孪串23
         SKIP 1
         PUBLIC C
         C=孪串23
         SKIP 1
         PUBLIC D
         D=孪串23
         SKIP 1
         PUBLIC E
         E=孪串23
         SKIP 1
         PUBLIC M
         M=孪串23
         SKIP 1
         PUBLIC N
         N=孪串23

         SELECT 3             &&打开保存求解结果的信息表
         APPEND BLANK                      &&增加一条空记录
         REPLACE 串7距 WITH 60    &&将被判断值保存到被判断值字段中(被判断值数据栏)
         REPLACE 记录7 WITH G
         REPLACE 元素1 WITH A
         REPLACE 元素2 WITH B
         REPLACE 元素3 WITH C
         REPLACE 元素4 WITH D
         REPLACE 元素5 WITH E
         REPLACE 元素6 WITH M
         REPLACE 元素7 WITH N
         ENDIF
      SELECT 2
      skip
      ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独木星空谁 · 发表于 2023-7-21 21:49

截止2023年07月20日周四23:04分浏览量107764，回复2238，热度153
截止2023年07月21日周五21:49分浏览量107919，回复2241，热度153

白新岭 · 发表于 2023-7-22 22:06

截止2023年07月21日周五21:49分浏览量107919，回复2241，热度153
截止2023年07月22日周六22:08分浏览量108207，回复2242，热度153

独舟星海 · 发表于 2023-7-23 15:57

截止2023年07月22日周六22:08分浏览量108207，回复2242，热度153
截止2023年07月23日周日15:57分浏览量108328，回复2243，热度153

白新岭 · 发表于 2023-7-23 22:39

截止2023年07月22日周六22:08分浏览量108207，回复2242，热度153
截止2023年07月23日周日22:42分浏览量108402，回复2244，热度153

白新岭 · 发表于 2023-7-24 21:45

截止2023年07月23日周日22:42分浏览量108402，回复2244，热度153
截止2023年07月24日周一21:45分浏览量108642，回复2245，热度153

白新岭 · 发表于 2023-7-25 22:21

截止2023年07月24日周一21:45分浏览量108642，回复2245，热度153
截止2023年07月25日周二22:21分浏览量108890，回复2246，热度153

独木星空谁 · 发表于 2023-7-25 22:23

截止2023年07月24日周一21:45分浏览量108642，回复2245，热度153
截止2023年07月25日周二22:23分浏览量108890，回复2247，热度154

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