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

独木星空谁 · 发表于 2021-11-9 22:20

CLOSE DATA
USE G:\三角递增法\无偶数表总表.dbf && 设源表的名称为"表1"
P=''
FOR K=1 TO FCOUNT()
P=P+IIF(EMPTY(P),'',',')+FIELDS(K)&& 取得表中所有字段名称,放在P中
ENDFOR

SELECT *,COUNT(FIELDS(1)) AS 相同记录数 FROM DBF() GROUP BY &P. INTO DBF G:\三角递增法\相同记录数表总6 && 取得各记录的相同记录数及其各字段值
SELECT * FROM DBF() WHERE 相同记录数>1 && 该查询结果详细列举了表1中各重复记录的重复数
USE IN 相同记录数表总6

独木星空谁 · 发表于 2021-11-9 22:21

SELECT 1
USE G:\三角递增法\相同记录数表总6.DBF ALIAS 相同记录表6
SELECT 2
USE G:\三角递增法\无偶最终结果表新总6.DBF ALIAS 无偶结果表新6
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 971613
   @ 5,12 say i
SELECT  1    &&打开盛放素数式的表
&& jl=recno()
PUBLIC A
A=相同记录数
B=无偶
IF A=2
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE 无偶 WITH B    &&将N值付给素数式
ENDIF

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

独木星空谁 · 发表于 2021-11-9 22:21

SELECT 1
USE G:\三角递增法\无偶最终结果表新总6.DBF ALIAS 无偶总新6
SELECT 2
USE G:\三角递增法\无偶数统计表.DBF ALIAS 无偶统计
kssj=SECONDS()
SELECT 1
   For j=1786 to 2142
   @ 3,6 say j
   fw=j*1000000
         SELECT 1
         GO 1
         COUNT ALL FOR 无偶<=fw TO tj
            SELECT  2
            APPEND BLANK
            REPLACE 范围 WITH fw
            REPLACE 统计 WITH tj
   ENDFOR

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

独木星空谁 · 发表于 2021-11-9 22:22

