《数据库基础及应用》综合测试（三）

《数据库基础及应用》综合测试（三）

一、单选

1.VFP字符型字段的最大宽度是（ ）

A.8 B.20 C.254 D.255 2.关系型数据库中的关系体现为（ ）

A.二维表 B.字段 C.记录 D.索引

3.在菜单设计器中，若要为“文件”菜单项定义访问键F，正确的定义是（ ） A.&F B.

A.add table xscj B.add xscj C.create table xscj D.create xscj 5.使用SQL语句向学生表student.dbf添加一条新记录，正确的命令是（ ）

A.append into student (no,xm) values student(“0613”,“张佳”) B.append into student values student(“0613”,“张佳”)

C.insert into student (no,xm) values(“0613”,“张佳”) D.insert into student values student(“0613”,“张佳”) 6.若要弹出如图所示的对话框，正确的函数是（ ） A. messagebox(\真的要退出吗？\中英文录入技术训练\B. messagebox(\中英文录入技术训练\真的要退出吗？\C. messagebox(\真的要退出吗？\中英文录入技术训练\D. messagebox(\中英文录入技术训练\真的要退出吗？\7.若使命令按钮command1获得焦点，正确的命令是（ ） A. thisform.command1.refresh B. thisform.command1.gotfocus C. thisform.command1.setfocus D. thisform.command1.lostfocus 二、填空

1.在VFP中，将2007年6月8日用严格日期格式表示是 {^2007/06/08} 。

2.若在某个工作区中使用use student alias st命令打开数据表，要选择该工作区的命令是 select st 。

3.在查询结果中若不显示重复的数据记录，则应在查询设计器的 杂项 选项卡中选取“无重复记录”选项。

4.在进行表记录指针测试时，若函数eof()和bof()的值都为.T.，则这时函数recno()的值是 1 。 5.在VFP的报表设计器中，若要制作所有学生信息清单的报表，则姓名、性别、出生日期等字段变量应放在 细节 带区中。

6.在VFP中，生成一个0-9的随机整数的表达式是 rand()*10 。 三、程序填空

1.使用SQL语句在成绩表cj.dbf中增加一个“总分N（5，1）”字段，计算总分字段值（总分=文化课+专业课），然后逻辑删除总分小于300分的记录。 Alter table cj add 总分N（5，1）

1

Use cj

Update cj set总分=文化课+专业课 Delete from Cj Where 总分<300

2.在如图所示的表单form1中，选择选项按钮组中的选项按钮，按“确定”按钮后，在标签label1中显示相应信息。“确定”按钮的click事件代码是： K=thisform.optiongroup1. value Do case Case k=1

S=“电视机” Case k=2

S=“电冰箱” Case k=3

S=“微波炉” Endcase

Thisform.label1. caption=s Thisform.refresh

3.下面程序是帮助交警从车辆档案表da.dbf中检索出所有可能的交通肇事车辆，为破案提供依据。在da.dbf表中含有车牌号“cph C(6)”字段和标记“bj N(1,0)”字段。由于现场目击者未完全看清肇事的车牌号，因此，在输入6位车牌号时，看不清的号码可以用“？”表示。最后，输出所有可能的车牌号。 Clear Use da Num=0

Replace all bj with 0

Accept “请输入车牌号码：”to hm For k=1 to 6

C=substr(hm,k,1) If c#“？”

Replace all bj with bj+1 for substr(cph,k,1)=c Else

Num=num+1 Endif Endfor

Browse for Bj=6-Num Use

四、阅读程序

1.考生报名数据表ks.dbf的数据记录如下：

2

运行下面的程序段： Use ks

Index on 考号 tag kh H=2005000 Go top

Do while not eof() If 考号=H+1 Skip Else ?H+1 Endif H=H+1 Enddo Use

2005004 2005005 2005006

考号 2005001 2005002 2005003 2005006 2005008 2005009 姓名 张红 王勇 李小峰 刘莉 廖进军 王进 程序段的执行结果是

2.现有如图所示的表单form1，该表单的init事件代码如下： Thisform.backcolor=rgb(255,255,255) Thisform.caption=“用户登录” Thisform.text1.readonly=.T. Thisform.text2.passwordchar=“*” Thisform.command1.enabled=.F. Thisform.command2.visible=.T. 调用表单后，其具体情况是： （1） 表单的 背景 颜色是白色。

（2） 不能输入数据的文本框是 text1 。 （3） 不能激活的按钮是 command1 。 3.工资表gz.dbf中有如下记录： 职工号 1 2 3 4 5 执行如下select语句：

Select 职称，avg(基本工资) as 平均工资 from gz where 基本工资>300; And 基本工资<800 and not 部门=“财务部”group by 职称 查询的结果是：

3

姓名 王宇 刘军 吴用 李英 张明媚 部门 办公室 财务部 财务部 科研部 科研部 职称 中级 初级 高级 中级 高级 基本工资 500 280 700 550 900 职称 中级 五、编程

平均工资 525 表单Form1是明星档案表mx.dbf的管理界面。Mx.dbf表中包含了编号C（6）、姓名C(20)、特长C(30)等字段。

“追加”按钮的功能是将输入的当前信息作为一条新记录追加到mx.dbf表中。如果要追加的编号在mx.dbf表中存在，则不添加记录并显示提示信息。

“删除”按钮的功能是按编号删除mx.dbf表中的对应记录，可不考虑编号（即text1）是否为空。

请编写“追加”按钮和“删除”按钮的click事件代码。 1.“追加”按钮的click事件代码。 Bh=ThisForm.Text1.Value Xm=ThisForm.Text2.Value Tc=ThisForm.Text3.Value Use Mx

Locate For 编号==alltrim(Bh) If Found()

MessageBox(\该编号的记录已存在!\ Else

Insert Into Mx (编号,姓名,特长) Values (Bh,Xm,Tc) EndIf Use

2.“删除”按钮的click实践代码。 Bh=ThisForm.Text1.Value Locate For编号==alltrim(Bh) If Not Found()

MessageBox(\该编号的记录不存在!\ Else Delete Pack EndIf

4