先生您好，我有个代码可以求质数，并将所求得的质数写入“表.dbf”文件，现在我想修改成质数定稿“质数.txt”文件，修改了几次总没成功，请先生指点，谢谢
CLEAR
CLOSE  all
SET TALK ON
SET SAFETY OFF
USE 表
 PACK
 ZAP
*-------------------------------
input '      请输入第一个适当的正整数：' to n
input '      请输入第二个适当大的正整数：' to m
JS=0
FOR I=n TO m
         FOR J=2 TO int(sqrt(M))
            if INT(I/J)=I/J
              EXIT
              ELSE
             ENDIF
          ENDFOR
           if j>int((i/j))
             ppp=i
             js=js+1   
             APPEND BLANK     
             REPLACE 变量 WITH ppp
           ENDIF
ENDFOR
DELETE FILE *.BAK
MESSAGEBOX('本 次 运 行 结 束 ！！',64,'信息提示')

COPY 表.dbf to 表2.txt  先生这样也没成功，谢谢指点

CLEAR
CLOSE  all
SET TALK ON
SET SAFETY OFF
USE 表
 PACK
 ZAP
*-------------------------------
input '      请输入第一个适当的正整数：' to n
input '      请输入第二个适当大的正整数：' to m
JS=0
FOR I=n TO m
         FOR J=2 TO int(sqrt(M))
            if INT(I/J)=I/J
              EXIT
              ELSE
             ENDIF
          ENDFOR
           if j>int((i/j))
             ppp=i
             js=js+1   
             APPEND BLANK     
             REPLACE 变量 WITH ppp
           ENDIF
ENDFOR
CLOSE  all
USE 表
COPY 表.dbf to 表2.txt
DELETE FILE *.BAK
MESSAGEBOX('本 次 运 行 结 束 ！！',64,'信息提示')

[此贴子已经被作者于2021-2-2 15:43编辑过]

先生还是没搞成，可否帮我修改下，谢谢先生

先生您的办法成了，谢谢