全国计算机等级考试二级VFP习题及答案：第七章3
6、写出运行结果程序代码：
SET TALK OFF
CLEAR
DIMENSION A(6,6)
FOR I=1 TO 6
FOR J=1 TO 6
IF IJ
A(I,J)=0
ELSE
A(I,J)= -1
ENDIF
ENDFOR
ENDFOR
FOR I=1 TO 6
?
FOR J=1 TO 6
??A(I,J)
ENDFOR
ENDFOR
SET TALK ON
参考答案：
-1 0 0 0 0 0
0 -1 0 0 0 0
0 0 -1 0 0 0
0 0 -1 0 0 0
0 0 0 -1 0 0
0 0 0 0 0 -1
7、设N，M的值分别为6，8。
程序代码：
SET TALK OFF
CLEAR
INPUT "N=" TO N
INPUT "M=" TO M
X=MAX(N,M)
FOR I=X TO M*N
IF MOD(I,M)=0 AND MOD(I,N)=0
Y1=I
EXIT
ENDIF
ENDFOR
?"Y1="+ALLTRIM(STR(Y1,19))+",Y2="+ALLTRIM(STR(M*N/Y1,19))
SET TALK ON
参考答案：
Y1=24，Y2=2
8、设N值为4，字符”A”的ASCII码为65。
程序代码：
SET TALK OFF
CLEAR
INPUT "N=" TO N
FOR I=1 TO N
?SPACE(N-I+1)
FOR J=1 TO 2*I-1
??CHR(ASC("A")+J-1)
ENDFOR
ENDFOR
FOR P=N-1 TO 1 STEP -1
?SPACE(N-P+1)
FOR K=1 TO 2*P-1
??CHR(ASC("A")+K-1)
ENDFOR
ENDFOR
SET TALK ON
参考答案：
A
ABC
ABCDE
ABCDEFG
ABCDE
ABC
A
五、综合编程题。根据题目要求，编写相应的程序。
1、求X+ X2 + X3 + X4 +¼+ Xn的值。N，X从键盘输入。
程序代码：
SET TALK OFF
clear
INPUT "X=" TO X
INPUT "N=" TO N
S=0
I=1
DO WHILE I
页:
[1]