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

独木星空谁

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 2277441
      @ 5,12 say i
     SELECT 2
     jl3=记录3
    SELECT  1
    GO jl3   
    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 记录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,"运行时间提示")

独木星空谁

SELECT 1
USE f:\等差四生素数\四生d30.DBF ALIAS 四生表
SELECT 2
USE f:\等差四生素数\四中d30.DBF ALIAS 四中表
kssj=SECONDS()
For i=1 to 227728
      @ 5,12 say i
    SELECT  1     
    jl=recno() &&记录指针位置
    PUBLIC A
    A=四素
   
         SELECT 2
         APPEND BLANK     &&增加一条空记录
         REPLACE 四中30 WITH A-45   
         
  
   SELECT 1
   skip
   ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独木星空谁

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

独木星空谁

SELECT 239
USE G:\三角递增法\无偶数表总表.DBF ALIAS 无偶数总表
SELECT 102
USE G:\三角递增法\偶数周期表102.DBF ALIAS 偶周期102
SELECT 103
USE G:\三角递增法\偶数周期表103.DBF ALIAS 偶周期103
SELECT 104
USE G:\三角递增法\偶数周期表104.DBF ALIAS 偶周期104
SELECT 105
USE G:\三角递增法\偶数周期表105.DBF ALIAS 偶周期105
SELECT 106
USE G:\三角递增法\偶数周期表106.DBF ALIAS 偶周期106
SELECT 107
USE G:\三角递增法\偶数周期表107.DBF ALIAS 偶周期107
SELECT 108
USE G:\三角递增法\偶数周期表108.DBF ALIAS 偶周期108
SELECT 109
USE G:\三角递增法\偶数周期表109.DBF ALIAS 偶周期109
SELECT 110
USE G:\三角递增法\偶数周期表110.DBF ALIAS 偶周期110
SELECT 111
USE G:\三角递增法\偶数周期表111.DBF ALIAS 偶周期111
SELECT 112
USE G:\三角递增法\偶数周期表112.DBF ALIAS 偶周期112
SELECT 113
USE G:\三角递增法\偶数周期表113.DBF ALIAS 偶周期113
SELECT 114
USE G:\三角递增法\偶数周期表114.DBF ALIAS 偶周期114
SELECT 115
USE G:\三角递增法\偶数周期表115.DBF ALIAS 偶周期115
SELECT 116
USE G:\三角递增法\偶数周期表116.DBF ALIAS 偶周期116
SELECT 117
USE G:\三角递增法\偶数周期表117.DBF ALIAS 偶周期117
SELECT 118
USE G:\三角递增法\偶数周期表118.DBF ALIAS 偶周期118
SELECT 119
USE G:\三角递增法\偶数周期表119.DBF ALIAS 偶周期119
kssj=SECONDS()
bwjm="偶周期"
For j=102 to 119
      @ 5,12 say j
     k=j
      wd=bwjm+ALLTRIM(STR(j))
&& CLOSE DATABASES
&& SET COMPATIBLE ON
&& OPEN DATABASE (HOME(2) + 'data\testdata')

&& SELECT 1  && 未使用的工作区
&& USE  G:\三角递增法\&WD ALIAS n && 打开 Customer 表
      For i=(j-1)*500000+1 to (j+1)*500000

      @ 5,12 say i
      n=i
      s=0
      IF MOD(n,5)=1
      s=s+30
      ENDIF
      IF MOD(n,5)=2
      s=s+90
      ENDIF
      IF MOD(n,5)=3
      s=s+120
      ENDIF
      IF MOD(n,5)=4
      s=s+180
      ENDIF
      IF MOD(n,5)=0
      s=s+210
      ENDIF
     
      wou=INT((n-1)/5)*210+s
      SELECT "偶周期"+ALLTRIM(STR(k))
      
      
         && select G:\三角递增法\&WD..DBF IN 0
       A=偶数
         IF A=wou
         SELECT "偶周期"+ALLTRIM(STR(k))
         skip
         LOOP
         ELSE
         SELECT 239
         APPEND BLANK
         REPLACE 无偶 WITH wou
         ENDIF
   
     ENDFOR
ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")

独木星空谁

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:\三角递增法\相同记录数表总7 && 取得各记录的相同记录数及其各字段值
SELECT * FROM DBF() WHERE 相同记录数>1 && 该查询结果详细列举了表1中各重复记录的 重复数
USE IN   相同记录数表总7

