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

独舟星海 · 发表于 2021-11-15 22:48

SELECT 239
USE G:\三角递增法\无偶数表总表.DBF ALIAS 无偶数总表
SELECT 187
USE G:\三角递增法\偶数周期表187.DBF ALIAS 偶周期187
SELECT 188
USE G:\三角递增法\偶数周期表188.DBF ALIAS 偶周期188
SELECT 189
USE G:\三角递增法\偶数周期表189.DBF ALIAS 偶周期189
SELECT 190
USE G:\三角递增法\偶数周期表190.DBF ALIAS 偶周期190
SELECT 191
USE G:\三角递增法\偶数周期表191.DBF ALIAS 偶周期191
SELECT 192
USE G:\三角递增法\偶数周期表192.DBF ALIAS 偶周期192
SELECT 193
USE G:\三角递增法\偶数周期表193.DBF ALIAS 偶周期193
SELECT 194
USE G:\三角递增法\偶数周期表194.DBF ALIAS 偶周期194
SELECT 195
USE G:\三角递增法\偶数周期表195.DBF ALIAS 偶周期195
SELECT 196
USE G:\三角递增法\偶数周期表196.DBF ALIAS 偶周期196
SELECT 197
USE G:\三角递增法\偶数周期表197.DBF ALIAS 偶周期197
SELECT 198
USE G:\三角递增法\偶数周期表198.DBF ALIAS 偶周期198
SELECT 199
USE G:\三角递增法\偶数周期表199.DBF ALIAS 偶周期199
SELECT 200
USE G:\三角递增法\偶数周期表200.DBF ALIAS 偶周期200
SELECT 201
USE G:\三角递增法\偶数周期表201.DBF ALIAS 偶周期201
SELECT 202
USE G:\三角递增法\偶数周期表202.DBF ALIAS 偶周期202
SELECT 203
USE G:\三角递增法\偶数周期表203.DBF ALIAS 偶周期203
SELECT 204
USE G:\三角递增法\偶数周期表204.DBF ALIAS 偶周期204
kssj=SECONDS()
bwjm="偶周期"
For j=187 to 204
   @ 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-15 22:49

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

独舟星海 · 发表于 2021-11-15 22:49

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

SELECT 1
USE G:\三角递增法\无偶最终结果表新总12.DBF ALIAS 无偶总新12
SELECT 2
USE G:\三角递增法\无偶数统计表.DBF ALIAS 无偶统计
kssj=SECONDS()
SELECT 1
   For j=3928 to 4284
   @ 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-15 22:50

