CLEAR
CLOSE  all
SET SAFETY OFF
set talk off
jjs=0
USE 运行记录表
zap
pack
FOR a=1 TO 10
 FOR b=1 TO 10
  FOR c=1 TO 10
   FOR x=2 TO 10
             if ((a^x)^a+(b^x)^b) <>(c^x)^c            
               EXIT        
               ELSE
                  jjs=jjs+1              
                  APPEND BLANK     
                  REPLACE 编号 WITH jjs
                  REPLACE 列1 WITH a
                  REPLACE 列2 WITH b
                  REPLACE 列3 WITH c
                  REPLACE 列4 WITH x
           ENDIF
     ENDFOR
   ENDFOR
 ENDFOR
ENDFOR  
DELETE FILE *.BAK
BROWSE

[此贴子已经被作者于2018-12-26 13:43编辑过]

啊，请教老师要如何修改才能发挥过滤的条件了，谢谢

先生您好，这样修改后还是有许多不符合要求的写入到了“运行记录表”中
这是写入到运行记录表中的前面一部分

编号    列1    列2    列3    列4
1    1    4    4    7
2    1    4    4    8
3    1    4    4    9
4    1    4    4    10
5    1    5    5    5
6    1    5    5    6
7    1    5    5    7
8    1    5    5    8
9    1    5    5    9
10    1    5    5    10
11    1    6    6    4
12    1    6    6    5
13    1    6    6    6
14    1    6    6    7
15    1    6    6    8
16    1    6    6    9
17    1    6    6    10
18    1    7    7    3
19    1    7    7    4
20    1    7    7    5
21    1    7    7    6
22    1    7    7    7
23    1    7    7    8
24    1    7    7    9
25    1    7    7    10
26    1    8    8    3