练习题

一、建立命令文件，求S=1+3+5+……+99

二、建立命令文件，求Ｔ＝1！+2！+……+101！

三、建立命令文件，显示九九乘法表

四、选择题
1．有Visual FoxPro程序如下
SET  TALK  OFF
DIMENSION  A（6）
K＝2
DO  WHILE  K＜＝6
A(K)=20－2*K
K=K+1
ENDDO
K=5
DO WHILE K>=2
A(K)=A(K)/(A(4)-10)
K=K-1
ENDDO
A(1),A(6)
A(2)
SET TALK ON
RETURN
此程序运行后，第一行输出结果是（    ）
A） 10  4       B） 10  8     
C） .T. 8        D).F. 8
2．有Visual FoxPro程序如下
SET TALK OFF
CLEAR
STORE 0 TO X，S1，S2，S3
DO WHILE X＜10
X=X+1
DO CASE
CASE MOD(X,2)=0
S1=S1+X/2
CASE INT(X/3)=X/3
S2=S2+X/3
CASE INT(X/2)＜＞X/2
S3=S3+1
ENDCASE
ENDDO
INT(S1），INT(S2)，S3
SET TALK ON
RETURN
执行上述程序，运行结果是：（ ）
A）15   4  3    B）12  23  1
C）15   3   4   D）10  4    6
3．在非嵌套程序结构中,可以使用以LOOP和EXIT语句的基本程序结构是(   )
A）TEXT-ENDTEXT           
B）DO  WHILE-ENDDO
C）IF-ENDIF                       
D）DO  CASE-ENDCASE
4．Visual  FoxPro的应用程序均可由以下基本结构组合而成，它们分别是(  )
A) 顺序结构、选择结构和循环结构     
B) 顺序结构、循环结构和模块结构
C) 逻辑结构、物理结构和程序结构     
D) 分支结构、重复结构和子程序结构
5.在下面程序中，要使程序继续循环，变量K的输入值应为(     )
DO WHILE .T.
K=″Y″
@ 10,10 GET K
READ
IF UPPER(K) $ ″YN″
EXIT
ENDIF
ENDDO
A）Y或y    B）N或n      C）Y或y或N或n    D）Y、y、N、n之外的任意字符
五、程序填空
1．下面程序的功能是输出如下的图形。请填空使之完善。
        *
    *$*
    *$*$*
  *$*$*$*
*$*$*$*$*
SET TALK OFF
CLEAR
R=1
C=10
DO WHILE 【1】    
K=1
DO WHILE 【2】 
【3】
@ R, C SAY A        && 表示从第R行，C列处开始显示A的值
【4】 
K=K+1
ENDDO
【5】
R=R+1
ENDDO
SET TALK ON
RETURN
2．某级数前两项A1=1,A2=1,以后各项具有如下关系：An=An-2+2An-1。本程序对于由键盘输入的整数M(M>5)求出对应的N值，使其满足SnSET TALK OFF
STORE 1 TO A1, A2
S=2
N= 【1】
【2】  “请输入M值(M＞5):” TO M
DO WHILE 【3】
T=A1+2*A2
S=S+T
N=N+1
【4】
【5】
ENDDO
？ "M=", M, "N=", N
SET TALK ON
3．下面程序的功能是判断一个自然数是否是素数，请填空完善该程序。
SET TALK OFF
CLEAR
INPUT “请输入一个大于1的自然数:” TO N
K=.T. &&K的值为.T.表示输入的自然数是素数，为.F.表示不是素数
M=2
DO WHILE M IF MOD(N,M)   【1】
  【2】
     LOOP
 ELSE
   【3】
  【4】  
  ENDIF
ENDDO
  【5】
STR(N)+”是素数”
ENDIF
SET TALK ON

练习题答案

一、建立命令文件，求S=1+3+5+……+99
set talk off
S=0
for I=1 to 99 step 2
S=S+I
EndFor
S

二、建立命令文件，求Ｔ＝1！+2！+……+101！
方法一：
sum=0
j=1
do while j<=101
  I=1
  S=1
  do while I<=j
     S=S*I
     I=I+1
  enddo
  j=j+1
  sum=sum+S
 enddo
