实验3题及答案

X=1 DO WHILE X<=9 Y=1 ***********FOUND********** DO WHILE Y<=9
??STR(X,1)+"×"+STR(Y,1)+"="+STR(X*Y,2)+" "
Y=Y+1 ENDDO ***********FOUND********** disp X=X+1 ENDDO
GS=0 N=300 DO WHILE 【?】
IF MOD(N,3)=0 【?】
ENDIF 【?】 ENDDO ? "300 到 600 之间（包括 300 和 600）能被 3 整除的数的个数为",GS RETURN
答案： 1). 2). 3).
N<=600 或 N<601 或 600>=N 或 601>N GS=GS+1 或 GS=1+GS N=N+1 或 N=1+N
答案： 1). IF INT(I/3)=I/3 OR INT(I/5)= I/5 或 IF MOD(I,3)=0 OR MOD(I,5)=0 2). C=C+1
题目 7: 计算并在屏幕上显示出"九九乘法表"，显示格式如下 *1×1＝1 *2×1＝2 2×2＝4 *3×1＝3 3×2＝6 3×3＝9 *… …来自百度文库*9×1＝9 … 9×8＝72 9×9＝81
答案： 1). 2). 3).
I,S I<100 或 100>I 或 I<=99 或 99>=I S=S+I 或 S=I+S
题目2：求1到100之间的奇数之和、偶数之和，并将奇数之和存入S1、偶数之和存入S2显示输出。
i=1
stor 0 to s1,s2 do whil i<=100
if 【?】 s1=s1+i
答案： 1). 2). 3).
s=0 Step 2 s 或 str(s) 或 str(s,4)
题目7：求1到50的累加和（S=1+2+3+...+50）并显示。
【?】 I=1 DO WHILE 【?】
H=H+I 【?】 ENDDO ?H RETURN
答案： 1). 2). 3).
H=0 I<=50 或 I<51
答案： 1). 2).
DO WHILE I<=M 或 DO WHILE M>=I M=M*3 或 M=3*M
题目 6：将 200 到 300 之间的所有能被 3 整除或被 5 整除的数求和并统计个数。
STORE 0 TO S,C I=200 DO WHILE I<=300 ***********FOUND**********
IF INT(N/3)=0 A=A+1
ENDIF I=I+1 ENDDO ?A
答案： 1). 2).
DO WHILE I<10 或 DO WHILE I<=9 IF MOD(N,3)=0 或 IF N%3=0 或 IF INT(N/3) =N/3
题目 4：接收键盘输入的任意 5 个整数(不超过 3 位数), 找出其中的最大数并显示。
I=I+1
题目8：显示输出图形： *
*** *****
CLEA I=1 DO WHILE I<=3
?SPAC(10-I)
J=1 DO WHILE J<=2*I-1
【?】 【?】
ENDDO 【?】
ENDDO
答案： 1). 2). 3).
??"*" J=J+1 或 J=1+J I=I+1 或 I=1+I
N<=600 或 N<601 或 600>=N 或 601>N GS=GS+1 或 GS=1+GS N=N+1 或 N=1+N
题目6：下面程序是计算1+3+5+…+99之和的程序。
SET TALK OFF 【?】 FOR I=1 TO 99 【?】
S=S+I ENDFOR ?"结果=",【?】 RETURN SET TALK ON
【?】 s2=s2+i
endif 【?】 ENDD ?S1,S2
答案：
1). 2). 3).
MOD (I,2) <>0 或 INT (I,2) <>I/2
ELSE I=I+1 或 I=1+I
题目3：实现:求0-100之间的奇数之和，超出范围则退出。
X=0 Y=0 DO WHILE .T. X=X+1 DO CASE CASE 【?】
LOOP CASE X>=100 【?】 OTHERWISE
Y=Y+X ENDCASE 【?】 ? "0-100 之间的奇数之和为: ", Y RETURN
答案：
1). 2). 3).
MOD(X,2)=0 或 INT(X/2)=X/2
EXIT ENDDO 或 ENDD
题目 4：统计 300 到 600 之间（包括 300 和 600）能被 3 整除的数的个数。
答案： 1). 2).
DO WHILE N>=1 ?"最大数="+STR(MA,3)
题目 5：计算 1!+3!+9!的结果并输出。
M=1 S=0 ***********FOUND********** DO WHILE M<=9
STOR 1 TO I,P P=1 DO WHILE I>M
P=P*I I=I+1 ENDDO S=S+P ***********FOUND********** M=M+3 ENDDO ? "1!+3!+9!=",S
题目5：统计300到600之间（包括300和600）能被3整除的数的个数。
GS=0 N=300 DO WHILE 【?】
IF MOD(N,3)=0 【?】
ENDIF 【?】 ENDDO ? "300 到 600 之间（包括 300 和 600）能被 3 整除的数的个数为",GS RETURN
答案： 1). 2). 3).
答案： 1). 2).
DO WHILE Y<=X 或 DO WHILE X>=Y ?
二、程序填空：请在【】处添上适当的内容，使程序完整。
题目 1：实现:求 0-100 之间的奇数之和，超出范围则退出。
clea stor 0 to 【?】 do whil【?】
i=i+1 if mod(i,2)=0
【?】 endif enddo ?S
答案： 1)N=1 2)??SUBS(XY, 5,4)
题目 2：有一个字符串"ABC",将其插入 3 个数字转换为:"A1B2C3"输出。
C1="ABC" C2="" FOR I=1 TO 3 ***********FOUND********** A=SUBS(C1,I) ***********FOUND********** C2=C2+A+I ENDFOR ?C2
答案： 1). 2).
A=SUBS(C1,I,1) 或 A=SUBSTR(C1,I,1) C2=C2+A+STR(I,1)
题目 3：从键盘输入十个非零整数，统计能被 3 整除的数的个数。
STORE 0 TO I,A ***********FOUND********** DO WHILE I<=10 INPUT "请输入一个整数:" TO N ***********FOUND**********
INPUT "请输入第一个数:" TO X
STORE X TO MA N=5 ***********FOUND********** DO WHILE N>=5
INPUT "请输入下一个数:" TO X
IF MA<X MA=X
ENDIF N=N-1
ENDDO ***********FOUND********** ?"最大数="+SUBS(MA,3)
题目9：显示输出图形：
***** *** *
CLEA I=1 DO WHILE 【?】
J=1 DO WHILE J<=7-2*I
【?】
j=j+1 ENDDO 【?】
? ENDDO
答案：
1). 2). 3).
I<4 或 I<=3 ??"*" I=I+1
实验3 VFP 程序设计
实验目的：1、学会使用input、accept 、wait输入语句；
2、掌握程序文件的建立、修改、保存和运行方法；
3、掌握程序的三种基本结构。
实验内容：
一、程序改错：请对****FOUND*****下面的第一条语句进行修改。不可以增加或删除程序行，也不可以更改程序的结构。
题目 1：通过字符串变量操作先竖向显示"伟大祖国"，再横向显示"祖国伟大"。
STORE "伟大祖国"TO XY CLEA ***********FOUND********** N=0 DO WHILE N<8 ?SUBS(XY,N,2) N=N+2 ENDDO ? ***********FOUND********** ??SUBS(XY,4,4) ??SUBS(XY,1,4)
IF INT(I/3)=INT(I/5) S=S+I
***********FOUND********** C=C+I
ENDIF I=I+1
ENDDO ?"200 到 300 之间的所有能被 3 整除或被 5 整除的数之和="+STR(S,6) ?"200 到 300 之间的所有能被 3 整除或被 5 整除的数的个数="+STR(C,6)