vfp复习程序.docx
《vfp复习程序.docx》由会员分享，可在线阅读，更多相关《vfp复习程序.docx（15页珍藏版）》请在冰豆网上搜索。
vfp复习程序
1、已有职工登记库ZGDJ.DBF，记录如下：
RECORD#XMXBZCJBGZHF
1王非女助教1500.T.
2刘华男工程师2500.F.
3周发男教授3000.T.
4李丽女讲师2200.F
请编写一程序，计算最大基本工资的值。
USEZGDJ
MAX=JBGZ
N=RECCOUNT
FORI=2TON
GOi
IFMAX_______________
ENDIF
ENDFOR
?
"MAX=",MAX
A）MAX=JBGZB）SKIPC）REC=RECNO（）D）MAX=2500
2、编写一程序,从键盘输入某职工工号并查找显示库文件AA.DBF（包含字段工号,年龄,工资）中该记录.
CLEAR
SETTALKOFF
DOWHILE.T.
ACCEPT"输入职工工号"TOBB
USEAA
LOCATEFOR_______
DISP
IFBB=“00”
EXIT
ENDIF
ENDDO
RETU
二、运行程序题
1、本程序运行后，输出结果是（）
a=10c=d
b=11a=c
c=12endif
d=13?
a
ifb>a
A）10B）11C）12D）13
2、本程序是否有错
s=3.14*r*r
r=6
?
"圆面积=",s
3、本程序是否有错。
r=6
s=3.14*r*h
?
"圆面积=",s
4、运行下面程序，b值是多少？
a=10
ifa>5
b=a
endif
?
b
A）5B）10C）aD）b
5、运行下面程序，b值是多少？
b=c
otherwise
b=5
endcase
?
b
a=30
b=20
c=10
docase
casea<10
b=a
casea>=10
A）30B）20C）10D）5
19.下面这个程序，如果程序执行了Loop语句，下一步执行哪一句（）
store0toi,s,t
dowhilei<100
i=i+1
s=s+i
ifint（i/2）=i/2
loop
endif
t=t+i
enddo
A）endifB）ifint（i/2）=i/2
C）store0toi,s,tD）dowhilei<100
21.下面这个程序，S的最终值是（），T的最终值是（），i的最终值是（）
store0toi,s,t
dowhilei<100
i=i+1
s=s+i
ifint（i/2）=i/2
loop
endif
t=t+i
enddo
A）1至100的累加和B）1至100的奇数和
C）1至100的偶数和D）100
42．在下列程序中填写适当的语句程序完整。
输入变量N，当N>0时,显示AAA.DBF的内容,当N<=0时,显示BBB.DBF的内容。
SETTALKOFF
INPUTTON
IFN>0
USEAAA
LIST
ELSE
USEBBB
LIST
ENDIF
_____
RETURN
A）USEB）OPENC）MODIFILED）INDEXON
43．将变量N的值从0开始,逐次加2,加到98为止.
SETTALKOFF
N=0
DOWHILE.T.
IFN>=98
_____
ENDIF
N=N+2
ENDDO
?
"N="+STR（N,3）
RETURN
A）LOOPB）EXITC）ENDDOD）EOF
44．任意输入20个数,找出最大数和最小数.
SETTALKOFF
INPUTTOX
MA=X
MI=X
N=1
DOWHILEN<=20
_____TOX
IFMAMA=X
ELSE
IFMI>X
MI=X
ENDIF
ENDIF
N=N+1
ENDDO
?
MA,MI
RETU
A）INPUTB）ACCEPTC）WAITD）FIELDS
45．写出下面程序在键盘输入1234时的运行的结果。
Clear
Input“a=”toa
P=str（a）
B=len（p）
Pp=””
Fori=1tob
P1=substr（p,I,1）
Pp=p1+pp
Endfor
?
pp
46.补充下列程序实现下图所示的结果。
SETTALKOFF
CLEAR*
DOWHILEI<5***
J=1*****
DOWHILE______*******
@I,27-I+JSAY"*"
J=J+1
ENDDO
I=I+1
ENDDO
SETTALKON
RETU
A）J<=1B）J=1C）J=2*1D）J<=2*I-1
48．SETTALKOFF
STORE0TOX,Y
DOWHILE.T.
X=X+1
Y=Y+X
IFX>=5
EXIT
ENDIF
ENDDO
?
X,Y
RETURN
程序运算结果是_______
A）515B）325C）520D）X>=20
49．本程序是求N!
（N的阶乘）的值，留有一句未写，请选择一个答案。
SETTALKOFF
______
FORY=1TON
P=P*Y
ENDFOR
RETU
A）P=P*XB）P=1C）Y=1D）Y=0
50．当X取值不同时，求Y的值，并完成如下程序。
Y=X+5当8<=X<=16
Y=X*（X+2）+8当X>16
SETTALKOFF
INPUTTOX
Y=IIF（X<8,"无意义",IIF（_____,X+5,X*（X+2）+8））
?
Y
SETTALKON
RETU
A）X<=8.AND.X>=16B）X>=8.AND.X>=16
C）X>=8.AND.X<=16D）X>=8.OR.X<=16
51．现有两程序A.PRG，B.PRG，试分析执行后显示的内容。
*A.PRG
M=1
N=2
DOB
?
"M=",M,"N=",N
RETURN
*B.PRG
PRIVATEM
M=3
N=4
RETURN
执行DOA后，显示M=1,N=_________。
A）2B）7C）4D）3
53．试写出程序执行后的结果:
SETTALKOFF
STORE0TOM
FORN=1TO8
M=M+N
ENDFOR
?
"M=",M
结果为__________.
A）36B）35C）30D）26
54．下列程序运行结果是：
（）
settalkoff
clear
store0tom,n
dowhilem<=10
m=m+1
ifmod（m,2）=1
loop
else
n=n+m
endif
enddo
?
"n=",n
return
A）29B）31C）30D）32
55．本程序的功能是计算并输出7!
（7的阶乘）的值，留有一句未写，请选择一个答案，使程序完整。
SETTALKOFF
CLEAR
N=1
K=1
DOWHILEN<=7
K=N*K
N=__________
ENDDO
?
"K=",K
A）N+1B）N+LC）N+3D）N+2
60．SETTALKOFF
CLEAR
X=0
I=1
DOWHILEI<=10
X=X+1
I=I+1
ENDDO
?
X
SETTALKON
运行结果为：
____________.
A）9B）10C）11D）1
三、判断题（34题）
8.下面一段程序，输出的X值为5
m=5
x="m"
?
x
9.下面一段程序，输出的X值为5
m=5
x="m"
?
&x
11.下一段程序运行后，输出X的值是10
clea
x=10
doaawithx
?
"x=",x
return
procedureaa
parametersbb
bb=20
return
12.下一段程序运行后，Y值为2。
x=8
y=int（x/3）
?
y
13.下列程序运行后，a的值是12.57。
clea
a=0
dobwith2,a
?
a
return
procedureb
parameterc,d
d=c*c*pi（）
return
18.循环一定要有出口，否则就是死循环。
下面这个程序不是死循环。
clea
a=1
dowhilea>0
b=2*a
ifb<3
?
b
loop
endif
enddo
31.if4=4and5>2+3
x="T"
else
x="F"
endif
X的输出值是T
32.下列程序的输出结果是不是AAA
if2*4>=9
?
"AAA"
else
?
"BBB"
endif
33.下面这段程序的结构是循环结构。
当前月份=month（date（））
docase
caseinlist（当前月份,3,4,5）
季节="春"
caseinlist（当前月份,6,7,8）
季节="夏"
caseinlist（当前月份,9,10,11）
季节="秋"
caseinlist（当前月份,12,1,2）
季节="冬"
otherwise
?
"不可能"
endcase
34.下面这段程序的结构是顺序结构
clea
s=0
fori=1to100
s=s+i
?
"s=",s
endfor
四、程序题填空题
1．阅读下列程序：
STORE0TOX，Y
DOWHILE.T.
X=X+1
Y=Y+X
IFX>=4
EXIT
ENDIF
ENDDO
?
"Y="+STR（Y，2）
这个程序执行后结果是_______。
2．以下是从键盘输入10个实数,统计其中最大数的程序:
SETTALKOFF
K=1
INPUT“请输入第一个数:
”TOX
Y=X
DOWHILEK<=_______
INPUT"请输入下一个数:
"TOX
IFYY=X
ENDIF
K=K+1
ENDDO
?
"最大数=",Y
SETTALKON
RETU
3．在当前盘当前目录下有一命令文件AA.PRG和MAIN.PRG,其内容如
升级会员 