用87楼的，1亿个，用55秒。。。
生成1个54.2 MB的文件

cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)
DECLARE LONG CreatePrime IN Prime LONG,LONG,STRING@
t = SECONDS()
CreatePrime(1, 10000000, cDefPath+"Prime1.txt")
? SECONDS()-t  && 7.953s 文本文件prime1 5.61MB
t = SECONDS()
CreatePrime(10000001, 40000000, cDefPath+"Prime2.txt")
? SECONDS()-t  && 50.209s  文本文件prime2  16.8MB
这次在电脑上运行时间与吹水佬版主的相当，再次谢谢吹水佬版主！

cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)
DECLARE LONG CreatePrime IN Prime LONG,LONG,STRING@
t = SECONDS()
CreatePrime(40000001, 70000000, cDefPath+"Prime3.txt")
? SECONDS()-t  && 72.825s Prime3 16.0MB
t = SECONDS()
CreatePrime(70000001, 100000000, cDefPath+"Prime4.txt")
? SECONDS()-t  && 89.604s Prime4 15.6MB
分段计算了两部分，用时都较少。
吹水佬版主

希望得到共享。把用数组的方法代替主循环体（不在用数据a和数据b两个表）。

谢谢分享！

[此贴子已经被作者于2021-9-18 13:30编辑过]

cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)
DECLARE LONG CreatePrime IN Prime LONG,LONG,STRING@
t = SECONDS()
CreatePrime(2000000001, 2040000000, cDefPath+"Prime68.txt")
? SECONDS()-t  && 72.825s Prime3 16.0MB
t = SECONDS()
CreatePrime(2040000001, 2070000000, cDefPath+"Prime69.txt")
? SECONDS()-t  && 89.604s Prime4 15.6MB
t = SECONDS()
CreatePrime(2070000001, 2100000000, cDefPath+"Prime70.txt")
? SECONDS()-t  && 72.825s Prime3 16.0MB
t = SECONDS()
CreatePrime(2100000001, 2130000000, cDefPath+"Prime71.txt")
? SECONDS()-t  && 89.604s Prime4 15.6MB
t = SECONDS()
CreatePrime(2130000001, 2160000000, cDefPath+"Prime72.txt")
? SECONDS()-t  && 72.825s Prime3 16.0MB
t = SECONDS()
CreatePrime(2160000001, 2190000000, cDefPath+"Prime73.txt")
? SECONDS()-t  && 89.604s Prime4 15.6MB
t = SECONDS()
CreatePrime(2190000001, 2220000000, cDefPath+"Prime74.txt")
? SECONDS()-t  && 72.825s Prime3 16.0MB
t = SECONDS()
CreatePrime(2220000001, 2250000000, cDefPath+"Prime75.txt")
? SECONDS()-t  && 89.604s Prime4 15.6MB
t = SECONDS()
CreatePrime(2250000001, 2280000000, cDefPath+"Prime76.txt")
? SECONDS()-t  && 72.825s Prime3 16.0MB
t = SECONDS()
CreatePrime(2280000001, 2310000000, cDefPath+"Prime77.txt")
? SECONDS()-t  && 89.604s Prime4 15.6MB
t = SECONDS()
CreatePrime(2310000001, 2340000000, cDefPath+"Prime78.txt")
? SECONDS()-t  && 89.604s Prime4 15.6MB
计算到"Prime72.txt"时出错，前多半部为正数，截止2147483647；随后变成了负数，-2147483637（紧接着它的绝对值变小），到后来的表的数值绝对值一直减小，大有往回返的程度。因为突然停电，不知何种原因造成，"Prime76.txt"已有，只有后两个没有运算完，没有存储。

[此贴子已经被作者于2021-9-19 18:11编辑过]

VFP整数是有符号的
整数的最小值 -2,147,483,647
整数的最大值 2,147,483,647
我试改改那个DLL直接返回无符号，VFP就不用转换。

输出无符号整数

只能算到最大素数0xFFFFFFEF
CreatePrime(0xFFFFFFE1, 0xFFFFFFFF, cDefPath+"Prime1.txt")

谢谢！吹水佬版主。试运行了一下，由于突然停电，只保存一个文件，打开看了一下，是正整数（素数）。

在中秋佳节之日，再次谢谢吹版主的辛勤劳作！