DO JC WITH A1,I DO MC WITH A2,I S=S+A2/A1 ENDFOR ___2___
PROC JC PARA P,R P=1
FOR J=1 TO R P=P*J ENDFOR
PROC MC ___3___ P=1
FOR J=1 TO R P=P*X ENDFOR
第六题答案：
1.、答案一：FOR I=1 TO 100
答案二：FOR I=1 TO 100 STEP 1 2、 答案一：?\ 答案二：??E^?+str(x,5)+?=?,s 答案三：? s
3、PARA P,R
7、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。 程序中“______N_____”是需要填充的地方，请填空，使程序完整。 ****功能：编写求某正整数是否为完数。（该数等于其不重复因子相加，因子包括1。例如6=1+2+3是完数，但是8?1+2+4，所以不是完数。）
SET TALK OFF CLEAR
INPUT \s=1 ___1___ ___2__ s=s+i ENDIF ENDFOR ___3___
5
?M,\是完数！\ELSE
?M,\不是完数！\ENDIF
SET TALK ON
第七题答案：
1. 答案一：for i=2 to m-1
答案二：for i=2 to m-1 step 1 2. 答案一：IF M%I=0 答案二：IF 0=M%I
答案三：IF MOD(M,I)=0 答案四：IF 0=MOD(M,I) 答案五：IF M-INT(M/I)*I=0 答案六：IF 0=M-INT(M/I)*I 3. 答案一：if s=m 答案二：if m=s
8、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。 程序中“______N_____”是需要填充的地方，请填空，使程序完整。 ****功能：求X^1+X^2+...+X^n,n,X从键盘输入。
SET TALK OFF CLEAR
INPUT \___1___ S=0
T=1 FOR I=1 TO N ___2___ S=S+T ENDFOR
___3___ SET TALK ON
第八题答案：
1. 答案一：INPUT \ 答案二：INPUT TO X
答案三： INPUT ?X=? TO X 2. 答案一：T=T*X 答案二：T=X*T 3. 答案一：?\ 答案二：??S=?,S
6
答案三：?S
9、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。 程序中“______N_____”是需要填充的地方，请填空，使程序完整。 ****功能：利用参数传递和过程文件求：（m!+n!）((m-n)!+m^n+m^m)的值。
SET TALK OFF CLEAR
INPUT \INPUT \SM=M
DO JC WITH SM SN=N
DO JC WITH SN SMN=M-N
DO JC WITH SMN CMN=N
DO MC WITH M,CMN ___1___
?(SM+SN)/(SMN+CMN+M) SET TALK ON
PROC JC ___2___ T=1
FOR I=1 TO X T=T*I ENDFOR ___3___ RETURN
PROC MC
PARA X,Y T=1
FOR J=1 TO Y T=T*X ENDFOR Y=T RETURN
第九题答案：
1. DO MC WITH M,M 2.para x
7
3.X=T
10、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。 程序中“______N_____”是需要填充的地方，请填空，使程序完整。
****功能：显示指定表中的全部字段名，并由输入的条件显示满足条件的记录。
SET TALK OFF CLEAR ___1___
___2___ ?FIELD(N) ENDFOR ___3___
SET TALK ON
第十题答案： 1. USE 学生
2. 答案一：FOR N=1 TO FCOUNT()
答案二：FOR N=1 TO FCOUNT() step 1 3.USE
11、题目：
****在考生目录中，已有文件Modify.prg，请调试程序，完成以下功能。 程序中“______N_____”是需要填充的地方，请填空，使程序完整。 **功能：编写求输入数M内的偶数和偶数之和。
SET TALK OFF CLEAR ___1___ S=0
FOR P=1 TO M
IF INT(P/2)=P/2 ?P S=S+P ___2___ ___3___ ?S
SET TALK ON
第十一题答案：
1. 答案一：INPUT 'M=' TO M 答案二：INPUT TO M 答案三：INPUT “M=” TO M
8