独木星空谁

SELECT 1
USE G:\三角递增法\相同记录数表总7.DBF ALIAS 相同记录表7
SELECT 2
USE G:\三角递增法\无偶最终结果表新总7.DBF ALIAS 无偶结果表新7
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 77494
      @ 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,"运行时间提示")

独木星空谁

SELECT 1
USE G:\三角递增法\无偶最终结果表新总7.DBF ALIAS 无偶总新7
SELECT 2
USE G:\三角递增法\无偶数统计表.DBF ALIAS 无偶统计
kssj=SECONDS()
SELECT 1
     For j=2143 to 2499
      @ 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,"运行时间提示")

独木星空谁

区段        范围        统计        各段个数        总区段
2143        2143000000        0        0        103
2144        2144000000        0        0        103
2145        2145000000        1        1        103
2146        2146000000        3        2        103
2147        2147000000        5        2        103
2148        2148000000        5        0        103
2149        2149000000        6        1        103
2150        2150000000        9        3        103
2151        2151000000        9        0        103
2152        2152000000        9        0        103
2153        2153000000        9        0        103
2154        2154000000        11        2        103
2155        2155000000        11        0        103
2156        2156000000        12        1        103
2157        2157000000        12        0        103
2158        2158000000        14        2        103
2159        2159000000        15        1        103
2160        2160000000        17        2        103
2161        2161000000        18        1        103
2162        2162000000        18        0        103
2163        2163000000        18        0        104
2164        2164000000        18        0        104
2165        2165000000        18        0        104
2166        2166000000        18        0        104
2167        2167000000        18        0        104
2168        2168000000        18        0        104
2169        2169000000        18        0        104
2170        2170000000        18        0        104
2171        2171000000        18        0        104
2172        2172000000        18        0        104
2173        2173000000        18        0        104
2174        2174000000        18        0        104
2175        2175000000        18        0        104
2176        2176000000        18        0        104
2177        2177000000        18        0        104
2178        2178000000        18        0        104
2179        2179000000        18        0        104
2180        2180000000        18        0        104
2181        2181000000        18        0        104
2182        2182000000        18        0        104
2183        2183000000        18        0        104
2184        2184000000        18        0        105
2185        2185000000        18        0        105
2186        2186000000        18        0        105
2187        2187000000        18        0        105
2188        2188000000        18        0        105
2189        2189000000        18        0        105
2190        2190000000        18        0        105
2191        2191000000        18        0        105
2192        2192000000        18        0        105
2193        2193000000        18        0        105
2194        2194000000        18        0        105
2195        2195000000        18        0        105
2196        2196000000        18        0        105
2197        2197000000        18        0        105
2198        2198000000        18        0        105
2199        2199000000        18        0        105
2200        2200000000        18        0        105
2201        2201000000        18        0        105
2202        2202000000        18        0        105
2203        2203000000        18        0        105
2204        2204000000        18        0        105
2205        2205000000        18        0        106
2206        2206000000        18        0        106
2207        2207000000        18        0        106
2208        2208000000        18        0        106
2209        2209000000        18        0        106
2210        2210000000        18        0        106
2211        2211000000        18        0        106
2212        2212000000        18        0        106
2213        2213000000        18        0        106
2214        2214000000        18        0        106
2215        2215000000        18        0        106
2216        2216000000        18        0        106
2217        2217000000        18        0        106
2218        2218000000        18        0        106
2219        2219000000        18        0        106
2220        2220000000        18        0        106
2221        2221000000        18        0        106
2222        2222000000        18        0        106
2223        2223000000        18        0        106
2224        2224000000        18        0        106
2225        2225000000        18        0        106
2226        2226000000        18        0        107
2227        2227000000        18        0        107
2228        2228000000        18        0        107
2229        2229000000        18        0        107
2230        2230000000        18        0        107
2231        2231000000        18        0        107
2232        2232000000        18        0        107
2233        2233000000        18        0        107
2234        2234000000        18        0        107
2235        2235000000        18        0        107
2236        2236000000        18        0        107
2237        2237000000        18        0        107
2238        2238000000        18        0        107
2239        2239000000        18        0        107
2240        2240000000        18        0        107
2241        2241000000        18        0        107
2242        2242000000        18        0        107
2243        2243000000        18        0        107
2244        2244000000        18        0        107
2245        2245000000        18        0        107
2246        2246000000        18        0        107
2247        2247000000        18        0        108
2248        2248000000        18        0        108
2249        2249000000        18        0        108
2250        2250000000        18        0        108
2251        2251000000        18        0        108
2252        2252000000        18        0        108
2253        2253000000        18        0        108
2254        2254000000        18        0        108
2255        2255000000        18        0        108
2256        2256000000        18        0        108
2257        2257000000        18        0        108
2258        2258000000        18        0        108
2259        2259000000        18        0        108
2260        2260000000        18        0        108
2261        2261000000        18        0        108
2262        2262000000        18        0        108
2263        2263000000        18        0        108
2264        2264000000        18        0        108
2265        2265000000        18        0        108
2266        2266000000        18        0        108
2267        2267000000        18        0        108
2268        2268000000        18        0        109
2269        2269000000        18        0        109
2270        2270000000        18        0        109
2271        2271000000        18        0        109
2272        2272000000        18        0        109
2273        2273000000        18        0        109
2274        2274000000        18        0        109
2275        2275000000        18        0        109
2276        2276000000        18        0        109
2277        2277000000        18        0        109
2278        2278000000        18        0        109
2279        2279000000        18        0        109
2280        2280000000        18        0        109
2281        2281000000        18        0        109
2282        2282000000        18        0        109
2283        2283000000        18        0        109
2284        2284000000        18        0        109
2285        2285000000        18        0        109
2286        2286000000        18        0        109
2287        2287000000        18        0        109
2288        2288000000        18        0        109
2289        2289000000        18        0        110
2290        2290000000        18        0        110
2291        2291000000        18        0        110
2292        2292000000        18        0        110
2293        2293000000        18        0        110
2294        2294000000        18        0        110
2295        2295000000        18        0        110
2296        2296000000        18        0        110
2297        2297000000        18        0        110
2298        2298000000        18        0        110
2299        2299000000        18        0        110
2300        2300000000        18        0        110
2301        2301000000        18        0        110
2302        2302000000        18        0        110
2303        2303000000        18        0        110
2304        2304000000        18        0        110
2305        2305000000        18        0        110
2306        2306000000        18        0        110
2307        2307000000        18        0        110
2308        2308000000        18        0        110
2309        2309000000        18        0        110
2310        2310000000        18        0        111
2311        2311000000        18        0        111
2312        2312000000        18        0        111
2313        2313000000        18        0        111
2314        2314000000        18        0        111
2315        2315000000        18        0        111
2316        2316000000        18        0        111
2317        2317000000        18        0        111
2318        2318000000        18        0        111
2319        2319000000        18        0        111
2320        2320000000        18        0        111
2321        2321000000        18        0        111
2322        2322000000        18        0        111
2323        2323000000        18        0        111
2324        2324000000        18        0        111
2325        2325000000        18        0        111
2326        2326000000        18        0        111
2327        2327000000        18        0        111
2328        2328000000        18        0        111
2329        2329000000        18        0        111
2330        2330000000        18        0        111
2331        2331000000        18        0        112
2332        2332000000        18        0        112
2333        2333000000        18        0        112
2334        2334000000        18        0        112
2335        2335000000        18        0        112
2336        2336000000        18        0        112
2337        2337000000        18        0        112
2338        2338000000        18        0        112
2339        2339000000        18        0        112
2340        2340000000        18        0        112
2341        2341000000        18        0        112
2342        2342000000        18        0        112
2343        2343000000        18        0        112
2344        2344000000        18        0        112
2345        2345000000        18        0        112
2346        2346000000        18        0        112
2347        2347000000        18        0        112
2348        2348000000        18        0        112
2349        2349000000        18        0        112
2350        2350000000        18        0        112
2351        2351000000        18        0        112
2352        2352000000        18        0        113
2353        2353000000        18        0        113
2354        2354000000        18        0        113
2355        2355000000        18        0        113
2356        2356000000        18        0        113
2357        2357000000        18        0        113
2358        2358000000        18        0        113
2359        2359000000        18        0        113
2360        2360000000        18        0        113
2361        2361000000        18        0        113
2362        2362000000        18        0        113
2363        2363000000        18        0        113
2364        2364000000        18        0        113
2365        2365000000        18        0        113
2366        2366000000        18        0        113
2367        2367000000        18        0        113
2368        2368000000        18        0        113
2369        2369000000        18        0        113
2370        2370000000        18        0        113
2371        2371000000        18        0        113
2372        2372000000        18        0        113
2373        2373000000        18        0        114
2374        2374000000        18        0        114
2375        2375000000        18        0        114
2376        2376000000        18        0        114
2377        2377000000        18        0        114
2378        2378000000        18        0        114
2379        2379000000        18        0        114
2380        2380000000        18        0        114
2381        2381000000        18        0        114
2382        2382000000        18        0        114
2383        2383000000        18        0        114
2384        2384000000        18        0        114
2385        2385000000        18        0        114
2386        2386000000        18        0        114
2387        2387000000        18        0        114
2388        2388000000        18        0        114
2389        2389000000        18        0        114
2390        2390000000        18        0        114
2391        2391000000        18        0        114
2392        2392000000        18        0        114
2393        2393000000        18        0        114
2394        2394000000        18        0        115
2395        2395000000        18        0        115
2396        2396000000        18        0        115
2397        2397000000        18        0        115
2398        2398000000        18        0        115
2399        2399000000        18        0        115
2400        2400000000        18        0        115
2401        2401000000        18        0        115
2402        2402000000        18        0        115
2403        2403000000        18        0        115
2404        2404000000        18        0        115
2405        2405000000        18        0        115
2406        2406000000        18        0        115
2407        2407000000        18        0        115
2408        2408000000        18        0        115
2409        2409000000        18        0        115
2410        2410000000        18        0        115
2411        2411000000        18        0        115
2412        2412000000        18        0        115
2413        2413000000        18        0        115
2414        2414000000        18        0        115
2415        2415000000        18        0        116
2416        2416000000        18        0        116
2417        2417000000        18        0        116
2418        2418000000        18        0        116
2419        2419000000        18        0        116
2420        2420000000        18        0        116
2421        2421000000        18        0        116
2422        2422000000        18        0        116
2423        2423000000        18        0        116
2424        2424000000        18        0        116
2425        2425000000        18        0        116
2426        2426000000        18        0        116
2427        2427000000        18        0        116
2428        2428000000        18        0        116
2429        2429000000        18        0        116
2430        2430000000        18        0        116
2431        2431000000        18        0        116
2432        2432000000        18        0        116
2433        2433000000        18        0        116
2434        2434000000        18        0        116
2435        2435000000        18        0        116
2436        2436000000        18        0        117
2437        2437000000        18        0        117
2438        2438000000        18        0        117
2439        2439000000        18        0        117
2440        2440000000        18        0        117
2441        2441000000        18        0        117
2442        2442000000        18        0        117
2443        2443000000        18        0        117
2444        2444000000        18        0        117
2445        2445000000        18        0        117
2446        2446000000        18        0        117
2447        2447000000        18        0        117
2448        2448000000        18        0        117
2449        2449000000        18        0        117
2450        2450000000        18        0        117
2451        2451000000        18        0        117
2452        2452000000        18        0        117
2453        2453000000        18        0        117
2454        2454000000        18        0        117
2455        2455000000        18        0        117
2456        2456000000        18        0        117
2457        2457000000        18        0        118
2458        2458000000        18        0        118
2459        2459000000        18        0        118
2460        2460000000        18        0        118
2461        2461000000        18        0        118
2462        2462000000        18        0        118
2463        2463000000        18        0        118
2464        2464000000        18        0        118
2465        2465000000        18        0        118
2466        2466000000        18        0        118
2467        2467000000        18        0        118
2468        2468000000        18        0        118
2469        2469000000        18        0        118
2470        2470000000        18        0        118
2471        2471000000        18        0        118
2472        2472000000        18        0        118
2473        2473000000        18        0        118
2474        2474000000        18        0        118
2475        2475000000        18        0        118
2476        2476000000        18        0        118
2477        2477000000        18        0        118
2478        2478000000        18        0        119
2479        2479000000        18        0        119
2480        2480000000        18        0        119
2481        2481000000        18        0        119
2482        2482000000        18        0        119
2483        2483000000        18        0        119
2484        2484000000        18        0        119
2485        2485000000        18        0        119
2486        2486000000        18        0        119
2487        2487000000        18        0        119
2488        2488000000        18        0        119
2489        2489000000        18        0        119
2490        2490000000        18        0        119
2491        2491000000        18        0        119
2492        2492000000        18        0        119
2493        2493000000        18        0        119
2494        2494000000        18        0        119
2495        2495000000        18        0        119
2496        2496000000        18        0        119
2497        2497000000        18        0        119
2498        2498000000        18        0        119
2499        2499000000        18        0        120

