素数问题的解决是我学习编程永恒的动力。
sELECT 1
USE h:\二生素数串\孪串23表.DBF ALIAS 孪串23表
SELECT 2
USE h:\二生素数串\孪串5表.DBF ALIAS 孪串5表
SELECT 3
USE h:\二生素数串\孪串5排列.DBF ALIAS 孪串5排列
kssj=SECONDS() &&取出开始时间
SELECT 2
GO 1
FOR k=1 TO 7952171
&& @22,20 SAY k
&& jlh=recno()&&jlh记录号
PUBLIC F
F=串5
PUBLIC G
G=记录号5
IF F=36
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
SELECT 3 &&打开保存求解结果的信息表
APPEND BLANK &&增加一条空记录
REPLACE 串5距 WITH 36 &&将被判断值保存到被判断值字段中(被判断值数据栏)
REPLACE 记录5 WITH G
REPLACE 元素1 WITH A
REPLACE 元素2 WITH B
REPLACE 元素3 WITH C
REPLACE 元素4 WITH D
REPLACE 元素5 WITH E
ENDIF
SELECT 2
skip
ENDFOR
=MESSAGEBOX("运行时间:"+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
利用基表摘抄素数式段落,我只把这里做为一个储存器。