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

白新岭

截止2025年07月10日周四22:28分浏览量827698， 回复3919，热度285
截止2025年07月11日周五09:18分浏览量828286， 回复3920，热度285

白新岭

截止2025年07月10日周四22:28分浏览量827698， 回复3919，热度285
截止2025年07月11日周五15:39分浏览量830232， 回复3921，热度285

白新岭

截止2025年07月10日周四22:28分浏览量827698， 回复3919，热度285
截止2025年07月11日周五21:19分浏览量830720， 回复3922，热度285

白新岭

截止2025年07月11日周五21:19分浏览量830720， 回复3922，热度285
截止2025年07月12日周六09:14分浏览量832600， 回复3923，热度285

白新岭

SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=2.250000000000000000
SELECT 1
  GO 3
  A=素数
  s=s*(A^2*(A-3)/(A-1)^3)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^2*(B-3)/(B-1)^3)
        SELECT 1  
        SKIP
        ENDFOR

?s
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
求最密3生素数的系数

白新岭

SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 3
  A=素数
  s=s*(A^3*(A-4)/(A-1)^4)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^3*(B-4)/(B-1)^4)
        SELECT 1  
        SKIP
        ENDFOR

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

白新岭

SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 4
  A=素数
  s=s*(A^4*(A-5)/(A-1)^5)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^4*(B-5)/(B-1)^5)
        SELECT 1  
        SKIP
        ENDFOR

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

白新岭

SELECT 1
USE D:\最密三生素数文件\素数表.dbf ALIAS 素数表
kssj=SECONDS()  &&取出开始时间
s=1.000000000000000000
SELECT 1
  GO 4
  A=素数
  s=s*(A^5*(A-6)/(A-1)^6)
        SKIP 1
        FOR  j=1 TO 50876228
        SELECT 1
        B=素数
        s=s*(B^5*(B-6)/(B-1)^6)
        SELECT 1  
        SKIP
        ENDFOR

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

白新岭

截止2025年07月11日周五21:19分浏览量830720， 回复3922，热度285
截止2025年07月12日周六22:10分浏览量833650， 回复3928，热度285

白新岭

截止2025年07月12日周六22:10分浏览量833650， 回复3928，热度285
截止2025年07月13日周日10:19分浏览量834941， 回复3929，热度285