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

白新岭

今天Vfp运行结果。

白新岭

USE 素数表十亿 AGAIN IN 0
SELECT 素数表十亿
BROWSE LAST
GO bottom
COUNT ALL FOR 素数<1000000000 TO tj
?tj
USE
SELECT 孪中十亿
BROWSE LAST
USE
MODIFY COMMAND h:\素数式系数\搜寻四三连体9030.prg AS 936
DO h:\素数式系数\用素数表制作孪中.prg
SELECT 孪中表
BROWSE LAST
SUM ALL 孪中 TO qh for 素数<10000
SUM ALL 孪中 TO qh for 孪中<10000
?qh
SUM ALL 孪中 TO qh for 孪中<100000
?qh
SUM ALL 孪中 TO qh for 孪中<100000
?qh
SUM ALL 孪中 TO qh for 孪中<1000000
?qh
SUM ALL 孪中 TO qh for 孪中<10000000
?qh
SUM ALL 孪中 TO qh for 孪中<1000
?qh
SUM ALL 孪中 TO qh for 孪中<100
?qh
USE
SELECT 素数表
BROWSE LAST
GO 1
COUNT ALL FOR 素数<100 TO tj
?tj
COUNT ALL FOR 素数<1000 TO tj
?tj
COUNT ALL FOR 素数<10000 TO tj
?tj
COUNT ALL FOR 素数<100000 TO tj
?tj
COUNT ALL FOR 素数<1000000 TO tj
?tj
COUNT ALL FOR 素数<10000000 TO tj
?tj
COUNT ALL FOR 素数<100000000 TO tj
?tj
USE
USE 孪中十亿 AGAIN IN 0
SELECT 孪中十亿
BROWSE LAST
SUM ALL 孪中 TO qh for 孪中<100000000
?qh
MODIFY COMMAND h:\素数式系数\用素数表制作孪中.prg AS 936

白新岭

截止2023年07月07日周五23:00分浏览量105301，回复2194，热度150
截止2023年07月08日周六22:43分浏览量105424，回复2200，热度150

白新岭

截止2023年07月08日周六22:43分浏览量105424，回复2200，热度150
截止2023年07月09日周日19:16分浏览量105539，回复2201，热度150

独木星空谁

截止2023年07月08日周六22:43分浏览量105424，回复2200，热度150
截止2023年07月09日周日19:25分浏览量105541，回复2202，热度151

独舟星海

截止2023年07月08日周六22:43分浏览量105424，回复2200，热度150
截止2023年07月09日周日19:27分浏览量105542，回复2203，热度152

白新岭

截止2023年07月08日周六22:43分浏览量105424，回复2200，热度150
截止2023年07月09日周日19:34分浏览量105544，回复2204，热度153

白新岭

截止2023年07月08日周六22:43分浏览量105424，回复2200，热度150
截止2023年07月09日周日22:39分浏览量105556，回复2205，热度153

白新岭

截止2023年07月09日周日22:39分浏览量105556，回复2205，热度153
截止2023年07月10日周一22:44分浏览量105709，回复2206，热度153

独木星空谁

截止2023年07月10日周一22:44分浏览量105709，回复2206，热度153
截止2023年07月11日周二15:05分浏览量105827，回复2207，热度153