区段范围统计各段个数
1786 1786000000 2 2
1787 1787000000 3 1
1788 1788000000 4 1
1789 1789000000 4 0
1790 1790000000 7 3
1791 1791000000 8 1
1792 1792000000 9 1
1793 1793000000 11 2
1794 1794000000 11 0
1795 1795000000 12 1
1796 1796000000 13 1
1797 1797000000 15 2
1798 1798000000 19 4
1799 1799000000 21 2
1800 1800000000 23 2
1801 1801000000 26 3
1802 1802000000 27 1
1803 1803000000 29 2
1804 1804000000 32 3
1805 1805000000 36 4
1806 1806000000 36 0
1807 1807000000 38 2
1808 1808000000 38 0
1809 1809000000 42 4
1810 1810000000 43 1
1811 1811000000 44 1
1812 1812000000 47 3
1813 1813000000 49 2
1814 1814000000 51 2
1815 1815000000 56 5
1816 1816000000 62 6
1817 1817000000 63 1
1818 1818000000 65 2
1819 1819000000 67 2
1820 1820000000 67 0
1821 1821000000 69 2
1822 1822000000 70 1
1823 1823000000 72 2
1824 1824000000 72 0
1825 1825000000 74 2
1826 1826000000 77 3
1827 1827000000 78 1
1828 1828000000 81 3
1829 1829000000 81 0
1830 1830000000 82 1
1831 1831000000 82 0
1832 1832000000 85 3
1833 1833000000 88 3
1834 1834000000 90 2
1835 1835000000 90 0
1836 1836000000 93 3
1837 1837000000 95 2
1838 1838000000 97 2
1839 1839000000 98 1
1840 1840000000 100 2
1841 1841000000 102 2
1842 1842000000 103 1
1843 1843000000 106 3
1844 1844000000 107 1
1845 1845000000 109 2
1846 1846000000 109 0
1847 1847000000 109 0
1848 1848000000 109 0
1849 1849000000 112 3
1850 1850000000 114 2
1851 1851000000 115 1
1852 1852000000 117 2
1853 1853000000 122 5
1854 1854000000 125 3
1855 1855000000 128 3
1856 1856000000 129 1
1857 1857000000 130 1
1858 1858000000 131 1
1859 1859000000 133 2
1860 1860000000 133 0
1861 1861000000 134 1
1862 1862000000 134 0
1863 1863000000 134 0
1864 1864000000 134 0
1865 1865000000 137 3
1866 1866000000 138 1
1867 1867000000 139 1
1868 1868000000 139 0
1869 1869000000 139 0
1870 1870000000 142 3
1871 1871000000 143 1
1872 1872000000 144 1
1873 1873000000 144 0
1874 1874000000 147 3
1875 1875000000 149 2
1876 1876000000 150 1
1877 1877000000 150 0
1878 1878000000 151 1
1879 1879000000 153 2
1880 1880000000 154 1
1881 1881000000 156 2
1882 1882000000 160 4
1883 1883000000 161 1
1884 1884000000 162 1
1885 1885000000 165 3
1886 1886000000 166 1
1887 1887000000 167 1
1888 1888000000 168 1
1889 1889000000 171 3
1890 1890000000 171 0
1891 1891000000 172 1
1892 1892000000 172 0
1893 1893000000 174 2
1894 1894000000 174 0
1895 1895000000 175 1
1896 1896000000 176 1
1897 1897000000 178 2
1898 1898000000 180 2
1899 1899000000 182 2
1900 1900000000 182 0
1901 1901000000 183 1
1902 1902000000 185 2
1903 1903000000 186 1
1904 1904000000 187 1
1905 1905000000 187 0
1906 1906000000 189 2
1907 1907000000 190 1
1908 1908000000 190 0
1909 1909000000 192 2
1910 1910000000 194 2
1911 1911000000 196 2
1912 1912000000 197 1
1913 1913000000 199 2
1914 1914000000 199 0
1915 1915000000 201 2
1916 1916000000 202 1
1917 1917000000 203 1
1918 1918000000 204 1
1919 1919000000 205 1
1920 1920000000 205 0
1921 1921000000 207 2
1922 1922000000 210 3
1923 1923000000 212 2
1924 1924000000 212 0
1925 1925000000 214 2
1926 1926000000 214 0
1927 1927000000 215 1
1928 1928000000 215 0
1929 1929000000 215 0
1930 1930000000 217 2
1931 1931000000 218 1
1932 1932000000 219 1
1933 1933000000 222 3
1934 1934000000 222 0
1935 1935000000 224 2
1936 1936000000 224 0
1937 1937000000 224 0
1938 1938000000 224 0
1939 1939000000 224 0
1940 1940000000 224 0
1941 1941000000 226 2
1942 1942000000 227 1
1943 1943000000 229 2
1944 1944000000 230 1
1945 1945000000 231 1
1946 1946000000 233 2
1947 1947000000 234 1
1948 1948000000 236 2
1949 1949000000 237 1
1950 1950000000 238 1
1951 1951000000 241 3
1952 1952000000 242 1
1953 1953000000 245 3
1954 1954000000 248 3
1955 1955000000 249 1
1956 1956000000 250 1
1957 1957000000 252 2
1958 1958000000 254 2
1959 1959000000 256 2
1960 1960000000 257 1
1961 1961000000 259 2
1962 1962000000 259 0
1963 1963000000 259 0
1964 1964000000 260 1
1965 1965000000 262 2
1966 1966000000 263 1
1967 1967000000 264 1
1968 1968000000 265 1
1969 1969000000 265 0
1970 1970000000 266 1
1971 1971000000 266 0
1972 1972000000 266 0
1973 1973000000 266 0
1974 1974000000 267 1
1975 1975000000 268 1
1976 1976000000 268 0
1977 1977000000 269 1
1978 1978000000 270 1
1979 1979000000 271 1
1980 1980000000 271 0
1981 1981000000 272 1
1982 1982000000 272 0
1983 1983000000 276 4
1984 1984000000 277 1
1985 1985000000 278 1
1986 1986000000 278 0
1987 1987000000 281 3
1988 1988000000 282 1
1989 1989000000 284 2
1990 1990000000 284 0
1991 1991000000 285 1
1992 1992000000 286 1
1993 1993000000 287 1
1994 1994000000 289 2
1995 1995000000 289 0
1996 1996000000 291 2
1997 1997000000 291 0
1998 1998000000 292 1
1999 1999000000 294 2
2000 2000000000 296 2
2001 2001000000 297 1
2002 2002000000 298 1
2003 2003000000 299 1
2004 2004000000 300 1
2005 2005000000 301 1
2006 2006000000 303 2
2007 2007000000 303 0
2008 2008000000 305 2
2009 2009000000 305 0
2010 2010000000 305 0
2011 2011000000 306 1
2012 2012000000 306 0
2013 2013000000 306 0
2014 2014000000 307 1
2015 2015000000 310 3
2016 2016000000 310 0
2017 2017000000 311 1
2018 2018000000 313 2
2019 2019000000 313 0
2020 2020000000 313 0
2021 2021000000 314 1
2022 2022000000 315 1
2023 2023000000 317 2
2024 2024000000 317 0
2025 2025000000 319 2
2026 2026000000 319 0
2027 2027000000 319 0
2028 2028000000 319 0
2029 2029000000 321 2
2030 2030000000 321 0
2031 2031000000 322 1
2032 2032000000 322 0
2033 2033000000 322 0
2034 2034000000 323 1
2035 2035000000 323 0
2036 2036000000 324 1
2037 2037000000 326 2
2038 2038000000 330 4
2039 2039000000 330 0
2040 2040000000 331 1
2041 2041000000 332 1
2042 2042000000 332 0
2043 2043000000 332 0
2044 2044000000 332 0
2045 2045000000 332 0
2046 2046000000 333 1
2047 2047000000 333 0
2048 2048000000 335 2
2049 2049000000 336 1
2050 2050000000 336 0
2051 2051000000 337 1
2052 2052000000 340 3
2053 2053000000 343 3
2054 2054000000 345 2
2055 2055000000 347 2
2056 2056000000 349 2
2057 2057000000 349 0
2058 2058000000 349 0
2059 2059000000 351 2
2060 2060000000 354 3
2061 2061000000 356 2
2062 2062000000 357 1
2063 2063000000 358 1
2064 2064000000 358 0
2065 2065000000 360 2
2066 2066000000 362 2
2067 2067000000 362 0
2068 2068000000 362 0
2069 2069000000 364 2
2070 2070000000 364 0
2071 2071000000 364 0
2072 2072000000 364 0
2073 2073000000 365 1
2074 2074000000 366 1
2075 2075000000 367 1
2076 2076000000 369 2
2077 2077000000 370 1
2078 2078000000 372 2
2079 2079000000 373 1
2080 2080000000 373 0
2081 2081000000 373 0
2082 2082000000 376 3
2083 2083000000 376 0
2084 2084000000 378 2
2085 2085000000 378 0
2086 2086000000 378 0
2087 2087000000 379 1
2088 2088000000 379 0
2089 2089000000 379 0
2090 2090000000 379 0
2091 2091000000 379 0
2092 2092000000 379 0
2093 2093000000 379 0
2094 2094000000 380 1
2095 2095000000 380 0
2096 2096000000 380 0
2097 2097000000 382 2
2098 2098000000 384 2
2099 2099000000 385 1
2100 2100000000 385 0
2101 2101000000 388 3
2102 2102000000 388 0
2103 2103000000 388 0
2104 2104000000 388 0
2105 2105000000 388 0
2106 2106000000 389 1
2107 2107000000 390 1
2108 2108000000 391 1
2109 2109000000 392 1
2110 2110000000 392 0
2111 2111000000 393 1
2112 2112000000 394 1
2113 2113000000 395 1
2114 2114000000 396 1
2115 2115000000 397 1
2116 2116000000 398 1
2117 2117000000 400 2
2118 2118000000 401 1
2119 2119000000 402 1
2120 2120000000 403 1
2121 2121000000 405 2
2122 2122000000 406 1
2123 2123000000 408 2
2124 2124000000 409 1
2125 2125000000 410 1
2126 2126000000 410 0
2127 2127000000 410 0
2128 2128000000 410 0
2129 2129000000 412 2
2130 2130000000 413 1
2131 2131000000 413 0
2132 2132000000 414 1
2133 2133000000 414 0
2134 2134000000 414 0
2135 2135000000 414 0
2136 2136000000 414 0
2137 2137000000 415 1
2138 2138000000 415 0
2139 2139000000 416 1
2140 2140000000 417 1
2141 2141000000 417 0
2142 2142000000 418 1

