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

独木星空谁 · 发表于 2021-11-3 20:27

SELECT 239
USE G:\三角递增法\无偶数表总表.DBF ALIAS 无偶数总表
SELECT 51
USE G:\三角递增法\偶数周期表51.DBF ALIAS 偶周期51
SELECT 52
USE G:\三角递增法\偶数周期表52.DBF ALIAS 偶周期52
SELECT 53
USE G:\三角递增法\偶数周期表53.DBF ALIAS 偶周期53
SELECT 54
USE G:\三角递增法\偶数周期表54.DBF ALIAS 偶周期54
SELECT 55
USE G:\三角递增法\偶数周期表55.DBF ALIAS 偶周期55
SELECT 56
USE G:\三角递增法\偶数周期表56.DBF ALIAS 偶周期56
SELECT 57
USE G:\三角递增法\偶数周期表57.DBF ALIAS 偶周期57
SELECT 58
USE G:\三角递增法\偶数周期表58.DBF ALIAS 偶周期58
SELECT 59
USE G:\三角递增法\偶数周期表59.DBF ALIAS 偶周期59
SELECT 60
USE G:\三角递增法\偶数周期表60.DBF ALIAS 偶周期60
SELECT 61
USE G:\三角递增法\偶数周期表61.DBF ALIAS 偶周期61
SELECT 62
USE G:\三角递增法\偶数周期表62.DBF ALIAS 偶周期62
SELECT 63
USE G:\三角递增法\偶数周期表63.DBF ALIAS 偶周期63
SELECT 64
USE G:\三角递增法\偶数周期表64.DBF ALIAS 偶周期64
SELECT 65
USE G:\三角递增法\偶数周期表65.DBF ALIAS 偶周期65
SELECT 66
USE G:\三角递增法\偶数周期表66.DBF ALIAS 偶周期66
SELECT 67
USE G:\三角递增法\偶数周期表67.DBF ALIAS 偶周期67
SELECT 68
USE G:\三角递增法\偶数周期表68.DBF ALIAS 偶周期68
kssj=SECONDS()
bwjm="偶周期"
For j=51 to 68
   @ 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,"运行时间提示")

独木星空谁 · 发表于 2021-11-3 20:28

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

独木星空谁 · 发表于 2021-11-3 20:29

SELECT 1
USE G:\三角递增法\相同记录数表总4.DBF ALIAS 相同记录表4
SELECT 2
USE G:\三角递增法\无偶最终结果表新总4.DBF ALIAS 无偶结果表新4
kssj=SECONDS()
SELECT  1
GO 1
For i=1 to 2530963
   @ 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-3 20:29

SELECT 1
USE G:\三角递增法\无偶最终结果表新总4.DBF ALIAS 无偶总新4
SELECT 2
USE G:\三角递增法\无偶数统计表.DBF ALIAS 无偶统计
kssj=SECONDS()
SELECT 1
   For j=1072 to 1428
   @ 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-3 20:30

