vfp程序练习
- 格式：doc
- 大小：121.00 KB
- 文档页数：10
1 程序练习一
一、单项选择题
1．组成Visual FoxPro 应用程序的基本结构是（ ）。
A）顺序结构 分支结构和模块结构
B）顺序结构 分支结构和循环结构
C）逻辑结构 物理结构和程序结构
D）分支结构 重复结构和模块结构
2．在Visual FoxPro 中，命令文件的扩展名是（ ）。
A）TXT B）PRG C）DBF D）FMT
3．用于声明某变量为全局变量的命令是（ ）。
A）With B）Private C）Public D）Parameters
4．能接受一位整数并存放到内存变量Y 中的正确命令是（ ）。
A）Wait To Y B）Accept To Y C）Input To Y D）? Y
5．Visual FoxPro 中的Do Case Endcase 语句属于（ ）。
A）顺序结构 B）循环结构 C）分支结构 D）模块结构
6．在“先判断再工作”的循环程序结构中，循环体执行的次数最少可以是（ ）。
A）0 B）1 C）2 D）不确定
7．若将过程或函数放在过程文件中,可以在应用程序中使用（ ）命令打开过程文件。
A）Set Procedure To ＜文件名>
B）Set Function To ＜文件名>
C）Set Program To ＜文件名>
D）Set Routine To ＜文件名>
8．在Visual FoxPro 程序中,注释行使用的符号是( )
A）// B）* C）’ D）{ }
9．Visual FoxPro 循环结构设计中，在指定范围内扫描表文件，查找满足条件的记录并执行循环体中的操作命令, 应使用的循环语句是（ ）。
A）For B）While C）Scan D）以上都可以
10．假设有如下程序:
Clear
Use Gz
Do While !Eof( )
If 基本工资>=800
Skip
Loop
Endif Display
Skip
Enddo
Use
Return
该程序实现的功能是( )
A）显示所有基本工资大于800 元的职工信息
B）显示所有基本工资低于800 元的职工信息
C）显示第一条基本工资大于800 元的职工信息
D）显示第一条基本工资低于800 元的职工信息
11．执行下列程序：
Store 0 To X, Y
Do While X<20
X=X+Y
Y=Y+2
Enddo
?X, Y
Return
在屏幕上显示的输出结果是( )。
A）20 10 B）10 20 C）20 22 D）22 20
12．执行下列程序后, 变量X 的值为( )。
Public X
X=5
Do Sub
?”X=”, X
Return
Procedure Sub
Private X
X=1
X=X*2+1
Return
A）5 B）6 C）7 D）8
13．下面程序的运行结果是( )。
Dimension A( 6 )
For K=1 To 6
A( K )=30-3*K
Endfor
K=5 Do While K>=1
A( K )= A( K )- A( K+1 )
K=K-1
Enddo
?A( 2 ) , A( 4 ) , A( 6 )
Set Talk On
Return
A）12 15 18 B）18 12 15 C）18 15 12 D）15 18 12
14．Loop 语句不能出现在仅有( )语句的程序段中
A）Do Enddo B）If Endif
C）For Endfor D）Scan Endscan
15．程序如下：
S=0
I=1
Do While I<4
Accept “请输入字符串: ” To X
If “A” $ X
S=S+1
Endif
I=I+1
Enddo
?S
Return
运行时输入 “abcd”, “ABCD”, “aBcD ”, 输出S 的值是( )
A）1 B）2 C）3 D）4
16．设表文件CJ.DBF 中有两条记录, 内容如下：
记录号 XM ZF
1 王燕 300.00
2 李明 500.00
此时, 运行以下程序的结果应当是( )
Use cj
m->zf=0
Do While .Not. Eof( )
m->zf=m->zf+zf
Skip
Enddo
?m->zf
Return
A）800.00 B）500.00 C）300.00 D）200.00 2 17．有如下Visual FoxPro 程序：
**主程序zcx.prg **子程序 zcx1.prg
Clear k1=k1+’500’
k1=’25’ Return
?k1
Do zcx1
?k1
Return
用命令Do zcx 运行程序后, 屏幕显示的结果为( )。
A）25 B）25 C）25 D）25
500 525 25500 25
18．设表文件XSCJ.DBF 中有8000 条记录, 其文件结构是：姓名(C, 8), 成绩(N, 5, 1)。运行以下程序, 屏幕上将显示( )。
Use XSCJ
J=0
Do While .Not. Eof( )
J=J+成绩
Skip
Enddo
?’平均分:’+Str(J/8000, 5, 1)
Return
A）平均分：Xxx.X(X 代表数字) B）数据类型不匹配
C）平均分：J/8000 D）字符串溢出
19．执行如下程序
Store “ ” To ans
Do While .T.
Clear
? “1.添加 2.删除 3.修改 4.退出”
Accept “请输入选择: ” To ans
If Val(ans)<=3 .And. Val(ans)<>0
Prog=“Prog”+Ans+“.Prg”
Do &Prog
Endif
Quit
Enddo
Return
如果在屏幕上显示 “请输入选择: ” 时, 输入4, 则系统将
A）调用子程序PROG4.PRG B）调用子程序&PROG.PRG
C）返回Visual Foxpro 主窗口 D）返回操作系统状态 20．有如下Visual Foxpro 程序：
**主程序：Z.PRG **子程序：Z1.PRG
Clear X2=X2+1
Store 10 To X1, X2, X3 Do Z2
X1=X1+1 X1=X1+1
Do Z1 Return
?X1+X2+X3 **子程序:Z2.Prg
Return X3=X3+1
Return To Master
执行命令Do Z 后, 屏幕显示的结果为( )
A）33 B）32 C）31 D）30
21．下列程序的运行结果是( )。
Store 0 To M, N
Do While M<30
N=N+3
M=M+N
Enddo
?M, N
Return
A）30 12 B）12 30 C）45 15 D）15 45
22．在下列程序中, 如果要使程序继续循环, 变量M 的输入值应为( )。
Do While .T.
Wait “M=” To M
If Upper(M) $ “YN”
Exit
Endif
Enddo
A）Y 或y B）N 或n
C）Y, y 或N, n D）Y, y, N, n 之外的任意字符
23．下列程序执行时, 在键盘上输入9, 则屏幕上的显示结果是( )。
Input “X=” To X
Do Case
Case X>10
? “Ok1”
Case X>20
? “Ok2”
Othewise
? “Ok3” Endcase
A）“OK1” B）OK1 C）OK2 D）OK3
24．设某程序中有PROG1.prg、PROG2.prg、PROG3.prg 三个程序依次嵌套，下面叙述中正确的是（ ）。
A）在PROG1.prg 中用！Run PROG2.prg 语句可以调用PROG2.prg
子程序
B）在PROG2.prg 中用Run PROG3.prg 语句可以调用PROG3.prg
子程序
C）在PROG3.prg 中用Return 语句可以返回PROG1.prg 主程序
D）在PROG3.prg 中用Return To Master 语句可以返回PROG1.prg
主程序
25．执行下列程序：
Clear
Store 1 To I, A, B
Do While I<=3
Do Prog1
??"P("+Str(I, 1)+")="+Str(A, 2)+","
I=I+1
Enddo
??"B="+Str(B, 2)
Return
Procedure Prog1
A=A*2
B=B+A
Return
程序的运行结果为（ ）。
A）P（1）=2，P（2）=3，P（3）=4，b=15
B）P（1）=2，P（2）=4，P（3）=6，b=8
C）P（1）=2，P（2）=4，P（3）=6，b=18
D）P（1）=2，P（2）=4，P（3）=8，b=15
二、阅读程序题
1．写出下列程序运行结果。
Store 0 To N, S
Do While .T.
N=N+1
S=S+N
If N>11 Exit