sum
方法二：
sum=0
for i=1 to 5
 s=1
 for j=1 to i
  s=s*j
 next
 sum=sum+s
next
sum

三、建立命令文件，显示九九乘法表
clear
set talk off
"************************************************九九乘法表输出程序************************************************"
j=1
do while j<=9
   i=1
   do while i<=j
     str(i,1),"*",str(j,1),"=",str(i*j,2),space(2)
     i=i+1
   enddo
                         &&结束一行
   j=j+1
enddo

四、选择题
1．有Visual FoxPro程序如下
SET  TALK  OFF
DIMENSION  A（6）
K＝2
DO  WHILE  K＜＝6
A(K)=20－2*K
K=K+1
ENDDO
K=5
DO WHILE K>=2
A(K)=A(K)/(A(4)-10)
K=K-1
ENDDO
A(1),A(6)
A(2)
SET TALK ON
RETURN
此程序运行后，第一行输出结果是（ D ）
A） 10  4       B） 10  8     
C） .T. 8        D).F. 8
2．有Visual FoxPro程序如下
SET TALK OFF
CLEAR
STORE 0 TO X，S1，S2，S3
DO WHILE X＜10
X=X+1
DO CASE
CASE MOD(X,2)=0
S1=S1+X/2
CASE INT(X/3)=X/3
S2=S2+X/3
CASE INT(X/2)＜＞X/2
S3=S3+1
ENDCASE
ENDDO
？INT(S1），INT(S2)，S3
SET TALK ON
RETURN
执行上述程序，运行结果是：（A）
A）15   4  3    B）12  23  1
C）15   3   4   D）10  4    6
3．在非嵌套程序结构中,可以使用以LOOP和EXIT语句的基本程序结构是(B)
A）TEXT-ENDTEXT          
B）DO  WHILE-ENDDO
C）IF-ENDIF                       
D）DO  CASE-ENDCASE
4．Visual  FoxPro的应用程序均可由以下基本结构组合而成，它们分别是(A)
A) 顺序结构、选择结构和循环结构     
B) 顺序结构、循环结构和模块结构
C) 逻辑结构、物理结构和程序结构     
D) 分支结构、重复结构和子程序结构

5.在下面程序中，要使程序继续循环，变量K的输入值应为( D  )
DO WHILE .T.
K=″Y″
@ 10,10 GET K
READ
IF UPPER(K) $ ″YN″
EXIT
ENDIF
ENDDO
A）Y或y    B）N或n      C）Y或y或N或n    D）Y、y、N、n之外的任意字符

五、程序填空
1．下面程序的功能是输出如下的图形。请填空使之完善。
        *
    *$*
    *$*$*
  *$*$*$*
*$*$*$*$*
SET TALK OFF
CLEAR
R=1
C=10
DO WHILE 【1】  R<=5
K=1
DO WHILE 【2】C<=2*R-1
【3】A=iif(int(k/2)=k/2,"$","*")
@ R, C SAY A        && 表示从第R行，C列处开始显示A的值
【4】C=C-1
K=K+1
ENDDO
【5】C=10
R=R+1
ENDDO
SET TALK ON
RETURN
2．某级数前两项A1=1,A2=1,以后各项具有如下关系：An=An-2+2An-1。本程序对于由键盘输入的整数M(M>5)求出对应的N值，使其满足SnSET TALK OFF
STORE 1 TO A1, A2
S=2
N= 【1】1
【2】INPUT “请输入M值(M＞5):” TO M
DO WHILE 【3】ST=A1+2*A2
S=S+T
N=N+1
【4】A1=A2
【5】A2=T
ENDDO
？ "M=", M, "N=", N
SET TALK ON
3．下面程序的功能是判断一个自然数是否是素数，请填空完善该程序。
SET TALK OFF
CLEAR
INPUT “请输入一个大于1的自然数:” TO N
K=.T. &&K的值为.T.表示输入的自然数是素数，为.F.表示不是素数
M=2
DO WHILE M IF MOD(N,M)   【1】!=0
  【2】 M=M+1
     LOOP
 ELSE
   【3】 K=.F.
  【4】 EXIT
  ENDIF
ENDDO
  【5】 IF K=.T.
STR(N)+”是素数”
ENDIF
SET TALK ON