独木星空谁 · 发表于 2021-11-9 22:22

总区段统计
86 36
87 41
88 32
89 30
90 32
91 23
92 24
93 24
94 24
95 23
96 21
97 14
98 25
99 23
100 13
101 18
102 14
103 1

独木星空谁 · 发表于 2021-11-10 09:21

SELECT 1
USE f:\等差四生素数\素数表.DBF ALIAS 素数表
SELECT 2
USE f:\等差四生素数\二生d30.DBF ALIAS 二生素数表
SELECT 3
USE f:\等差四生素数\三生d30.DBF ALIAS 三生素数表
kssj=SECONDS()
For i=1 to 9141474
   @ 5,12 say i
   SELECT 2
   jl2=记录2
SELECT  1
GO jl2
jl=recno() &&记录指针位置
PUBLIC A
A=素数
skip
FOR j=1 TO 9
   n=j
SELECT 1
PUBLIC B
B=素数
cj=B-A
IF cj=30
      SELECT 3
      APPEND BLANK    &&增加一条空记录
      REPLACE 三素 WITH A+30
      REPLACE 记录3 WITH jl+n
      exit
ENDIF
   SELECT 1
   skip
ENDFOR
SELECT 2
skip
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独木星空谁 · 发表于 2021-11-10 09:44