独木星空谁

总区段        统计
103        18
104        0
105        0
106        0
107        0
108        0
109        0
110        0
111        0
112        0
113        0
114        0
115        0
116        0
117        0
118        0
119        0
120        0

独木星空谁

SELECT 239
USE G:\三角递增法\无偶数表总表.DBF ALIAS 无偶数总表
SELECT 119
USE G:\三角递增法\偶数周期表119.DBF ALIAS 偶周期119
SELECT 120
USE G:\三角递增法\偶数周期表120.DBF ALIAS 偶周期120
SELECT 121
USE G:\三角递增法\偶数周期表121.DBF ALIAS 偶周期121
SELECT 122
USE G:\三角递增法\偶数周期表122.DBF ALIAS 偶周期122
SELECT 123
USE G:\三角递增法\偶数周期表123.DBF ALIAS 偶周期123
SELECT 124
USE G:\三角递增法\偶数周期表124.DBF ALIAS 偶周期124
SELECT 125
USE G:\三角递增法\偶数周期表125.DBF ALIAS 偶周期125
SELECT 126
USE G:\三角递增法\偶数周期表126.DBF ALIAS 偶周期126
SELECT 127
USE G:\三角递增法\偶数周期表127.DBF ALIAS 偶周期127
SELECT 128
USE G:\三角递增法\偶数周期表128.DBF ALIAS 偶周期128
SELECT 129
USE G:\三角递增法\偶数周期表129.DBF ALIAS 偶周期129
SELECT 130
USE G:\三角递增法\偶数周期表130.DBF ALIAS 偶周期130
SELECT 131
USE G:\三角递增法\偶数周期表131.DBF ALIAS 偶周期131
SELECT 132
USE G:\三角递增法\偶数周期表132.DBF ALIAS 偶周期132
SELECT 133
USE G:\三角递增法\偶数周期表133.DBF ALIAS 偶周期133
SELECT 134
USE G:\三角递增法\偶数周期表134.DBF ALIAS 偶周期134
SELECT 135
USE G:\三角递增法\偶数周期表135.DBF ALIAS 偶周期135
SELECT 136
USE G:\三角递增法\偶数周期表136.DBF ALIAS 偶周期136
kssj=SECONDS()
bwjm="偶周期"
For j=119 to 136
      @ 5,12 say j
     k=j
      wd=bwjm+ALLTRIM(STR(j))
