CLEAR
SELECT 1
USE D:\vfp温习\素数式至17表.DBF ALIAS 素数式表
SELECT 2
USE D:\vfp温习\素数表万3.DBF ALIAS 素数表万3
SELECT 3
USE D:\vfp温习\素数表亿新.DBF ALIAS 素数表亿新 &&当时仅改变了别名，没有改原名，在素数表亿新后增加了198-200周期素数，改正，并去掉了后续素数
*INPUT "请输入预先值 K= " TO yxk
*INPUT "请输入步长值 bcz= " TO bcz
*INPUT "请输入初始值 csz= " TO csz
*INPUT "请输入外循环起始值 xks= " TO xks
*INPUT "请输入外循环终结值 zds= " TO zds
bcz=510510
&&从2乘到17，即素数17的素数阶乘
kssj=SECONDS()
&&取出开始时间
FOR i=198 TO 200
@12,10 SAY i
&&调了下顺序，原来在FOR j=1 TO 92160 的下边，执行第一个外循环，提示已经到了表尾
FOR j=1 TO 92160
SELECT 1
GO j
sss=素数式
bpz=sss+(i-1)*bcz
&&计算被判断值
Kf=INT(SQRT(bpz))
&&求出被判断值的开方根
SELECT 2
GO 1
COUNT ALL FOR 素数<=kf TO jlh
&&借用原来的记录号，实际上统计kf以前的素数个数
&& jlh=RECNO()
SELECT 2
GO 7
&&从第二条记录开始读取素数(3)
FOR k=1 TO jlh-6
&&内循环开始。这个循环实质上是从小到大顺序,依次读取素数。循环值是记录序号
qmz=MOD(bpz,素数)
&&以读取的素数为条件,对被判断值求模
IF qmz=0 && OR qmz=2 OR qmz=6 OR qmz=8
如果符合这四个约定条件之一,就进行相应工作.如果一个也没有符合条件的,直接使记录指针向下移动一个(SKIP)
EXIT
&&因为符合条件,则做完相应工作后跳出内循环
ENDIF
SKIP
&&素数表指针向下移动一个
ENDFOR
IF k>jlh-6
SELECT 3
&&打开保存求解结果的信息表
APPEND BLANK
&&增加一条空记录
REPLACE 素数 WITH bpz && 把bpz赋给素数
ENDIF
ENDFOR
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")
这是一个制作素数表程序，也用到数据源表（素数式至17表→即用素数2,3,5,7,11,13,17这7个素数处理过的数据，每一层外循环数值增加值是510510（2*3*5*7*11*13*17），中层循环为92160（2*4*6*10*12*16），最；里层循环次数不定，有被判断值的开方值前素数个数确定最大循环次数，合数循环次数都小于最大循环次数，只有质数才是满循环），只不过，这个程序是一个一个的判断，排除，筛选。
而本帖要求一次性调入92160个数据（即中循环次数），在主要循环体中，是每次都得全部未完成，并不退出循环（循环次数以最大次数为准（不考虑那一批次中最小值的循环次数））。
一个程序是一个一个的处理，一个程序是一批一批的处理，这是问题的关键。（再就是处理过程中进行速度会加快，因为每循环一次被判断的数量只减不增）。
2021-09-14 09:51
