湘潭大学visual foxpro课程考试备考习题13.

试卷编号：8249
所属语言：Visual Foxpro
试卷方案：VF_1004261709
试卷总分：100分
共有题型：8种
━━━━━━━━━━━━━━
一、填空共5题（共计10分）
━━━━━━━━━━━━━━
第1题（2.0分）题号:1140
查询设计器中的"连接"选项卡,可以控制【1】选择.
答案：
=======(答案1)=======
连接类型
第2题（2.0分）题号:1500
以分屏输出方式显示表结构的命令是【1】.
答案：
=======(答案1)=======
DISPLAY STRUCTURE
第3题（2.0分）题号:1514
在ORDER BY子句的选择项中,省略DESC时,代表【1】输出.
答案：
=======(答案1)=======
升序
第4题（2.0分）题号:1222
利用表单的caption属性,可以改变表单的【1】.
答案：
=======(答案1)=======
标题
第5题（2.0分）题号:1519
在SQL SELECT语句中,为了将查询结果存放到文本文件中应该使用【1】短语.
答案：
=======(答案1)=======
TO FILE
━━━━━━━━━━━━━━
二、判断共9题（共计9分）
━━━━━━━━━━━━━━
第1题（1.0分）题号:1137
在Visual FoxPro中,使用命令delete、pack和zap都可以将记录从数据库中删除. 答案：N
第2题（1.0分）题号:586
Visual FoxPro的浮点字段与数值字段相类似,只有数字,小数点及整数
,而不带正、负号.
答案：N
第3题（1.0分）题号:1106
查询程序文件的扩展名为.qpe.
答案：N
第4题（1.0分）题号:1018
每个对象在系统中都有唯一的对象标识.
答案：Y
第5题（1.0分）题号:1047
一个空数据库被打开后,执行?BOF()结果为.T.,执行?EOF()结果为.F..
答案：N
第6题（1.0分）题号:1049
用delete和ZAP删除的记录都不能恢复.
答案：N
第7题（1.0分）题号:1041
系统内存变量的数据是不能改变的.
答案：N
第8题（1.0分）题号:1064
在Visual FoxPro中,可利用附件组的画图将图像送到剪贴板,然后粘贴
到通用字段中.
答案：Y
Visual FoxPro中,工作区号用1-255表示,系统的工作区别名用A-Z表示. 答案：N
━━━━━━━━━━━━━━━━━
三、单项选择共10题（共计10分）
━━━━━━━━━━━━━━━━━
第1题（1.0分）题号:3297
下列常量中,只占用内存空间1个字节的是().
A:数值型常量
B:字符型常量
C:日期型常量
D:逻辑型常量
答案：D
第2题（1.0分）题号:3379
在Visual FoxPro中,显示命令窗口的操作正确的是().
A:单击常用工具栏上的"命令窗口"按钮.
B:单击"窗口"菜单中的"命令窗口"命令
C:按[Ctrl+F2]组合键
D:以上方法均可以
答案：D
第3题（1.0分）题号:3246
设有变量pi=3.1415926,执行命令?ROUND(pi,3)的显示结果为().
A:3.141
B:3.142
C:3.140
D:3.000
答案：B
第4题（1.0分）题号:3065
DBAS指的是().
A:数据库管理系统
B:数据库系统
C:数据库应用系统
D:数据库服务系统
答案：C
设当前数据库文件中含有字段NAME,系统中有一内存变量的名称也为NAME,下面命令?NAME显示的结果是().
A:内存变量NAME的值
B:字段变量NAME的值
C:与该命令之前的状态有关
D:错误信息
答案：B
第6题（1.0分）题号:3659
索引字段值不唯一,应该选择的索引类型是().
A:主索引
B:普通索引
C:候选索引
D:唯一索引
答案：B
第7题（1.0分）题号:3673
下列关于关系模型的参照完整性规则的描述,错误的是().
A:外键和相应的主键需定义在相同值域上
B:外键和相应的主键可以不同名
C:参照关系模式和依赖关系模式可以是同一个关系模式
D:外键值不可以为空值
答案：D
第8题（1.0分）题号:3760
在使用restore from 命令时,为了使内存中原来的变量不会
因恢复操作而被清除,应选参数().
A:add
B:additive
C:all like
D:all except
答案：B
第9题（1.0分）题号:3605
关系数据库中,实现主码标识元组的作用是通过().
A:实体完整性规则
B:参照完整性规则
C:用户自定义的完整性
D:属性的值域
答案：A
第10题（1.0分）题号:3996
给出以下程序的运行结果:
SET TALK OFF
X=0
Y=0
DO WHILE X<10
X=X+1
IF INT(X/2)=X/2
LOOP
ELSE
Y=Y+X
ENDIF
ENDDO
?″Y=″,Y
RETURN
运行结果为().
A:Y=5
B:Y=15
C:Y=20
D:Y=25
答案：D
━━━━━━━━━━━━━━━━
四、多项选择共5题（共计10分）
━━━━━━━━━━━━━━━━
第1题（2.0分）题号:336
在下面的Visual FoxPro表达式中,正确的是(). A:{^2002-05-01 10:10:10 AM}-10
B:{^2002-05-01}-DATE()
C:{^2002-05-01}+DATE()
D:{^2002-05-01}+1000
答案：ABD
第2题（2.0分）题号:252
Visual Foxpro中的表达式有().
A:算术表达式
B:字符表达式
C:关系表达式
D:逻辑表达式
答案：ABCD
第3题（2.0分）题号:350
在Visual Foxpro系统中,能移动记录指针的命令有().
A:LIST
B:CONT
C:GO
D:SKIP
答案：ABCD
第4题（2.0分）题号:342
命令文件中可以实现单击一键输入一个字符的命令或函数有(). A:wait
B:input
C:inkey()
D:@x,x get VER pict 'x'
答案：ACD
第5题（2.0分）题号:341
关于记录的逻辑删除,叙述正确的有().
A:逻辑删除的记录还可以恢复
B:逻辑删除的记录还可以浏览
C:逻辑删除的记录还可以替换
D:逻辑删除的记录等待一段时间后,自动永久删除
答案：ABC
━━━━━━━━━━━━━━━━
五、程序填空共3题（共计15分）
━━━━━━━━━━━━━━━━
第1题（5.0分）题号:837
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能: 1982年我国第三次人口普查，结果全国人口为10.3亿，* 假如人口增长率为5%。