区段范围统计各段个数总区段
1072 1072000000 6 6 52
1073 1073000000 17 11 52
1074 1074000000 27 10 52
1075 1075000000 33 6 52
1076 1076000000 38 5 52
1077 1077000000 52 14 52
1078 1078000000 61 9 52
1079 1079000000 76 15 52
1080 1080000000 83 7 52
1081 1081000000 94 11 52
1082 1082000000 101 7 52
1083 1083000000 114 13 52
1084 1084000000 129 15 52
1085 1085000000 143 14 52
1086 1086000000 156 13 52
1087 1087000000 166 10 52
1088 1088000000 177 11 52
1089 1089000000 191 14 52
1090 1090000000 206 15 52
1091 1091000000 213 7 52
1092 1092000000 221 8 53
1093 1093000000 239 18 53
1094 1094000000 247 8 53
1095 1095000000 257 10 53
1096 1096000000 266 9 53
1097 1097000000 275 9 53
1098 1098000000 290 15 53
1099 1099000000 298 8 53
1100 1100000000 307 9 53
1101 1101000000 319 12 53
1102 1102000000 334 15 53
1103 1103000000 344 10 53
1104 1104000000 361 17 53
1105 1105000000 368 7 53
1106 1106000000 377 9 53
1107 1107000000 381 4 53
1108 1108000000 391 10 53
1109 1109000000 401 10 53
1110 1110000000 417 16 53
1111 1111000000 421 4 53
1112 1112000000 433 12 53
1113 1113000000 440 7 54
1114 1114000000 444 4 54
1115 1115000000 2698 2254 54
1116 1116000000 6871 4173 54
1117 1117000000 9342 2471 54
1118 1118000000 10916 1574 54
1119 1119000000 11999 1083 54
1120 1120000000 12745 746 54
1121 1121000000 13281 536 54
1122 1122000000 13643 362 54
1123 1123000000 13913 270 54
1124 1124000000 14135 222 54
1125 1125000000 14288 153 54
1126 1126000000 14376 88 54
1127 1127000000 14464 88 54
1128 1128000000 14525 61 54
1129 1129000000 14578 53 54
1130 1130000000 14609 31 54
1131 1131000000 14628 19 54
1132 1132000000 14642 14 54
1133 1133000000 14654 12 54
1134 1134000000 14664 10 55
1135 1135000000 14675 11 55
1136 1136000000 14689 14 55
1137 1137000000 14697 8 55
1138 1138000000 14704 7 55
1139 1139000000 14716 12 55
1140 1140000000 14722 6 55
1141 1141000000 14733 11 55
1142 1142000000 14740 7 55
1143 1143000000 14744 4 55
1144 1144000000 14750 6 55
1145 1145000000 14759 9 55
1146 1146000000 14771 12 55
1147 1147000000 14783 12 55
1148 1148000000 14795 12 55
1149 1149000000 14807 12 55
1150 1150000000 14813 6 55
1151 1151000000 14825 12 55
1152 1152000000 14829 4 55
1153 1153000000 14837 8 55
1154 1154000000 14843 6 55
1155 1155000000 14851 8 56
1156 1156000000 14855 4 56
1157 1157000000 14866 11 56
1158 1158000000 14872 6 56
1159 1159000000 14877 5 56
1160 1160000000 14886 9 56
1161 1161000000 14894 8 56
1162 1162000000 14900 6 56
1163 1163000000 14910 10 56
1164 1164000000 14918 8 56
1165 1165000000 14924 6 56
1166 1166000000 14934 10 56
1167 1167000000 14938 4 56
1168 1168000000 14946 8 56
1169 1169000000 14952 6 56
1170 1170000000 14959 7 56
1171 1171000000 14965 6 56
1172 1172000000 14975 10 56
1173 1173000000 14986 11 56
1174 1174000000 14995 9 56
1175 1175000000 15002 7 56
1176 1176000000 15011 9 57
1177 1177000000 15019 8 57
1178 1178000000 15028 9 57
1179 1179000000 15035 7 57
1180 1180000000 15039 4 57
1181 1181000000 15046 7 57
1182 1182000000 15051 5 57
1183 1183000000 15056 5 57
1184 1184000000 15060 4 57
1185 1185000000 15066 6 57
1186 1186000000 15076 10 57
1187 1187000000 15084 8 57
1188 1188000000 15095 11 57
1189 1189000000 15100 5 57
1190 1190000000 15107 7 57
1191 1191000000 15121 14 57
1192 1192000000 15133 12 57
1193 1193000000 15141 8 57
1194 1194000000 15148 7 57
1195 1195000000 15154 6 57
1196 1196000000 15167 13 57
1197 1197000000 15178 11 58
1198 1198000000 15181 3 58
1199 1199000000 15187 6 58
1200 1200000000 15197 10 58
1201 1201000000 15207 10 58
1202 1202000000 15216 9 58
1203 1203000000 15224 8 58
1204 1204000000 15237 13 58
1205 1205000000 15243 6 58
1206 1206000000 15250 7 58
1207 1207000000 15256 6 58
1208 1208000000 15266 10 58
1209 1209000000 15272 6 58
1210 1210000000 15277 5 58
1211 1211000000 15286 9 58
1212 1212000000 15295 9 58
1213 1213000000 15299 4 58
1214 1214000000 15306 7 58
1215 1215000000 15312 6 58
1216 1216000000 15318 6 58
1217 1217000000 15327 9 58
1218 1218000000 15333 6 59
1219 1219000000 15341 8 59
1220 1220000000 15345 4 59
1221 1221000000 15351 6 59
1222 1222000000 15357 6 59
1223 1223000000 15366 9 59
1224 1224000000 15377 11 59
1225 1225000000 15382 5 59
1226 1226000000 15388 6 59
1227 1227000000 15398 10 59
1228 1228000000 15404 6 59
1229 1229000000 15415 11 59
1230 1230000000 15430 15 59
1231 1231000000 15433 3 59
1232 1232000000 15444 11 59
1233 1233000000 15450 6 59
1234 1234000000 15460 10 59
1235 1235000000 15467 7 59
1236 1236000000 15468 1 59
1237 1237000000 15475 7 59
1238 1238000000 15485 10 59
1239 1239000000 15489 4 60
1240 1240000000 15498 9 60
1241 1241000000 15503 5 60
1242 1242000000 15508 5 60
1243 1243000000 15516 8 60
1244 1244000000 15526 10 60
1245 1245000000 15532 6 60
1246 1246000000 15538 6 60
1247 1247000000 15545 7 60
1248 1248000000 15555 10 60
1249 1249000000 15556 1 60
1250 1250000000 15564 8 60
1251 1251000000 15571 7 60
1252 1252000000 15580 9 60
1253 1253000000 15588 8 60
1254 1254000000 15591 3 60
1255 1255000000 15596 5 60
1256 1256000000 15600 4 60
1257 1257000000 15604 4 60
1258 1258000000 15609 5 60
1259 1259000000 15615 6 60
1260 1260000000 15622 7 61
1261 1261000000 15630 8 61
1262 1262000000 15635 5 61
1263 1263000000 15642 7 61
1264 1264000000 15651 9 61
1265 1265000000 15662 11 61
1266 1266000000 15665 3 61
1267 1267000000 15668 3 61
1268 1268000000 15673 5 61
1269 1269000000 15677 4 61
1270 1270000000 15682 5 61
1271 1271000000 15690 8 61
1272 1272000000 15696 6 61
1273 1273000000 15699 3 61
1274 1274000000 15707 8 61
1275 1275000000 15713 6 61
1276 1276000000 15721 8 61
1277 1277000000 15727 6 61
1278 1278000000 15731 4 61
1279 1279000000 15738 7 61
1280 1280000000 15741 3 61
1281 1281000000 15747 6 62
1282 1282000000 15756 9 62
1283 1283000000 15760 4 62
1284 1284000000 15767 7 62
1285 1285000000 15778 11 62
1286 1286000000 15786 8 62
1287 1287000000 15794 8 62
1288 1288000000 15802 8 62
1289 1289000000 15809 7 62
1290 1290000000 15814 5 62
1291 1291000000 15818 4 62
1292 1292000000 15831 13 62
1293 1293000000 15837 6 62
1294 1294000000 15848 11 62
1295 1295000000 15850 2 62
1296 1296000000 15857 7 62
1297 1297000000 15860 3 62
1298 1298000000 15868 8 62
1299 1299000000 15873 5 62
1300 1300000000 15881 8 62
1301 1301000000 15888 7 62
1302 1302000000 15893 5 63
1303 1303000000 15903 10 63
1304 1304000000 15917 14 63
1305 1305000000 15927 10 63
1306 1306000000 15939 12 63
1307 1307000000 15958 19 63
1308 1308000000 15979 21 63
1309 1309000000 16015 36 63
1310 1310000000 16063 48 63
1311 1311000000 16136 73 63
1312 1312000000 16249 113 63
1313 1313000000 16391 142 63
1314 1314000000 16605 214 63
1315 1315000000 16883 278 63
1316 1316000000 17310 427 63
1317 1317000000 17939 629 63
1318 1318000000 18886 947 63
1319 1319000000 20405 1519 63
1320 1320000000 23028 2623 63
1321 1321000000 27263 4235 63
1322 1322000000 35158 7895 63
1323 1323000000 51168 16010 64
1324 1324000000 66597 15429 64
1325 1325000000 73951 7354 64
1326 1326000000 77941 3990 64
1327 1327000000 80250 2309 64
1328 1328000000 81685 1435 64
1329 1329000000 82544 859 64
1330 1330000000 83138 594 64
1331 1331000000 83552 414 64
1332 1332000000 83865 313 64
1333 1333000000 84065 200 64
1334 1334000000 84202 137 64
1335 1335000000 84317 115 64
1336 1336000000 84370 53 64
1337 1337000000 84421 51 64
1338 1338000000 84461 40 64
1339 1339000000 84491 30 64
1340 1340000000 84510 19 64
1341 1341000000 84530 20 64
1342 1342000000 84537 7 64
1343 1343000000 84547 10 64
1344 1344000000 84554 7 65
1345 1345000000 84556 2 65
1346 1346000000 84559 3 65
1347 1347000000 84564 5 65
1348 1348000000 84567 3 65
1349 1349000000 84573 6 65
1350 1350000000 84576 3 65
1351 1351000000 84583 7 65
1352 1352000000 84589 6 65
1353 1353000000 84595 6 65
1354 1354000000 84603 8 65
1355 1355000000 84607 4 65
1356 1356000000 84614 7 65
1357 1357000000 84618 4 65
1358 1358000000 84625 7 65
1359 1359000000 84633 8 65
1360 1360000000 84637 4 65
1361 1361000000 84647 10 65
1362 1362000000 84655 8 65
1363 1363000000 84659 4 65
1364 1364000000 84663 4 65
1365 1365000000 84664 1 66
1366 1366000000 84667 3 66
1367 1367000000 84676 9 66
1368 1368000000 84680 4 66
1369 1369000000 84684 4 66
1370 1370000000 84685 1 66
1371 1371000000 84689 4 66
1372 1372000000 84692 3 66
1373 1373000000 84698 6 66
1374 1374000000 84702 4 66
1375 1375000000 84703 1 66
1376 1376000000 84706 3 66
1377 1377000000 84711 5 66
1378 1378000000 84716 5 66
1379 1379000000 84722 6 66
1380 1380000000 84728 6 66
1381 1381000000 84734 6 66
1382 1382000000 84738 4 66
1383 1383000000 84744 6 66
1384 1384000000 84745 1 66
1385 1385000000 84746 1 66
1386 1386000000 84752 6 67
1387 1387000000 84753 1 67
1388 1388000000 84758 5 67
1389 1389000000 84766 8 67
1390 1390000000 84773 7 67
1391 1391000000 84776 3 67
1392 1392000000 84782 6 67
1393 1393000000 84783 1 67
1394 1394000000 84788 5 67
1395 1395000000 84792 4 67
1396 1396000000 84798 6 67
1397 1397000000 84806 8 67
1398 1398000000 84808 2 67
1399 1399000000 84808 0 67
1400 1400000000 84809 1 67
1401 1401000000 84811 2 67
1402 1402000000 84815 4 67
1403 1403000000 84819 4 67
1404 1404000000 84825 6 67
1405 1405000000 84828 3 67
1406 1406000000 84834 6 67
1407 1407000000 84839 5 68
1408 1408000000 84843 4 68
1409 1409000000 84848 5 68
1410 1410000000 84850 2 68
1411 1411000000 84854 4 68
1412 1412000000 84856 2 68
1413 1413000000 84857 1 68
1414 1414000000 84862 5 68
1415 1415000000 84865 3 68
1416 1416000000 84871 6 68
1417 1417000000 84876 5 68
1418 1418000000 84877 1 68
1419 1419000000 84884 7 68
1420 1420000000 84886 2 68
1421 1421000000 84887 1 68
1422 1422000000 84892 5 68
1423 1423000000 84899 7 68
1424 1424000000 84902 3 68
1425 1425000000 84904 2 68
1426 1426000000 84907 3 68
1427 1427000000 84910 3 68
1428 1428000000 84912 2 69
以上四步运行结果。

