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

白新岭 · 发表于 2022-12-22 21:18

截止2022年12月21日周三22:37分浏览量82872，回复1913，热度119度
截止2022年12月22日周四21:18分浏览量83009，回复1914，热度119度

白新岭 · 发表于 2022-12-23 16:32

截止2022年12月22日周四21:18分浏览量83009，回复1914，热度119度
截止2022年12月23日周五16:33分浏览量83081，回复1915，热度119度

白新岭 · 发表于 2022-12-23 20:43

截止2022年12月22日周四21:18分浏览量83009，回复1914，热度119度
截止2022年12月23日周五20:44分浏览量83098，回复1916，热度119度

白新岭 · 发表于 2022-12-23 22:08

截止2022年12月22日周四21:18分浏览量83009，回复1914，热度119度
截止2022年12月23日周五22:09分浏览量83101，回复1917，热度119度

白新岭 · 发表于 2022-12-24 22:08

截止2022年12月23日周五22:09分浏览量83101，回复1917，热度119度
截止2022年12月24日周六22:09分浏览量83198，回复1918，热度119度

白新岭 · 发表于 2022-12-25 16:13

SELECT 1
USE d:\二次等差素数数列\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=15.640625000000000000
SELECT 1
  GO 7
  A=素数
  s=s*A*(A-11)/(A-3)/(A-8)
  SKIP 1
      FOR  j=1 TO 50876310
      SELECT 1
      B=素数
      s=s*B*(B-11)/(B-3)/(B-8)
      SELECT 1
      SKIP
      ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

白新岭 · 发表于 2022-12-25 21:41

截止2022年12月24日周六22:09分浏览量83198，回复1918，热度119度
截止2022年12月25日周日21:41分浏览量83296，回复1920，热度119度

白新岭 · 发表于 2022-12-26 10:56

截止2022年12月25日周日21:41分浏览量83296，回复1920，热度119度
截止2022年12月26日周一10:56分浏览量83316，回复1921，热度119度

白新岭 · 发表于 2022-12-26 22:33

截止2022年12月25日周日21:41分浏览量83296，回复1920，热度119度
截止2022年12月26日周一22:32分浏览量83339，回复1922，热度119度

白新岭 · 发表于 2022-12-27 22:51

截止2022年12月26日周一22:32分浏览量83339，回复1922，热度119度
截止2022年12月27日周二22:50分浏览量83407，回复1923，热度119度

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