编写一个程序求在公元多少年总* 人口翻了一番。

* 请在【】处添上适当的内容，使程序完整。

*-------------------------------------------------------
SET TALK OFF
CLEAR
P1=10.3
N=1
R=0.05
P2=P1*(1+R)
***********SPACE**********
DO WHILE P2<=【?】
***********SPACE**********
N=【?】
***********SPACE**********
P2=P2【?】(1+R)
ENDD
N=1982+N
? N,"年人口总数翻了一番"
SET TALK ON
RETURN
答案：
=======(答案1)=======
2*P1
=======(答案2)=======
N+1
=========或=========
1+N
=======(答案3)=======
*
第2题（5.0分）题号:822
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能: 在数据表学生.DBF中，将"姜冰"同学的名字修改成"江冰" * 请在【】处添上适当的内容，使程序完整。

*-------------------------------------------------------
SET TALK OFF
clear
use 学生
***********SPACE**********
locate for 姓名=【?】
if found()
***********SPACE**********
【?】
list memo like x
x(2)="江冰"
gather from x
clear
list
***********SPACE**********
【?】
?"对不起,没有江冰这个人"
endif
close all
SET TALK ON
RETURN
答案：
=======(答案1)=======
"姜冰"
=========或=========
'姜冰'
=========或=========
[姜冰]
=======(答案2)=======
scat to x
=======(答案3)=======
else
第3题（5.0分）题号:811
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能：通过循环程序，输出"九九"表
*
*1X1= 1
*1X2= 2 2X2= 4
*1X3= 3 2X3= 6 3X3= 9
*1X4= 4 2X4= 8 3X4=12 4X4=16
*1X5= 5 2X5=10 3X5=15 4X5=20 5X5=25
*1X6= 6 2X6=12 3X6=18 4X6=24 5X6=30 6X6=36
*1X7= 7 2X7=14 3X7=21 4X7=28 5X7=35 6X7=42 7X7=49
*1X8= 8 2X8=16 3X8=24 4X8=32 5X8=40 6X8=48 7X8=56 8X8=64
*1X9= 9 2X9=18 3X9=27 4X9=36 5X9=45 6X9=54 7X9=63 8X9=72 9X9=81 * 请在【】处添上适当的内容，使程序完整。