&& CLOSE DATABASES
&& SET COMPATIBLE ON
&& OPEN DATABASE (HOME(2) + 'data\testdata')

&& SELECT 1  && 未使用的工作区
&& USE  G:\三角递增法\&WD ALIAS n && 打开 Customer 表
      For i=(j-1)*500000+1 to (j+1)*500000

      @ 5,12 say i
      n=i
      s=0
      IF MOD(n,5)=1
      s=s+30
      ENDIF
      IF MOD(n,5)=2
      s=s+90
      ENDIF
      IF MOD(n,5)=3
      s=s+120
      ENDIF
      IF MOD(n,5)=4
      s=s+180
      ENDIF
      IF MOD(n,5)=0
      s=s+210
      ENDIF
     
      wou=INT((n-1)/5)*210+s
      SELECT "偶周期"+ALLTRIM(STR(k))
      
      
         && select G:\三角递增法\&WD..DBF IN 0
       A=偶数
         IF A=wou
         SELECT "偶周期"+ALLTRIM(STR(k))
         skip
         LOOP
         ELSE
         SELECT 239
         APPEND BLANK
         REPLACE 无偶 WITH wou
         ENDIF
   
     ENDFOR
ENDFOR
    =MESSAGEBOX("运行时间："+LTRIM(STR(INT((SECONDS()-kssj)/60)))+"分"+LTRIM(STR(MOD(SECONDS()-kssj,60),5,2))+"秒",64,"运行时间提示")