湘潭大学visual foxpro课程考试备考习题6.docx
《湘潭大学visual foxpro课程考试备考习题6.docx》由会员分享，可在线阅读，更多相关《湘潭大学visual foxpro课程考试备考习题6.docx（21页珍藏版）》请在冰豆网上搜索。
湘潭大学visualfoxpro课程考试备考习题6
试卷编号：
8242
所属语言：
VisualFoxpro
试卷方案：
VF_1004261709
试卷总分：
100分
共有题型：
8种
━━━━━━━━━━━━━━
一、填空共5题（共计10分）
━━━━━━━━━━━━━━
第1题（2.0分）题号:
1555
在VisualFoxPro中,要浏览表记录,首先用【1】命令打开要操作的表.
答案：
=======（答案1）=======
USE
第2题（2.0分）题号:
910
VisualFoxPro中,用于统计数据库表中的记录个数的函数是【1】.
答案：
=======（答案1）=======
RECCOUNT（）
第3题（2.0分）题号:
1591
在物理排序SORT命令中,参数/A表示【1】.
答案：
=======（答案1）=======
升序排序
=========或=========
升序
第4题（2.0分）题号:
1202
将标签控件的Alignment属性设置为1时,表示文本【1】对齐.
答案：
=======（答案1）=======
右
第5题（2.0分）题号:
1181
复选框控件的Value属性值可以是【1】.
答案：
=======（答案1）=======
10NULL
=========或=========
10
━━━━━━━━━━━━━━
二、判断共9题（共计9分）
━━━━━━━━━━━━━━
第1题（1.0分）题号:
1079
在VisualFoxPro中,您可以同时打开多个数据库,而且在同
一时间内,可以有多个数据库是"当前数据库".
答案：
N
第2题（1.0分）题号:
607
备注型字段用于存放超过256个字符的文本.
答案：
N
第3题（1.0分）题号:
1055
在"文件"下拉菜单中单击"退出"命令可关闭VisualFoxPro.
答案：
Y
第4题（1.0分）题号:
1021
您可以为一个表创建多个索引文件.
答案：
Y
第5题（1.0分）题号:
1004
创建表文件时自动产生一个与表文件同名,扩展名为.FTP的备注文件.
答案：
N
第6题（1.0分）题号:
1056
在VisualFoxPro的数据类型中,数值型字段的计算精度比浮点型高,最长为20位.
答案：
N
第7题（1.0分）题号:
1148
表设计器所创建的索引一定会存储在结构复合索引文件中.
答案：
Y
第8题（1.0分）题号:
814
在VisualFoxPro中,表达式"a"$"Thisisabook!
"的结果是假的.
答案：
N
第9题（1.0分）题号:
1054
在"代码"窗口中,只能编写对象的事件和方法程序代码,
不能查询对象的事件和方法程序代码.
答案：
N
━━━━━━━━━━━━━━━━━
三、单项选择共10题（共计10分）
━━━━━━━━━━━━━━━━━
第1题（1.0分）题号:
3379
在VisualFoxPro中,显示命令窗口的操作正确的是（）.
A:
单击常用工具栏上的"命令窗口"按钮.
B:
单击"窗口"菜单中的"命令窗口"命令
C:
按[Ctrl+F2]组合键
D:
以上方法均可以
答案：
D
第2题（1.0分）题号:
3682
修改数据表中的数据是在（）环境下完成的.
A:
表设计器
B:
表向导
C:
表浏览器
D:
表编辑器
答案：
C
第3题（1.0分）题号:
3281
使用货币类型时,需要数字前加上（）符号.
A:
#
B:
&
C:
*
D:
$
答案：
D
第4题（1.0分）题号:
3241
设已用命令DIMENSIONM（10）定义了一个数组,若要对其中的每
一个元素赋初值为0,则可以使用的命令是（）.
A:
M（10）=0
B:
M
（1）=0
C:
STORE0TOM
D:
STORE0TOM（10）
答案：
C
第5题（1.0分）题号:
3644
数据表中的记录暂时不想使用,为提高数据表的使用效率,
对这些"数据"要进行（）.
A:
逻辑删除
B:
物理删除
C:
不加处理
D:
数据过滤器
答案：
A
第6题（1.0分）题号:
3669
下列（）属性可以设置表单和表单中的对象的外观.
A:
AlwaysOnTop
B:
AutoCenter
C:
BorderStyle
D:
Closable
答案：
C
第7题（1.0分）题号:
3128
对于工具栏的控件的TopLeftWidthHeight属性,在设计和运行时都
为只读的属性有（）.
A:
Top属性和LEFT属性
B:
WIDTH属性和HEIGHT属性
C:
TOP属性和WIDTH属性
D:
HEIGHT属性和LEFT属性
答案：
B
第8题（1.0分）题号:
3633
使用index命令创建候选索引时应选参数（）.
A:
ASCENDING
B:
DESCENDING
C:
CANDIDATE
D:
UNIQUE
答案：
C
第9题（1.0分）题号:
3767
在现实世界中,某种商品的名称对应于计算机世界中的（）.
A:
个体
B:
属性值
C:
数据项
D:
性质
答案：
B
第10题（1.0分）题号:
3860
要使学生数据表中不出现同名学生的记录,在数据库中需要建立（）.
A:
字段有效性限制
B:
属性设置
C:
记录有效性限制
D:
触发器
答案：
D
━━━━━━━━━━━━━━━━
四、多项选择共5题（共计10分）
━━━━━━━━━━━━━━━━
第1题（2.0分）题号:
345
使用USE<表文件名>命令打开表文件时,能同时自动打开的相关文件有（）.
A:
备注文件
B:
独立复合索引文件
C:
结构复合索引文件
D:
内存变量文件
答案：
AC
第2题（2.0分）题号:
254
以下表达式中,合法的是（）.
A:
8-3=5
B:
[8]+[3]>10
C:
AT（"ad","xyadvanad"）-len（"adadad"）
D:
.not.（a=b）.and.a-b>0.or.b=0
答案：
ACD
第3题（2.0分）题号:
339
关于程序（命令）文件,下列说法正确的有（）.
A:
程序文件不再是逐条发出和执行,而是"批处理"方式发出和执行
B:
程序文件是用户和数据之间的一种软件接口
C:
依赖程序文件可以保证数据管理的高效率
D:
程序文件不能相互调用
答案：
ABC
第4题（2.0分）题号:
340
关于工作区以下叙述正确的有（）.
A:
VisualFoxpro系统最多能同时使用32767个工作区
B:
在每个工作区中只能打开一个表
C:
每个工作区中都各有一条记录指针指向该区表的当前记录
D:
工作区既可用数字表示,也可以用字符等表示的别名表示
答案：
ABCD
第5题（2.0分）题号:
338
打开VisualFoxPro"项目管理器"的"文档"（Docs）选项卡,其中
包含的文件类型有（）.
A:
表单（Form）文件
B:
报表（Report）文件
C:
标签（Label）文件
D:
程序（PRG）文件
答案：
ABC
━━━━━━━━━━━━━━━━
五、程序填空共3题（共计15分）
━━━━━━━━━━━━━━━━
第1题（5.0分）题号:
803
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能：
表RSDA.DBF结构为：
姓名（C，6）；性别（C，2），年
*龄（N，2），出生日期（D，8）。
判断表中是否有"李明"，
*查询此人的性别及年龄，确定参加运动会的项目。
*请在【】处添上适当的内容，使程序完整。
*-------------------------------------------------------
SETTALKOFF
USERSDA
***********SPACE**********
【?
】FOR姓名="李明"
***********SPACE**********
IF.NOT.【?
】
DOCASE
CASE性别="男"
?
"请参加爬山比赛"
CASE年龄<=50
?
"请参加投篮比赛"
CASE年龄<=60
?
"请参加老年迪斯科比赛"
***********SPACE**********
【?
】
ELSE
?
"查无此人"
BROWSE
ENDIF
USE
SETTALKON
RETURN
答案：
=======（答案1）=======
LOCATE
=========或=========
LOCA
=======（答案2）=======
EOF（）
=======（答案3）=======
ENDCASE
=========或=========
ENDC
第2题（5.0分）题号:
861
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能:
给定年号与月份，编写程序判断该年是否是闰年，并根据
*给出的月份来判断该月有多少天。
*请在【】处添上适当的内容，使程序完整。
*-------------------------------------------------------
SETTALKOFF
CLEAR
INPUT"请输入年号：
"TOY
INPUT"请输入月号：
"TOM
IFY%4=0ANDY%100<>0ORY%400=0
LYEAR=.T.
?
'是闰年'
ELSE
***********SPACE**********
LYEAR=【?
】
?
'不是闰年'
ENDIF
N=M%7
DOCASE
CASEM=2
IFLYEAR
DAYS=29
ELSE
DAYS=28
ENDIF
***********SPACE**********
CASEM=7ORINT（N/2）【?
】
DAYS=31
***********SPACE**********
CASEN%2【?
】
DAYS=30
ENDCASE
?
STR（Y,4）+'年'+IIF（LYEAR,"是","不是"）+"闰年，"
?
STR（M,2）+'月份有'+STR（DAYS,2）+'天'
SETTALKON
RETURN
答案：
=======（答案1）=======
.F.
=======（答案2）=======
<>1
=========或=========
#1
=========或=========
!
=1
=======（答案3）=======
=0
第3题（5.0分）题号:
856
*-------------------------------------------------------
*【程序填空】
*-------------------------------------------------------
*功能:
有三个数据表文件：
学生入学情况xsqk.dbf、学生成绩
*xscj.dbf、教师情况jsqk.dbf。
*下面程序时生成一个新数据表文件xsqk2.dbf,包括四个
*字段:
姓名、班级、任课教师、课程。
记录是入学时为
*保送生且本学期计算机成绩在90分以上（包括90分）的
*全部学生。
*请在【】处添上适当的内容，使程序完整。
*-------------------------------------------------------
settalkoff
clear
sele3
usejsqk
sele2
usexscj
sele1
usexsqk
***********SPACE**********
joinwithctoxsqk1for【?
】fields姓名,班级,c.任课教师,c.课程
***********SPACE**********
【?
】4
usexsqk1
***********SPACE**********
joinwithbtoxsqk2for姓名=b->姓名.and.b->计算机>=90field【?
】
closedata
settalkon
return
答案：
=======（答案1）=======
班级=c->班级and保送生
=========或=========
保送生and班级=c.班级
=======（答案2）=======
sele
=======（答案3）=======
姓名,班级,任课教师,b->数学,b->计算机
=========或=========
姓名,班级,任课教师,b.数学,b.计算机
━━━━━━━━━━━━━━━━
六、程序改错共3题（共计15分）
━━━━━━━━━━━━━━━━
第1题（5.0分）题号:
752
*-------------------------------------------------------
*【程序改错】
*-------------------------------------------------------
*题目：
在XSDB.DBF表中统计法律和中文两个系的总人数和奖学金总额。
*-------------------------------------------------------
*注意：
不可以增加或删除程序行，也不可以更改程序的结构。
*-------------------------------------------------------
SETTALKOFF
USEXSDB
STORE0TOR,S
DOWHILE.T.
***********FOUND**********
IF系别="法律".AND.系别="中文"
STORES+奖学金TOS
R=R+1
ENDIF
SKIP
***********FOUND**********
IF.NOT.FOUN（）
EXIT
ENDIF
ENDDO
?
S,R
USE
SETTALKON
RETU
答案：
=======（答案1）=======
IF系别="法律".OR.系别="中文"
=========或=========
IF系别="法律"OR系别="中文"
=========或=========
IF系别=[法律].OR.系别=[中文]
=========或=========
IF系别=[法律]OR系别=[中文]
=========或=========
IF系别='法律'.OR.系别='中文'
=========或=========
IF系别='法律'OR系别='中文'
=======（答案2）=======
IFEOF（）
=========或=========
IFNOTEOF（）=.F.
=========或=========
IF!
EOF（）=.F.
=========或=========
IFEOF（）<>.F.
=========或=========
IFEOF=.T.
=========或=========
IF!
EOF（）<>.T.
=========或=========
IFNOT<>.T.
第2题（5.0分）题号:
823
*-------------------------------------------------------
*【程序改错】
*-------------------------------------------------------
*题目:
已有数据库djks.dbf。
包括：
考号、姓名、笔试成绩、上机
*成绩和平均成绩等字段，但各成绩字段为空；另有成绩数据
*库cj.dbf，包括：
考号、考场编号、笔试成绩和上机成绩等
*字段，考生的考试成绩已录入其中。
*请编写程序MODI1.PRG，要求把考生的考试成绩填写到数据
*库djks.dbf中，然后再计算笔试和上机成绩的平均成绩，填
*入各记录的平均成绩字段中。
最后生成一个与djks.dbf结构
*完全相同的不及格数据库bjg.dbf，把平均成绩不及格的考生
*记录移入不及格库。
*-------------------------------------------------------
*注意：
不可以增加或删除程序行，也不可以更改程序的结构。
*-------------------------------------------------------
SETTALKOFF
SETDELETEDOFF
CLEAR
SELEB
USECJ
SELEA
USEDJKS
***********FOUND**********
INDEXTO考号ONDJKS
UPDATEON考号FROMBREPLACE笔试成绩WITHB->笔试成绩,上机成绩WITHB->上机成绩RANDOM
GOTOP
***********FOUND**********
REPLACE平均成绩WITH（笔试成绩+上机成绩）/2
***********FOUND**********
COPYTOBJGFOR平均成绩=60
LIST
USEBJG
LIST
CLOSEDATABASE
SETTALKON
RETU
答案：
=======（答案1）=======
INDEXON考号TODJKS
=======（答案2）=======
REPLACEALL平均成绩WITH（笔试成绩+上机成绩）/2
=======（答案3）=======
COPYTOBJGFOR平均成绩<60
第3题（5.0分）题号:
841
*-------------------------------------------------------
*【程序改错】
*-------------------------------------------------------
*题目:
有如下数据库文件：
*ZY.DBF：
职员号N（3,0），姓名C（6），性别C
（2），职务C（10）；
*DD.DBF：
订单号N（3,0），客户号N（3,0），职员号N（3,0），
*签订日期D（8），金额N（6,2）。
*给定程序MODI1.PRG的功能是：
根据客户号查询该客户的有关
*订单信息，结果按订单金额降序排序，并显示这些定单的总金额。
*修改并调试该程序，使之正确运行。
*-------------------------------------------------------
*注意：
不可以增加或删除程序行，也不可以更改程序的结构。
*-------------------------------------------------------
SETTALKOFF
SETSAFETYOFF
SELECT1
USEzy
INDEXON职员号TOzyi
SELECT2
USEdd
INDEXON-金额TOddi
***********FOUND**********
SETRELATIONON-金额TOA
DOWHILE.T.
CLEAR
KH=202
?
"请输入客户号：
",kh
?
LOCATEFOR客户号=kh
***********FOUND**********
IF.NOT.EOF（）
?
"没有该客户!
"
ELSE
?
"订单号"+"职员"+SPACE（5）+"签订日期"+"金额"
?
s=0
DOWHILE!
EOF（）
?
STR（订单号,3）+SPACE（5）+A->姓名+SPACE（5）+DTOC（签订日期）+""+STR（金额,6,2）
***********FOUND**********
s=金额
CONTINUE
ENDDO
?
?
"总金额为:
"+STR（s,8,2）
ENDIF
?
WAIT"继续查询吗（Y/N）?
"TOp
IF!
UPPER（p）="Y"
EXIT
ENDIF
ENDDO
CLOSEDATA
SETSAFETYON
SETTALKON
RETU
答案：
=======（答案1）=======
SETRELATO职员号INTOA
=========或=========
SETRELATO职员号INTOzy
=======（答案2）=======
IFEOF（）
=========或=========
IF.NOT.FOUND（）
=========或=========
IF.NOT.FOUN（）
=======（答案3）=======
s=s+金额
=========或=========
s=金额+s
=========或=========
STORs+金额TOs
=========或=========
STOR金额+sTOs
━━━━━━━━━━━━━━━━
七、程序设计共2题（共计10分）
━━━━━━━━━━━━━━━━
第1题（5.0分）题号:
739
*-------------------------------------------------------
*【程序设计】
*-------------------------------------------------------
*题目：
编程计算正整数num的各位上的数字之积。
*例如，若输入：
252，则输出应该是：
20。
*将结果存入变量OUT中。
*请按照题目要求，在下面编写程序代码。
*-------------------------------------------------------
SETTALKON
SETLOGERRORSON
?
"输入正整数num=434"
num=434
OUT=-1
**********Program**********
**********End**********
DOYZJWITHOUT
SETLOGE
升级会员 