ENDCASE ?Y
SET TALK ON
运行结果： 【程序 2】
SET TALK OFF
S=0 P=5
DO WHILE P<=10 P=P+1 S=S+P*2 ENDDO ? S
RETURN
运行结果： 【程序 3】
SET TALK OFF
STORE 1 TO X,Y DO WHILE .T. X=X+1 Y=Y+X IF X>=5
EXIT ENDIF ENDDO ?X,Y RETURN
则程序运行后 x 为 【程序 4】
SET TALK OFF
CLEAR
DIMENSION B(5) B=5 I=1 S=0
DO WHILE I<5 S=S+B(I) I=I+2 ENDDO ? \RETURN
，y 为 。
运行结果： 【程序 5】
SET TALK OFF
CLEAR
第二部分 《Visual FoxPro 程序设计（第二版）》复习提要与学习指导、习题及参考解答 123
124 Visual FoxPro 程序设计实训与考试指导（第二版）
STORE 0 TO X,Y,S1,S2,S3 DO WHILE X<10 X=X+1 DO CASE
CASE INT(X/2)=X/2
S1=S1+X/2 CASE X % 3 = 0
S2=S2+X/3
CASE INT(X/2)<>X/2
S3=S3+1 ENDCASE ENDDO ? S1,S2,S3
SET TALK ON RETURN
运行结果： 【程序 6】
*运行以下程序，输入 10，5 两个数：
SET TALK OFF CLEAR
INPUT \请输入第一个数：\INPUT \第二个数：\ FOR I=1 TO a*b
IF MOD(I,a)=0 AND MOD(I,b)=0 ?I EXIT ENDIF ENDFOR RETURN
该程序的作用（功能）： 【程序 7】
sta=\
stb=\stz=\
FOR I=1 TO LEN(stb)
IF SUBSTR(stb,I,1)<>sta stz=stz+ SUBSTR(stb,I,1) ENDIF ENDFOR ?stz
该程序的作用（功能）： 【程序 8】
**主程序 PROG.PRG**
CLEAR
SET TALK OFF
X=\同学们\Y=\你们好!\? \主程序中 X=\ ? \主程序中 Y=\DO SUBPRO ? \返回主程序后 X=\ ? \返回主程序后 Y=\ ? \返回主程序后 Z=\Z=300
? \子程序中 X=\ ? \子程序中 Y=\ ? \子程序中 Z=\RETURN **过程 SUBPRO** PROCEDURE subpro PRIVATE X PUBLIC Z X=100 Y=2 Z=5 ENDPROC
运行结果： 【程序 9】
*MAIN.PRG
SET TALK OFF A=3 B=5
DO PP WITH 2*A,B SET TALK ON RETURN
PROCEDURE pp
PARAMETERS X,Y CLEAR S=X*Y
? \ENDPROC
运行结果： 【程序 10】
*MAIN PROGRAM
SET TALK OFF STORE 3 TO L,H AREA=0
DO SUB WITH L,H,AREA ? L,H,AREA
DO SUB WITH L,H,AREA
第二部分 《Visual FoxPro 程序设计（第二版）》复习提要与学习指导、习题及参考解答 125
126 Visual FoxPro 程序设计实训与考试指导（第二版）
? L,H,AREA RETURN
PROCEDURE SUB
PARAMETERS A,B,C C=A*B A=A*2 B=B*2 ENDPROC
运行结果：
三、在横线处填上适当的内容，使程序完整
1．下面程序是求 1～500 内被 3 整除的数的个数以及最后一个不能被 3 整除的数。
SET TALK OFF
N=0 I=1
DO WHILE I<500
IF N=N+1 ELSE ENDIF I=I+1 ENDDO ? N,P
SET TALK ON
2．以下程序的功能是判断自然数 n 是否为素数的程序。
set talk off
cleaR
input \for I=2 to n-1
if i%n=0 endif next if ?n, \是素数\ else
?n, \不是素数\ endif
set talk on return
3．在表 SSS.DBF 中查询某专业的学生， SSS.DBF 中有“专业”字段名。
SET TALK OFF
USE SSS