独木星空谁 · 发表于 2021-11-3 20:47

截止2021年11月3日周三，热度52，回复991，浏览量39339.

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

时间紧了，一切都顾不上。

独木星空谁 · 发表于 2021-11-8 23:16

SELECT 239
USE G:\三角递增法\无偶数表总表.DBF ALIAS 无偶数总表
SELECT 68
USE G:\三角递增法\偶数周期表68.DBF ALIAS 偶周期68
SELECT 69
USE G:\三角递增法\偶数周期表69.DBF ALIAS 偶周期69
SELECT 70
USE G:\三角递增法\偶数周期表70.DBF ALIAS 偶周期70
SELECT 71
USE G:\三角递增法\偶数周期表71.DBF ALIAS 偶周期71
SELECT 72
USE G:\三角递增法\偶数周期表72.DBF ALIAS 偶周期72
SELECT 73
USE G:\三角递增法\偶数周期表73.DBF ALIAS 偶周期73
SELECT 74
USE G:\三角递增法\偶数周期表74.DBF ALIAS 偶周期74
SELECT 75
USE G:\三角递增法\偶数周期表75.DBF ALIAS 偶周期75
SELECT 76
USE G:\三角递增法\偶数周期表76.DBF ALIAS 偶周期76
SELECT 77
USE G:\三角递增法\偶数周期表77.DBF ALIAS 偶周期77
SELECT 78
USE G:\三角递增法\偶数周期表78.DBF ALIAS 偶周期78
SELECT 79
USE G:\三角递增法\偶数周期表79.DBF ALIAS 偶周期79
SELECT 80
USE G:\三角递增法\偶数周期表80.DBF ALIAS 偶周期80
SELECT 81
USE G:\三角递增法\偶数周期表81.DBF ALIAS 偶周期81
SELECT 82
USE G:\三角递增法\偶数周期表82.DBF ALIAS 偶周期82
SELECT 83
USE G:\三角递增法\偶数周期表83.DBF ALIAS 偶周期83
SELECT 84
USE G:\三角递增法\偶数周期表84.DBF ALIAS 偶周期84
SELECT 85
USE G:\三角递增法\偶数周期表85.DBF ALIAS 偶周期85
kssj=SECONDS()
bwjm="偶周期"
For j=68 to 85
   @ 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,"运行时间提示")

独木星空谁 · 发表于 2021-11-8 23:16

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

独木星空谁 · 发表于 2021-11-8 23:17

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

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