区段范围统计各段个数总区段
3928 3928000000 0 0 188
3929 3929000000 0 0 188
3930 3930000000 0 0 188
3931 3931000000 0 0 188
3932 3932000000 0 0 188
3933 3933000000 0 0 188
3934 3934000000 0 0 188
3935 3935000000 0 0 188
3936 3936000000 0 0 188
3937 3937000000 0 0 188
3938 3938000000 0 0 188
3939 3939000000 0 0 188
3940 3940000000 0 0 188
3941 3941000000 0 0 188
3942 3942000000 0 0 188
3943 3943000000 0 0 188
3944 3944000000 1 1 188
3945 3945000000 1 0 188
3946 3946000000 1 0 188
3947 3947000000 1 0 188
3948 3948000000 1 0 188
3949 3949000000 1 0 189
3950 3950000000 1 0 189
3951 3951000000 1 0 189
3952 3952000000 1 0 189
3953 3953000000 1 0 189
3954 3954000000 2 1 189
3955 3955000000 2 0 189
3956 3956000000 2 0 189
3957 3957000000 2 0 189
3958 3958000000 2 0 189
3959 3959000000 2 0 189
3960 3960000000 2 0 189
3961 3961000000 2 0 189
3962 3962000000 2 0 189
3963 3963000000 2 0 189
3964 3964000000 2 0 189
3965 3965000000 2 0 189
3966 3966000000 2 0 189
3967 3967000000 2 0 189
3968 3968000000 2 0 189
3969 3969000000 2 0 189
3970 3970000000 2 0 190
3971 3971000000 2 0 190
3972 3972000000 2 0 190
3973 3973000000 2 0 190
3974 3974000000 2 0 190
3975 3975000000 2 0 190
3976 3976000000 2 0 190
3977 3977000000 2 0 190
3978 3978000000 2 0 190
3979 3979000000 2 0 190
3980 3980000000 2 0 190
3981 3981000000 2 0 190
3982 3982000000 2 0 190
3983 3983000000 2 0 190
3984 3984000000 2 0 190
3985 3985000000 2 0 190
3986 3986000000 2 0 190
3987 3987000000 2 0 190
3988 3988000000 2 0 190
3989 3989000000 2 0 190
3990 3990000000 2 0 190
3991 3991000000 2 0 191
3992 3992000000 2 0 191
3993 3993000000 2 0 191
3994 3994000000 2 0 191
3995 3995000000 2 0 191
3996 3996000000 2 0 191
3997 3997000000 2 0 191
3998 3998000000 2 0 191
3999 3999000000 3 1 191
4000 4000000000 3 0 191
4001 4001000000 3 0 191
4002 4002000000 3 0 191
4003 4003000000 3 0 191
4004 4004000000 3 0 191
4005 4005000000 3 0 191
4006 4006000000 3 0 191
4007 4007000000 3 0 191
4008 4008000000 3 0 191
4009 4009000000 3 0 191
4010 4010000000 3 0 191
4011 4011000000 3 0 191
4012 4012000000 3 0 192
4013 4013000000 3 0 192
4014 4014000000 3 0 192
4015 4015000000 3 0 192
4016 4016000000 3 0 192
4017 4017000000 3 0 192
4018 4018000000 3 0 192
4019 4019000000 3 0 192
4020 4020000000 3 0 192
4021 4021000000 3 0 192
4022 4022000000 3 0 192
4023 4023000000 3 0 192
4024 4024000000 3 0 192
4025 4025000000 3 0 192
4026 4026000000 3 0 192
4027 4027000000 3 0 192
4028 4028000000 3 0 192
4029 4029000000 3 0 192
4030 4030000000 3 0 192
4031 4031000000 3 0 192
4032 4032000000 3 0 192
4033 4033000000 3 0 193
4034 4034000000 3 0 193
4035 4035000000 3 0 193
4036 4036000000 3 0 193
4037 4037000000 3 0 193
4038 4038000000 4 1 193
4039 4039000000 4 0 193
4040 4040000000 4 0 193
4041 4041000000 4 0 193
4042 4042000000 4 0 193
4043 4043000000 5 1 193
4044 4044000000 5 0 193
4045 4045000000 5 0 193
4046 4046000000 5 0 193
4047 4047000000 5 0 193
4048 4048000000 5 0 193
4049 4049000000 5 0 193
4050 4050000000 5 0 193
4051 4051000000 5 0 193
4052 4052000000 5 0 193
4053 4053000000 5 0 193
4054 4054000000 5 0 194
4055 4055000000 5 0 194
4056 4056000000 5 0 194
4057 4057000000 5 0 194
4058 4058000000 5 0 194
4059 4059000000 5 0 194
4060 4060000000 5 0 194
4061 4061000000 5 0 194
4062 4062000000 5 0 194
4063 4063000000 5 0 194
4064 4064000000 5 0 194
4065 4065000000 5 0 194
4066 4066000000 5 0 194
4067 4067000000 5 0 194
4068 4068000000 5 0 194
4069 4069000000 5 0 194
4070 4070000000 5 0 194
4071 4071000000 5 0 194
4072 4072000000 5 0 194
4073 4073000000 6 1 194
4074 4074000000 6 0 194
4075 4075000000 6 0 195
4076 4076000000 7 1 195
4077 4077000000 7 0 195
4078 4078000000 8 1 195
4079 4079000000 8 0 195
4080 4080000000 8 0 195
4081 4081000000 8 0 195
4082 4082000000 8 0 195
4083 4083000000 8 0 195
4084 4084000000 8 0 195
4085 4085000000 8 0 195
4086 4086000000 8 0 195
4087 4087000000 8 0 195
4088 4088000000 8 0 195
4089 4089000000 8 0 195
4090 4090000000 8 0 195
4091 4091000000 9 1 195
4092 4092000000 9 0 195
4093 4093000000 9 0 195
4094 4094000000 9 0 195
4095 4095000000 9 0 195
4096 4096000000 9 0 196
4097 4097000000 9 0 196
4098 4098000000 9 0 196
4099 4099000000 9 0 196
4100 4100000000 9 0 196
4101 4101000000 9 0 196
4102 4102000000 9 0 196
4103 4103000000 9 0 196
4104 4104000000 9 0 196
4105 4105000000 10 1 196
4106 4106000000 10 0 196
4107 4107000000 10 0 196
4108 4108000000 10 0 196
4109 4109000000 10 0 196
4110 4110000000 10 0 196
4111 4111000000 10 0 196
4112 4112000000 10 0 196
4113 4113000000 10 0 196
4114 4114000000 10 0 196
4115 4115000000 10 0 196
4116 4116000000 10 0 196
4117 4117000000 10 0 197
4118 4118000000 10 0 197
4119 4119000000 10 0 197
4120 4120000000 10 0 197
4121 4121000000 10 0 197
4122 4122000000 10 0 197
4123 4123000000 10 0 197
4124 4124000000 10 0 197
4125 4125000000 10 0 197
4126 4126000000 10 0 197
4127 4127000000 10 0 197
4128 4128000000 10 0 197
4129 4129000000 10 0 197
4130 4130000000 10 0 197
4131 4131000000 10 0 197
4132 4132000000 10 0 197
4133 4133000000 10 0 197
4134 4134000000 10 0 197
4135 4135000000 10 0 197
4136 4136000000 10 0 197
4137 4137000000 10 0 197
4138 4138000000 10 0 198
4139 4139000000 10 0 198
4140 4140000000 10 0 198
4141 4141000000 10 0 198
4142 4142000000 10 0 198
4143 4143000000 10 0 198
4144 4144000000 10 0 198
4145 4145000000 10 0 198
4146 4146000000 10 0 198
4147 4147000000 10 0 198
4148 4148000000 10 0 198
4149 4149000000 10 0 198
4150 4150000000 10 0 198
4151 4151000000 10 0 198
4152 4152000000 10 0 198
4153 4153000000 10 0 198
4154 4154000000 10 0 198
4155 4155000000 10 0 198
4156 4156000000 10 0 198
4157 4157000000 10 0 198
4158 4158000000 10 0 198
4159 4159000000 10 0 199
4160 4160000000 10 0 199
4161 4161000000 10 0 199
4162 4162000000 10 0 199
4163 4163000000 10 0 199
4164 4164000000 10 0 199
4165 4165000000 10 0 199
4166 4166000000 10 0 199
4167 4167000000 10 0 199
4168 4168000000 10 0 199
4169 4169000000 10 0 199
4170 4170000000 10 0 199
4171 4171000000 10 0 199
4172 4172000000 10 0 199
4173 4173000000 10 0 199
4174 4174000000 10 0 199
4175 4175000000 10 0 199
4176 4176000000 10 0 199
4177 4177000000 10 0 199
4178 4178000000 10 0 199
4179 4179000000 10 0 199
4180 4180000000 10 0 200
4181 4181000000 10 0 200
4182 4182000000 10 0 200
4183 4183000000 10 0 200
4184 4184000000 10 0 200
4185 4185000000 10 0 200
4186 4186000000 10 0 200
4187 4187000000 10 0 200
4188 4188000000 10 0 200
4189 4189000000 10 0 200
4190 4190000000 10 0 200
4191 4191000000 10 0 200
4192 4192000000 10 0 200
4193 4193000000 10 0 200
4194 4194000000 10 0 200
4195 4195000000 10 0 200
4196 4196000000 10 0 200
4197 4197000000 10 0 200
4198 4198000000 10 0 200
4199 4199000000 10 0 200
4200 4200000000 10 0 200
4201 4201000000 10 0 201
4202 4202000000 10 0 201
4203 4203000000 10 0 201
4204 4204000000 10 0 201
4205 4205000000 10 0 201
4206 4206000000 10 0 201
4207 4207000000 10 0 201
4208 4208000000 10 0 201
4209 4209000000 10 0 201
4210 4210000000 10 0 201
4211 4211000000 10 0 201
4212 4212000000 10 0 201
4213 4213000000 10 0 201
4214 4214000000 10 0 201
4215 4215000000 10 0 201
4216 4216000000 10 0 201
4217 4217000000 10 0 201
4218 4218000000 10 0 201
4219 4219000000 10 0 201
4220 4220000000 10 0 201
4221 4221000000 11 1 201
4222 4222000000 11 0 202
4223 4223000000 11 0 202
4224 4224000000 11 0 202
4225 4225000000 11 0 202
4226 4226000000 11 0 202
4227 4227000000 11 0 202
4228 4228000000 11 0 202
4229 4229000000 11 0 202
4230 4230000000 11 0 202
4231 4231000000 11 0 202
4232 4232000000 11 0 202
4233 4233000000 11 0 202
4234 4234000000 11 0 202
4235 4235000000 11 0 202
4236 4236000000 11 0 202
4237 4237000000 11 0 202
4238 4238000000 11 0 202
4239 4239000000 11 0 202
4240 4240000000 11 0 202
4241 4241000000 11 0 202
4242 4242000000 11 0 202
4243 4243000000 11 0 203
4244 4244000000 11 0 203
4245 4245000000 11 0 203
4246 4246000000 11 0 203
4247 4247000000 11 0 203
4248 4248000000 11 0 203
4249 4249000000 11 0 203
4250 4250000000 11 0 203
4251 4251000000 11 0 203
4252 4252000000 11 0 203
4253 4253000000 11 0 203
4254 4254000000 11 0 203
4255 4255000000 11 0 203
4256 4256000000 11 0 203
4257 4257000000 11 0 203
4258 4258000000 11 0 203
4259 4259000000 11 0 203
4260 4260000000 11 0 203
4261 4261000000 11 0 203
4262 4262000000 11 0 203
4263 4263000000 11 0 203
4264 4264000000 11 0 204
4265 4265000000 11 0 204
4266 4266000000 11 0 204
4267 4267000000 11 0 204
4268 4268000000 11 0 204
4269 4269000000 11 0 204
4270 4270000000 11 0 204
4271 4271000000 11 0 204
4272 4272000000 11 0 204
4273 4273000000 11 0 204
4274 4274000000 11 0 204
4275 4275000000 11 0 204
4276 4276000000 11 0 204
4277 4277000000 11 0 204
4278 4278000000 11 0 204
4279 4279000000 11 0 204
4280 4280000000 11 0 204
4281 4281000000 11 0 204
4282 4282000000 11 0 204
4283 4283000000 11 0 204
4284 4284000000 11 0 204

独舟星海 · 发表于 2021-11-15 22:51

总区段统计11
188 1
189 1
190 0
191 1
192 0
193 2
194 1
195 3
196 1
197 0
198 0
199 0
200 0
201 1
202 0
203 0
204 0

独舟星海 · 发表于 2021-11-18 00:15

SELECT 239
USE G:\三角递增法\无偶数表总表.DBF ALIAS 无偶数总表
kssj=SECONDS()
bwjm="偶数周期表"
For j=204 to 221
   @ 5,12 say j
   k=j
   wd=bwjm+ALLTRIM(STR(j))
   USE G:\三角递增法\&wd in 0
   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-18 06: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:\三角递增法\相同记录数表总13 && 取得各记录的相同记录数及其各字段值
SELECT * FROM DBF() WHERE 相同记录数>1 && 该查询结果详细列举了表1中各重复记录的重复数
USE IN 相同记录数表总13

独舟星海 · 发表于 2021-11-18 06:21

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

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

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