*-------------------------------------------------------
SET TALK OFF
FOR N=1 TO 9
***********SPACE**********
【?】
***********SPACE**********
【?】
***********SPACE**********
?? STR(M,1)+ "×"+STR(N,1)+ "="+【?】+ " "
ENDFOR
ENDFOR
SET TALK ON
RETURN
答案：
=======(答案1)=======
?
=======(答案2)=======
FOR M=1 TO N
=======(答案3)=======
STR( N * M )
=========或=========
STR (M * N)
=========或=========
STR( N * M )
=========或=========
STR(M * N)
━━━━━━━━━━━━━━━━
六、程序改错共3题（共计15分）
━━━━━━━━━━━━━━━━
第1题（5.0分）题号:786
*-------------------------------------------------------
*【程序改错】
*-------------------------------------------------------
*题目：显示XSDB.DBF中每个学生的姓名、计算机成绩和等级；等
* 级划分如下：计算机成绩大于等于90显示"优秀"；60到89
* （包括60和89）之间显示"及格"；60分以下显示"补考"。

* 如显示：张丽娜90 优秀。

*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。

*-------------------------------------------------------
SET TALK OFF
USE XSDB
DO WHIL .NOT. EOF()
***********FOUND**********
LIST 姓名,计算机
DO CASE
CASE 计算机>=90
??'优秀'
CASE 计算机>=60
??'及格'
OTHERWISE
??'补考'
ENDCASE
***********FOUND**********
GO NEXT
ENDDO
USE
SET TALK ON
RETU
答案：
=======(答案1)=======
?姓名,计算机
=========或=========
DISP姓名,计算机
=========或=========
DISPLAY姓名,计算机
=======(答案2)=======
SKIP
第2题（5.0分）题号:820
*-------------------------------------------------------
*【程序改错】
*-------------------------------------------------------
*题目:已有数据库djks.dbf。

请编写程序modi1.PRG，在程序中首
* 先通过复制djks.dbf生成一个具有考号、姓名、笔试及上* 机四个字段的数据库文件aaa.dbf(只有结构)，然后再修改* 其结构，把考号字段改为数值型8个字符宽、姓名字段改为* 8个字符宽。

要求必须使用：copy to <结构文件名>
* structure extended 和create <生成库文件名> from
* <结构文件名>命令实现，使用其它方法不得分。

*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。

*-------------------------------------------------------
set talk off
clear
clos data
use djks
copy stru to aaa fiel 考号,姓名,笔试,上机
USE AAA
***********FOUND**********
COPY STRU TO BBB
USE BBB
LOCA FOR FIELD_NAME='考号'
***********FOUND**********
REPL TYPE WITH 'N',FIELD_LEN WITH 8
LOCA FOR FIELD_NAME='姓名'
REPL FIELD_LEN WITH 8
***********FOUND**********
CREATE AAA to BBB
use aaa
list stru
clos data
set talk on
RETU
答案：
=======(答案1)=======
COPY STRU TO BBB EXTENDED
=======(答案2)=======
R EPLF IELD_TYPE WITH 'N',FIELD_LEN WITH 8
=======(答案3)=======
CREATE AAA FROM BBB
第3题（5.0分）题号:828
*-------------------------------------------------------
*【程序改错】
*-------------------------------------------------------
*题目:已有两个数据库文件：材料代码cldm.dbf和材料发票
* clfp.dbf。

* 给定程序MODI1.PRG的功能是：将列出材料代码cldm.dbf文* 件中没有出现在材料发票clfp.dbf中的所有记录。

