2015年计算机二级VFP模拟试题及参考答案（2）
发布时间：2012/5/18 9:21:20 来源：城市网学院 编辑：ziteng
练习题
一、建立命令文件，求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 MIF MOD(N,M) 【1】
【2】
LOOP
ELSE
【3】
【4】
ENDIF
ENDDO
【5】
STR(N)+”是素数”
ENDIF
SET TALK ON [NextPage] 答案
一、建立命令文件，求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之外的任意字符 [NextPage] 五、程序填空
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 MIF 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
