大家看看这两道VFP题怎么做?

来源：百度知道 编辑：UC知道 时间：2024/05/27 14:40:55
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------

*题目：编程求P=1x(1x2)x(1x2x3)x … x(1x2x … xN)，N由键盘输入。
* 将结果存入变量OUT中。
* 请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------

SET TALK ON
SET LOGERRORS ON
INPUT "请任意输入一个数字:" TO N
?FUN(N)
YZJ()

FUNCTION FUN(N)
OUT=-1
**********Program**********

********** End **********
RETURN OUT
FUNCTION YZJ()
USE IN
LOCA FOR TIHAO=3
IF FOUND()
N=N1
O=FUN(N)
DO YZJ3 WITH O
ELSE
?"考试输入文件错误，请重新配置考试环境"
ENDIF
RETURN

*-------------------------------------------------------
*【程序改错】
*-------------------------------------------------------

*题目：通过字符串变量操作先竖向显示"伟大祖国"，再横向显示
* "祖国伟大"。

*------------------------

第1题是补写两个星条之间的程序。
FUNCTION FUN(N)
OUT=-1
**********Program**********
if n>0
OUT=1
else
Messagebox("N<1 输入无效！")
endif
FOR i = 1 TO N
NN = 1
FOR j = 1 TO i
NN = NN * j
ENDFOR
OUT = OUT * NN
ENDFOR
********** End **********
RETURN OUT

第2题
*【程序改错】
STORE "伟大祖国"TO XY
CLEA
***********FOUND**********
*N=0 && 错
N=1
DO WHILE N<8
?SUBS(XY,N,2)
N=N+2
ENDDO
?
***********FOUND**********
*??SUBS(XY,4,4) && 错
??SUBS(XY,5,4)
??SUBS(XY,1,4)