说明:1.启动VFP后在命令窗口中执行下列命令,以设置默认的工作目录:
SET DEFA TO T:
2.除非题目要求,否则不要对T盘上的文件进行重命名、复制和删除操作。程序改错。
下列程序的功能是:求一个4位整数ABCD和一个1位整数E(1除外),它们的乘积等于DCBA,如2178*4=8712。要求:
①项目中有一个程序文件Pcode,将下列程序代码复制到其中并进行修改。
②在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目。
(1) CLEAR
(2) DIME n(4), m(4)
(3) FOR i=1000 TO 9999
(4) FOR j=1 TO 4
(5) n(j)=SUBS(ALLT(STR(i)), j, 1)
(6) ENDFOR
(7) FOR k=2 TO 9
(8) s=i*j
(9) IF s<=9999
(10) FOR p=1 TO 4
(11) m(P)=SUBS(ALLT(CHR(s)), p, 1)
(12) ENDFOR
(13) IF m(4)=n(t)AND m(3)=n(2)AND m(2)=n(3)AND m(i)=
(14) n(4)
(15) i, k
(16) ENDIF
(17) ENDIF
(18) ENDFOR
(19) ENDFOR