*-------------------------------------------------------
*注意：不可以增加或删除程序行，也不可以更改程序的结构。

*-------------------------------------------------------
SET TALK OFF
SET SAFETY OFF
SET DELETED OFF
SELECT 1
USE CLFP
SELECT 2
USE CLDM
DO WHILE !EOF()
SELECT 1
***********FOUND**********
SEEK 材料代码
***********FOUND**********
IF FOUND()
SELECT 2
DELETE
ENDIF
SELECT 2
SKIP
ENDDO
***********FOUND**********
LIST FOR DELE
RECALL ALL
CLOSE DATA
SET TALK ON
RETURN
答案：
=======(答案1)=======
LOCA FOR 材料代码=CLDM->材料代码
=========或=========
LOCA FOR 材料代码=B->材料代码
=========或=========
LOCA FOR CLDM->材料代码=材料代码
=========或=========
LOCA FOR B->材料代码=材料代码
=======(答案2)=======
IF .NOT.FOUN()
=========或=========
IF EOF()
=======(答案3)=======
LIST FOR DELE ()
=========或=========
DISP FOR DELE ()
=========或=========
DISP ALL FOR DELE ()
=========或=========
LIST ALL FOR DELE ()
━━━━━━━━━━━━━━━━
七、程序设计共2题（共计10分）
━━━━━━━━━━━━━━━━
第1题（5.0分）题号:713
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：编程求一分数序列2/1，3/2，5/3，8/5，13/8, * 21/13…的前20项之和。

* 将结果存入变量OUT中。

* 请按照题目要求，在下面编写程序代码。

*-------------------------------------------------------
SET TALK ON
SET LOGERRORS ON
OUT=-1
**********Program**********
********** End **********
DO YZJ WITH OUT
SET LOGERRORS OFF
SET TALK OFF
答案：----------------------
f1=1
f2=1
s=0
for i=1 to 20
f3=f1+f2
f1=f2
f2=f3
s=s+f2/f1
endf
out=s
? out
----------------------
第2题（5.0分）题号:677
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：输出下面图形：（要求使用For语句，利用双重循环语句）* *
* * *
* * * *
* * * * *
* 请按照题目要求，在下面编写程序代码。

*要求：将输出第三行的所有字符存入变量S中
*-------------------------------------------------------
CLEAR
SET TALK OFF
SET LOGERRORS ON
S=""
**********Program**********
********** End **********
DO YZJ6 WITH S
SET TALK ON
CANCEL
答案：----------------------
for i=1 to 4
for j=1 to i
??"* "
endfor
?
endfor
S="***"
----------------------
━━━━━━━━━━━━━━━━━━
八、VF窗体设计共2题（共计21分）
━━━━━━━━━━━━━━━━━━
第1题（11.0分）题号:79
一、基本操作题
1、建立自由表＇货运表＇(不要求输入数据)，表结构为：
货号字符型(5)
车辆号字符型(5)
数量数值型（5,2）
司机姓名字符型（10）
二、简单应用题
1、在订货管理数据库中建立视图＇视图l＇，包括表＇订货信息＇中的所有字段，并按＇公司编号＇按升序排序，＇公司编号＇相同的，按＇订单号＇排序。

2、建立表单form1，在表单上添加＇表格＇控件，数据源使用Sql语句“select * from 货运表”。

第2题（10.0分）题号:56
---------------------------------------------------------------------
运行状态(如图1)
编辑状态(如图2)
制作如图所示表单。

---------------------------------------------------------------------
设置：
1、设置表单名称为“Form1”，标题为“Form1”。

2、在窗体内添加4个Label控件，名称分别为：Label1、Label
3、Label
4、Label5。

添加3个TextBox控件，名称分别为：Text1、Text2、Text3。

添加1个CommandButton控件，名称为：Command1。

3、设置Label1的标签内容为“猜数游戏”，字体为：隶书、20号字。

设置Label3的标签内容为“猜得的数：”，字体为：宋体、12号字。

设置Label4的标签内容为“结论提示：”，字体为：宋体、12号字。

设置Label5的标签内容为“猜数次数：”，字体为：宋体、12号字。