SELECT 1
USE f:\等差四生素数\素数表.DBF ALIAS 素数表
SELECT 2
USE f:\等差四生素数\三生d30.DBF ALIAS 三生素数表
SELECT 3
USE f:\等差四生素数\四生d30.DBF ALIAS 四生素数表
kssj=SECONDS()
For i=1 to 1520125
   @ 5,12 say i
   SELECT 2
   jl3=记录3
SELECT  1
GO jl3
jl=recno() &&记录指针位置
PUBLIC A
A=素数
skip
FOR j=1 TO 9
   n=j
SELECT 1
PUBLIC B
B=素数
cj=B-A
IF cj=30
      SELECT 3
      APPEND BLANK    &&增加一条空记录
      REPLACE 四素 WITH A+30
      REPLACE 记录4 WITH jl+n
      exit
ENDIF
   SELECT 1
   skip
ENDFOR
SELECT 2
skip
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独木星空谁 · 发表于 2021-11-10 11:13

SELECT 1
USE f:\等差四生素数\素数表.DBF ALIAS 素数表
SELECT 2
USE f:\等差四生素数\二生d210.DBF ALIAS 二生素数表
kssj=SECONDS()
For i=1 to 50876200
   @ 5,12 say i
SELECT  1
jl=recno() &&记录指针位置
PUBLIC A
A=素数
skip
FOR j=1 TO 48
   n=j
SELECT 1
PUBLIC B
B=素数
cj=B-A
IF cj=210
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE 二素 WITH A+210
      REPLACE 记录2 WITH jl+n
      exit
ENDIF
   SELECT 1
   skip
ENDFOR
SELECT 1
GO jl+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独木星空谁 · 发表于 2021-11-10 15:56

SELECT 1
USE f:\等差四生素数\素数表.DBF ALIAS 素数表
SELECT 2
USE f:\等差四生素数\二生d210.DBF ALIAS 二生素数表
SELECT 3
USE f:\等差四生素数\三生d210.DBF ALIAS 三生素数表
kssj=SECONDS()
For i=1 to 10964187
   @ 5,12 say i
   SELECT 2
   jl2=记录2
SELECT  1
GO jl2
jl=recno() &&记录指针位置
PUBLIC A
A=素数
skip
FOR j=1 TO 48
   n=j
SELECT 1
PUBLIC B
B=素数
cj=B-A
IF cj=210
      SELECT 3
      APPEND BLANK    &&增加一条空记录
      REPLACE 三素 WITH A+210
      REPLACE 记录3 WITH jl+n
      exit
ENDIF
   SELECT 1
   skip
ENDFOR
SELECT 2
skip
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独木星空谁 · 发表于 2021-11-10 15:56

SELECT 1
USE f:\等差四生素数\素数表.DBF ALIAS 素数表
SELECT 2
USE f:\等差四生素数\二生d210.DBF ALIAS 二生素数表
kssj=SECONDS()
For i=1 to 50876200
   @ 5,12 say i
SELECT  1
jl=recno() &&记录指针位置
PUBLIC A
A=素数
skip
FOR j=1 TO 48
   n=j
SELECT 1
PUBLIC B
B=素数
cj=B-A
IF cj=210
      SELECT 2
      APPEND BLANK    &&增加一条空记录
      REPLACE 二素 WITH A+210
      REPLACE 记录2 WITH jl+n
      exit
ENDIF
   SELECT 1
   skip
ENDFOR
SELECT 1
GO jl+1
ENDFOR
=MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

		自动登录	找回密码
密码			注册