全国计算机等级考试二级VFP习题及答案：第七章3

会计考友

　　6、写出运行结果
4 V3 R) \" L4 d" J% K& H　　程序代码：
　　SET TALK OFF
+ n  M8 G3 Z2 Q; d1 l　　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
% c! _5 C! s7 @" C5 a　　ENDIF
9 a$ z  C% b2 H6 I: P. q　　ENDFOR
2 `5 w, u0 r0 b8 [, _　　ENDFOR
( D6 c) w  o. M) G' M3 ]4 T5 o  @3 I9 i　　FOR I=1 TO 6
　　?
　　FOR J=1 TO 6
　　??A(I,J)
  Y& O" W# N. O! n　　ENDFOR
　　ENDFOR
# x& Y  {7 X( ]2 \4 A8 U5 ]7 [# [$ r　　SET TALK ON
$ ]' K/ M, r( Q- Q+ c; ]: I4 g, p7 _　　参考答案：
! _# N8 y& I8 A+ f　　-1 0 0 0 0 0
. L6 o; P" g2 o# R. J5 `7 t! T　　0 -1 0 0 0 0
　　0 0 -1 0 0 0
　　0 0 -1 0 0 0
! z' C  F) ]9 g( j$ P/ }# h) _　　0 0 0 -1 0 0
; U6 x" I/ A6 z. X. \　　0 0 0 0 0 -1
　　7、设N，M的值分别为6，8。
　　程序代码：
7 T6 z: s$ @# J& F　　SET TALK OFF
" s2 e7 ~/ {8 z+ w7 ~* o# M! I　　CLEAR
4 V6 s2 b0 n# L/ F0 M( K　　INPUT "N=" TO N
) E% V$ S4 D* k9 l& k　　INPUT "M=" TO M
5 T4 @8 _9 B, O3 d　　X=MAX(N,M)
　　FOR I=X TO M*N
: k* G. C# E4 V; h　　IF MOD(I,M)=0 AND MOD(I,N)=0
　　Y1=I
　　EXIT
　　ENDIF
9 n4 G5 n/ o: |2 K; p; g　　ENDFOR
　　?"Y1="+ALLTRIM(STR(Y1,19))+",Y2="+ALLTRIM(STR(M*N/Y1,19))
　　SET TALK ON
! b! [  A: Z# ]* v　　参考答案：
4 L# x/ V5 F7 @& Q1 f1 B　　Y1=24，Y2=2
　　8、设N值为4，字符”A”的ASCII码为65。
' @0 g  E7 J+ g2 ]8 V9 K3 E8 V　　程序代码：
　　SET TALK OFF
- F" p0 z6 v+ J　　CLEAR
　　INPUT "N=" TO N
. u( A% U' T& A' V　　FOR I=1 TO N
　　?SPACE(N-I+1)
　　FOR J=1 TO 2*I-1
  F. Q2 m) n7 j3 }( T　　??CHR(ASC("A")+J-1)
: ?4 w2 B% [( t  a　　ENDFOR
; T/ i; u- v0 p- J1 b* z* U　　ENDFOR
　　FOR P=N-1 TO 1 STEP -1
　　?SPACE(N-P+1)
　　FOR K=1 TO 2*P-1
  u4 U: I3 V3 X/ x4 I$ M# E" ~　　??CHR(ASC("A")+K-1)
; U' }9 V# t2 c% ]. O$ s2 b　　ENDFOR
　　ENDFOR
) I5 \5 W' W( A& ^1 u# X" R+ ?3 w　　SET TALK ON
　　参考答案：
4 l, a9 O) I0 ]4 `' W, x0 R　　A
9 W- g$ A1 y- y' c" x　　ABC
# f0 D# b6 Z' x' u  f　　ABCDE
　　ABCDEFG
6 |, j, I! c7 L  F" B/ I9 K# @# ^9 `1 ^　　ABCDE
　　ABC
9 b% _. n# n) A9 c, E1 j　　A
  N4 }( j8 n+ v& f4 K% }. x& G　　五、综合编程题。根据题目要求，编写相应的程序。
　　1、求X+ X2 + X3 + X4 +¼+ Xn的值。N，X从键盘输入。
7 o. V6 V8 T! ?, A6 s　　程序代码：
　　SET TALK OFF
　　clear
　　INPUT "X=" TO X
　　INPUT "N=" TO N
7 h% j( g% p  E4 h　　S=0
　　I=1

* M" \& I7 }# ]1 y　　DO WHILE I