VFP第一次考试题

计算机系14高考班半期考试题
序号：姓名：成绩：
一、填空题（每空2分，共24分）
1.数据库管理系统的英文简称为___________________。

2.表达式str(year(date()+10))的数据类型为__________________。

3.VFP的命令由_______________和_________________构成。

4.数据模型有层次型、网状型和________________。

5.执行程序文件XX的命令是___________________。

6、在select—sql语句中，排序用_________________子句。

7、要结束当前正在执行的循环体而直接进入下一循环周期，需要执行___________语句。

8、顺序结构程序的执行特点是按______________________依次执行。

9、在VFP中，除第一行外，数据表中的每一行称为一条____________。

10、在Locate命令使用中，测试查找是否成功的函数是_______________。

11、在do case……endcase语句中，当有多个case语句中的逻辑表达式值为真时，执行第_______个为真的case之后的程序段。

二、选择题（每小题3分，共36分）
（）1、下述表达式中，结果总是逻辑值的是
A、字符运算表达式
B、算术运算表达式
C、关系运算表达式
D、日期运算表达式
（）2、在数据表操作中，当“Reccount()=10且Eof()=.T.”时，则Recno()的值为
A、8
B、9
C、10
D、11
（）3、在“显示”下拉菜单中，单击“追加方式”，将在当前表
A、追加一个空记录
B、尾增加一个空记录
C、进入追加状态
D、上弹出追加对话框
（）4、以下不能作为索引字段的类型是
A、备注型
B、数值型
C、字符型
D、日期型
（）5、有如下程序段，循环执行的次数是
I=7
Do While I>=0
Store I-2 to I
EndDo
A、4
B、5
C、6
D、7
（）16、可以比较大小的数据类型是
A、数值型、字符型、日期型、逻辑型
B、数值型、字符型、日期型
C、数值型、字符型
D、数值型
（）7、以下选项中，专用于数据表操作的循环是
A、do while
B、scan
C、for
D、loop
（）8、显示或隐藏命令窗口的操作是
A、“窗口”下拉菜单下的“命令窗口”选项切换
B、单击“常用工具栏”上的“命令窗口”按钮
C、直接按Ctrl+F2或Ctrl+F4组合键
D、以上方法均可
（）9、在以下表达式中，不合法的是
A、”726”-“700”
B、”xyx”+”def”=”fedzyx”
C、{^2013/4/10}+123
D、Val(date()) （）10、对Scan……endScan语句，用来控制循环的变量是
A、记录指针
B、记录编号
C、物理存储号
D、符号
（）11、能够实现当前表中前3条记录的VFP成绩加10分的正确命令是
A、Replace VFP with VFP+10 for recno()<=3
B、Replace VFP with VFP+10 where recno()<=3
C、Replace VFP with VFP+10 record 3
D、Replace VFP with VFP+10 next 3
（）12、Zap和Pack命令的区别是
A、Zap命令是物理删除所有记录，Pack命令是逻辑删除记录
B、Zap命令是逻辑删除所有记录，Pack命令是物理删除记录
C、Zap和Pack都是逻辑删除记录
D、Zap和Pack都是物理删除记录
三、操作题,根据题意完善命令(10分)
1、在商品表SP中有商品编码C（10）、商品名称 C（20）、单价 N（4）和产地C（10）等字段。

查询各个产地中单价在1000到2000之间的商品种类。

Sele 产地，conut(*) from sp where ____________________________ group by __________
2、xscj表中姓名、语文、数学、总分等字段，求出语文和数学都及格的同学的总分值。

（总分=语文+数学）Replace all _______________________ for ___________________________
2、xsqk表有姓名、性别、入学成绩等字段，输出入学成绩最低分的姓名。

____________________________________ &&按入学成绩建立降序索引
____________________________________
____________________________________ &&输出姓名
四、应用题（共30分）
（一）阅读程序（每小题5分，共20分）
XSqk.dbf表记录如下：
学号姓名性别出生日期团员否入学成绩
050601 王小梅女 02/02/87 T 480.0
050602 刘毅男 10/02/86 F 455.0
050603 李小芳女 11/15/86 F 460.0
050604 朱丹女 03/07/87 T 510.5
050605 刘志强男 05/01/86 F 465.0
050606 王强男 07/06/86 T 508.5
1、 use xsqk
Age=0
Do while not eof()
If 性别=“男”
Age=age+（year(date()-year(出生
日期))
Endif
Skip
Enddo
?str(age/reccount(),4,1)
输出结果为：
2、 use xsqk
Scan
If val(substr(学号,6))%2=0
Loop
Else
??姓名
Endif
Endscan
输出结果为：
3、 Clear
Use xsqk
Index on 学号 Tag xh Descending
Index on 入学成绩 Tag rxcj
Set Order To xh
Go Top
?recno()
Set order to rxcj
Go bottom
??recno()
Use
输出结果为：
4、在销售表xsb中，有销售员C（6）、销售额N（10，2）和服务态度C（1）等字段，记录如下：
销售员销售额服务态度
张圣职 3000 A
李红 5000 A
杨华 1000 C
刘国强 8000 A
李小杰 2000 B
Use xsb
Store 0 to n,k
Scan
If 服务态度<=”B”
N=n+销售额
K=K+1
Else
N=n-销售额
Endif
Endscan
?k,n
输出结果为：
（二）编程（每小题5分，共10分）
1、在xsqk表中查找所有姓“张”的同学，并输出姓名。

2、求1-100的奇数和
2013年VFP第一次复习考试题
姓名：成绩：
一、填空题（每空2分，共12分）
6.数据库管理系统的英文简称为___________________。

7.表达式str(year(date()+10))的数据类型为__________________。

8.VFP的命令由_______________和_________________构成。

9.数据模型有层次型、网状型和________________。

10.在VFP面向对象程序设计中，采用___________驱动机制。

二、选择题（每小题3分，共18分）
（）1、下述表达式中，结果总是逻辑值的是
A、字符运算表达式
B、算术运算表达式
C、关系运算表达式
D、日期运算表达式
（）2、在数据表操作中，当“Reccount()=10且Eof()=.T.”时，则Recno()的值为
A、8
B、9
C、10
D、11
（）3、在“显示”下拉菜单中，单击“追加方式”，将在当前表
A、追加一个空记录
B、尾增加一个空记录
C、进入追加状态
D、上弹出追加对话框
（）4、以下不能作为索引字段的类型是
A、备注型
B、数值型
C、字符型
D、日期型
（）5、有如下程序段，循环执行的次数是
I=7
Do While I>=0
Store I-2 to I
EndDo
A、4
B、5
C、6
D、7
（）6、若要建立一个有5个按钮的选项按钮组，就设置的属性是
A、OptionGroup
B、ButtonCount
C、Value
D、ControlSource
三、操作题,根据题意完善命令(6分)
1、在商品表SP中有商品编码C（10）、商品名称 C（20）、单价 N（4）和产地C（10）等字段。

查询各个产地中单价在1000到2000之间的商品种类。

Sele 产地，conut(*) from sp where _______________________ group by ______________________ 2、xscj表中姓名、语文、数学、总分等字段，求出语文和数学都及格的同学的总分值。

（总分=语文+数学）Replace all _______________________ for ___________________________
四、应用题（共24分）
（一）阅读程序（每小题5分，共15分）
XSqk.dbf表记录如下：
学号姓名性别出生日期团员否
050601 王小梅女 02/02/87 T
050602 刘毅男 10/02/86 F
050603 李小芳女 11/15/86 F
050604 朱丹女 03/07/87 T
050605 刘志强男 05/01/86 F
050606 王强男 07/06/86 T
1、use xsqk
Age=0
Do while not eof()
If 性别=“男”
Age=age+（year(date()-year(出生日期))
Endif
Skip
Enddo
?str(age/reccount(),4,1)
输出结果为：
2、use xsqk
Scan
If val(substr(学号,6))%2=0
Loop
Else
??姓名
Endif
Endscan
输出结果为：
3、在销售表xsb中，有销售员C（6）、销售额N（10，2）和服务态度C（1）等字段，记录如下：
销售员销售额服务态度
张圣职 3000 A
李红 5000 A
杨华 1000 C
刘国强 8000 A
李小杰 2000 B
Use xsb
Store 0 to n,k
Scan
If 服务态度<=”B”
N=n+销售额
K=K+1
Else
N=n-销售额
Endif
Endscan
?k,n
输出结果为：
（二）编程（9分）
有一如图所示的表单，其功能是根据输入的直角三角形的底和高计算其面积，对应的设计界面如下图所示。

单击“计算”按钮，计算直角三角形的面积，并在label4中显示，同时清空text1、text2文本框，使text1获得焦点。

请编写“计算”按钮的click事件过程写代码。

说明：面积=底*高/2
2013年VFP第二次复习考试题
姓名：成绩：
一、填空题（每空2分，共12分）
1、在select—sql语句中，排序用_________________子句。

2、若command1的标题显示为”取消（Q）”，其Caption设置代码为________________________________。

3、要结束当前正在执行的循环体而直接进入下一循环周期，需要执行___________语句。

4、顺序结构程序的执行特点是按______________________依次执行。

5、在VFP中，除第一行外，数据表中的每一行称为一条____________。

6、在Locate命令使用中，测试查找是否成功的函数是_______________。

二、选择题（每小题3分，共18分）
（）1、可以比较大小的数据类型是
A、数值型、字符型、日期型、逻辑型
B、数值型、字符型、日期型
C、数值型、字符型
D、数值型
（）2、以下选项中，专用于数据表操作的循环是
A、do while
B、scan
C、for
D、loop
（）3、显示或隐藏命令窗口的操作是
A、“窗口”下拉菜单下的“命令窗口”选项切换
B、单击“常用工具栏”上的“命令窗口”按钮
C、直接按Ctrl+F2或Ctrl+F4组合键
D、以上方法均可
（）4、在以下表达式中，不合法的是
A、”726”-“700”
B、”xyx”+”def”=”fedzyx”
C、{^2013/4/10}+123
D、Val(date()) （）5、对Scan……endxcan语句，用来控制循环的变量是
A、记录指针
B、记录编号
C、物理存储号
D、符号
（）6、在VFP中，代表当前对象的关键字是
A、This
B、thisform
C、This Object
D、Me
三、操作题,根据题意完善命令(6分)
1、xsqk表有姓名、性别、入学成绩等字段，输出入学成绩最低分的姓名。

____________________________________ &&按入学成绩建立降序索引
____________________________________ &&指针定位到首记录
____________________________________ &&输出姓名
四、应用题（共24分）
（一）阅读程序（每小题5分，共15分）
有一Xsqk.dbf表的记录内容如下表所示
学号姓名性别出生日期团员否入学成绩
050601 王小梅女 02/02/87 T 480.0
050602 刘毅男 10/02/86 F 455.0
050603 李小芳女 11/15/86 F 460.0
050604 朱丹女 03/07/87 T 510.5
050605 刘志强男 05/01/86 F 465.0
050606 王强男 07/06/86 T 508.5
1、Clear
Use xsqk
Scan
IF Not 团员否 and 入学成绩<=460
??姓名
Endif
EndScan
Use
程序的运行结果为：
2、 Clear
Use xsqk
Index on 学号 Tag xh Descending
Index on 入学成绩 Tag rxcj
Set Order To xh
Go Top
?recno()
Set order to rxcj
Go bottom
??recno()
Use
程序的运行结果为：
3、Clear
Select * from xsqk where 姓名 like “王_” or year(出生日期)>1986 into table xs
Use xs
S=0
Do while not eof()
S=s+入学成绩
Skip
Enddo
Use
?”s=”,Str(s,6,1)
程序的运行结果为：
（二）编程（9分）
用zgda.dbf编写一表单程序如图所示，其要求是找出奖金在400元以上的职工姓名及人数，且奖在400元以上职工姓名在列表框list1中显示出来，奖金在400元以上人数在文本框text1中显示出来。

其具体操作如下：
(1)新建表单form1
(2)在表单中添加两个标签框label1和label2，其标题分别为“奖金高于400的姓名：”和“奖金高于400的人数：”，请在表单的init事件中编程为两标签框指定标题。

（4分）
(3)单击“统计结果”按钮command2将实现奖金高于400的姓名在list1中显示，奖金高于400的人数在text1中显示，请对command2的click编写代码：（5分）
2013年VFP第三次复习考试题
姓名：成绩：
一、填空题（每空2分，共12分）
1、在绝对定位记录命令中，Go Top表示的含义是___________________。

2、创建或修改程序文件XS的命令是_______________________________。

3、在表设计器的“索引”选项卡中创建的是____________________________索引文件。

4、命令Substr(“重庆是个好地方”，Int(5.56))的输出结果为___________________。

5、截取“姓名”字段中的姓氏的表达式为__________________________。

6、________属性用于设置或返回选项按钮组中第几个选项按钮牌选中状态。

二、选择题（每小题2分，共18分）
（）1、使控件获得焦点，成为活动对象的方法是
A、Init
B、Release
C、Setfocus
D、Refresh
（）2、VFP最多允许打开的数据表个数是
A、255
B、254
C、10亿
D、32767
（）3、下列哪个选项能激活事件代码
A、Read Events
B、Clear Events
C、Close all
D、Close DataBAse
（）4、在Index命令中，参数Unique的含义是
A、建立候选索引
B、建立普通索引
C、建立唯一索引
D、建立主索引
（）5、能够实现当前表中前3条记录的VFP成绩加10分的正确命令是
A、Replace VFP with VFP+10 for recno()<=3
B、Replace VFP with VFP+10 where recno()<=3
C、Replace VFP with VFP+10 record 3
D、Replace VFP with VFP+10 next 3
（）6、Zap和Pack命令的区别是
A、Zap命令是物理删除所有记录，Pack命令是逻辑删除记录
B、Zap命令是逻辑删除所有记录，Pack命令是物理删除记录
C、Zap和Pack都是逻辑删除记录
D、Zap和Pack都是物理删除所有记录
（）7、下列关于索引的说法不正确的是
A、建立唯一索引时，允许关键字值重复，建立后无重复
B、建立候选索引时，不允许关键字值重复，建立后也无重复
C、主索引只能在数据库表中建立
D、结构复合索引的文件名就是索引标识名
（）8、用xsqk表建立一个所有学号 C（5）在4号或10号，且建立的查询中只有姓名、学号字段，下列能实现的命令是
A、select 姓名，学号 from xsqk where 学号 In 4,10
B、select 姓名，学号 from xsqk where 学号 In （4,10）
C、select 姓名，学号 from xsqk where 学号 In （‘4’,‘10’）
D、select 姓名，学号 from xsqk where 学号 In ‘4’,‘10’
（）9、若要将表单的命令按钮设置为无效，则下列哪个选项可以实现
A、This Visual=.F.
B、this.Enabled=.F.
C、This Visual=.T.
D、this.Enabled=.T.
三、操作题,根据题意完善命令(6分)
1、设有一数据表xs.dbf，查找所有姓“王”的记录，存入xs1.dbf中。

______________________________________________________________
2、在xscj.dbf表中有姓名、语文、数学等字段，追加一条空记录，并输入记录内容为：张小艳 86 79
_____________________________________
____________________________________________________________
四、应用题（共24分）
（一）阅读程序（每小题5分，共15分）
1、设有一数据表Zg.dbf，其结构和记录内容如下表所示，若执行如下命令序列：
Use Zg
Skip 2
Replace Rest 补贴 with 50 for 性别=“男”
获得50元补贴的姓名是：______________________
2、 use zg
Store 0 to N
Do while not eof()
If not “张”$姓名
Skip
Loop
Endif
N=n+1
Skip
Enddo
?n
程序的运行结果为：
3、有如下程序段
Str1=”数据库”
Str2=””
For i=len(str1) to 1 step -2
Str2=str2+substr(str1,i-1,2)
Endfor
?str2
程序的运行结果为：
（二）编程（9分）
1、设计一个如下图所示的表单，运行时，在文本框text1中输入一个数，按Enter键，若为偶数，则在标签label3中显示“偶数”，反之显示“奇数”。

请将文本框text1的keypress事件代码补充完整：
If ______________ =13 (2分)
num=__________________(2分)
if _______________(2分)
bel3.caption=”偶数”
else
_______________________________(1分)
endif
endif
_________________________________ &&text1清空(2分)
2013年VFP第二次月考试题
姓名：成绩：
一、填空题（每空2分，共12分）
1、用二维表的形式来表示实体及其之间联系的数据模型称为_______________。

2、表示2013年6月7日的日期型常量是_________________________。

3、索引文件按扩展名可以分为单索引和复合索引，其扩展名分别为idx和__________。

4、若Delete命令缺省范围和条件子句，则操作的是_____________记录。

5、为表单指定标题的属性为____________________。

6、表单的Load事件在Init事件之_________被触发。

（前|后）
二、选择题（每小题2分，共18分）
（）1、以下能作为字段名的是
A、5姓名
B、_价格
C、价#格
D、价格
（）2、Exit辅助语句可以在
A、顺序程序中使用
B、分支程序中使用
C、循环程序中使用
D、任何状态下使用
（）3、创建对象时发生的事件是
A、LostFocus
B、Load
C、Init
D、Click
（）4、VFP6.0是
A、操作系统
B、工具软件
C、系统软件
D、应用软件
（）5、某个数值型字段的宽度为6位，小数位为2位，则该字段的最大值是
A、999999
B、99
C、999.99
D、99999.99
（）6、以下关于主索引和侯选索引的叙述中，正确的是
A、主索引和侯选索引都能标识表中不同的记录
B、主索引和侯选索引适用于所有的数据表
C、主索引可以标识表中不同的记录而侯选索引不能
D、主索引和侯选索引都不能保证表记录的唯一性（）7、使控件获得焦点，成为活动对象的方法是
A、Init
B、Release
C、SetFocus
D、Clear
（）8、关于Click事件的叙述中，正确的是
A、用鼠标单击对象时触发
B、用鼠标双击对象时触发
C、用鼠标右击对象时触发
D、用鼠标右键双击对象时触发
（）9、下面关于属性、方法和事件的叙述中，错误的是
A、属性用于描述对象的状态，方法用于表示对象的行为
B、两个对象可以分别设置自己的属性值
C、事件代码也可象方法一样被显示调用
D、新建表单时可以添加新的属性、方法和事件
三、操作题,根据题意完善命令(6分)
现设计如下表单。

Xsda表已添加到数据环境中，当单击注册按钮时，对Text1中输入的用户名进行验证，若xsda表中已有该用户名，则弹出消息框“用户名重复”，要求用户重新输入。

若没有相关用户名，则将该用户添加到xsda表中。

表xsda表结构为：用户名 C(8)、密码 C(6)。

YFM=allt(thisform.text1.value)
MM= allt(thisform.text2.value)
Locate For _________________________
If found()
_________________________________
Else
_____________________
Replace 用户名 with YFM,密码 with MM
Endif
四、应用题（共24分）
（一）阅读程序（每小题5分，共15分）
Use xs
Replace all 成绩 with 60 for 性别=”女”
Replace 等级 with “优秀”
Browse Fields 姓名，等级，成绩 for 性别=”女”
Use
2、use xs
Age=0
Scan
If 性别=“男”
Age=age+年龄
Endif
Endscan
?age
程序运行结果为：
3、use xs
Store 0 to N
Scan
If 年龄>n
N=年龄
Endif
Endscan
?“年龄为：”+str(n,3)
use
程序运行结果为：
（二）编程（9分）
1、设计如下登录表单，若输入的用户名为user，密码为210080时，单击登录按钮，显示消息框“登录成功”，并关闭该窗口，否则显示消息框“登录失败，请再试”，并清空Text1和Text2。

对登录按钮的Click事件编写代码。

2013年VFP第四次复习考试题
姓名：成绩：
一、填空题（每空2分，共12分）
1、VFP中变量分为内存变量、系统变量和_______________三种。

2、在VFP的记录数据输入中，若想对备注型字段进行输入，可按_________________快捷键打开相应的编辑区。

3、设团员否为逻辑型字段，表达式“Not 团员否 or 团员否”的值为________。

4、命令按钮获得焦点应使用语句mand1.______________
5、要将表单设置为顶层表单，应将表单的ShowWindow属性值设置为__________。

6、在关系型数据库中，关系表中的每一列称为一个____________，它规定了该列所应存贮的数据类型和值域范围。

二、选择题（每小题3分，共18分）
（）1、设表已打开，浏览当前表中姓“张”的所有记录
A、browse for “张”$姓名
B、browse for substr(姓名,1,2)=“张”
C、browse where 姓名 like “张%“
D、browse where substr(姓名,1,2)=“张”
（）2、设xs.dbf表中有两个备注型和一个通用型字段，则会产生
A、一个备注文件
B、一个通用型文件
C、二个备注型文件
D、一个备注型和一个通用型文件（）3、VFP的命令由
A、命令动词和相关子句
B、常量和变量
C、函数和变量
D、命令动词和表达式
（）4、在表单的事件代码中，下列哪个最优先执行
A、Init
B、Load
C、click
D、keypress
（）5、下列哪个代码属于表单的方法
A、Value
B、Setfocus
C、dblclick
D、visible
（）6、逻辑删除第3号记录，能够实现的是
A、pack 3
B、dele rest 3
C、dele next3
D、dele record 3
三、操作题,根据题意完善命令(6分)
有一学生档案管理系统，程序运行时，首先启动口令校对表单Kl.scx，其中口令输入框名为text1，现对“确定”按钮编程，若输入的口令为”123”，则启动main.scx,然后关闭kl.scx，若错误，则用消息框显示“口令错误”。

If thisform.text1.______________=”123”
_____________________
Do form main
Else
________________________(“口令错误”,292,”口令验证”)
endif
四、应用题（共24分）
（一）阅读程序（每小题5分，共15分）
有一xsqk
1、clear Use xsqk
Index on 学号 tag xh desc
Go top Store 0 to s For n=1 to 3 S=s+入学成绩 i=i+2 Skip Endfor
?“s=”+str(s,5,1) Use
程序运行结果为： 2、use xsqk
Dele for len(allt(
姓名))=0 Pack Scan
If len(allt(姓名))>4 ?? 姓名 Endif
Endscan use
程序运行结果为： 3、clear N=1
X=’’
Mm=”计算机教研组” Do while n<=len(mm)-2 M=substr(mm,n,2) X=m+x N=n+2 Enddo
X=substr(mm,n)+x ?’破译密码为:’+x 程序运行结果为：
（二）编程（9分）
算术运算练习器界面如下：单击开始按钮，在label1和label2中随机产生两个0-100之间的两位整数。

单击验证按钮时，验证用户在text1中输入的运算结果是否正确，正确给出相应的提示，错误则清空Text1要求用户重新计算。

（用户可以选择加减乘除四种运算法）。

分别对开始按钮和验证按钮的Click 事件编写代码。

选项按钮组名为：OptionGroup1
2013年VFP第五次复习考试题
姓名：成绩：
一、填空题（每空2分，共12分）
1、XB IN (”男”,”女”)等价的表达式为________________________________________
2、_______________属性用设置或返回列表框或组合框中当前被选中列表项的内容。

3、人事rsda.dbf表的结构复合索引文件名为___________________。

4、工作区是一个带有编号的________________区域，用于标识一个打开的表。

5、数据表以___________方式打开，才能进行编辑修改。

6、SQL语言确定为关系数据库查询语言的标准，用________________作其条件子句。

二、选择题（每小题2分，共18分）
（）1、在VFP命令书写规则中，每条命令最多允许输入的字符数是
A、255
B、254
C、8192
D、8912
（）2、下面4个选项中，不是VFP表达式的是
A、11/12/13
B、”999”
C、X+y
D、a=3 and e=5
（）3、在VFP中，逻辑型、日期型、备注型、字符型字段的宽度分别为
A、3、8、10、10
B、1、8、4、任意
C、3、8、4、10
D、1、8、8、任意
（）4、当前数据表有20条记录，执行skip 40命令，则当前记录为
A、22
B、无法判断
C、出错“超出范围”
D、21
（）5、将文本框控件绑定到一个字段，移动记录后字段的值发生变化，这时该控件的值也随之变化的属性是
A、Value
B、Name C 、Caption D、没有
（）6、表达式Int(rand()*10)的值为哪个范围内的整数：
A、0-9
B、1-9
C、0-10
D、1-10
（）7、不允许关键字值重复的索引是
A、主索引
B、主索引和侯选索引
C、唯一索引和主索引
D、唯一索引
（）8、在程序代码this.value=”VFP”中this、value、”vfp”分别代表：
A、当前对象、属性、值
B、当前对象、方法、属性
C、当前对象、值、属性
D、当前属性、对象、值
（）9、在面向对象的编程中，控件的主要作用是
A、显示、操作数据
B、使人机交互更方便
C、使表单界更友好
D、以上都是
三、操作题,根据题意完善命令(6分)
设计一个下图所示的表单，运行时，在文本框text1中输入姓名后，按Enter键，该文本框清空，输入的姓名自动加入下面的列表框list1中，同时使Text1再次获得焦点。

文本框的KeyPress事件过程代码：
If nkeycode=____________
If allt(this.value)>space(10)
Thisform.list1.__________________________
Endif
This.value=’’
_____________________________
四、应用题（共24分）
（一）阅读程序（每小题5分，共15分）
1
1、Use rs
Index on 职称 tag zc unique descending Browse fields 姓名,职称 在浏览窗口中显示的最后一条记录是：
____________________________________________ 2、Use rs
Do while not eof()
If 性别=”男” and 出生日期>{^1963-10-10} Xm=姓名 Csrq=出生日期 Exit Endif Skip Enddo
Y=year(date())-year(csrq) If not eof()
?xm,y Endif Use
3、Select * from rs where 职称=”副教授” ;
into dbf fjs Use fjs Store 0 to s Do while not eof()
S=s+基本工资 Skip Enddo ?s use
（二）编程（9分）
在下图所示的学生情况表单中，单击“删除”按钮，弹出是不删除的确认对话框，单击“是”按钮，当前记录被彻底删除。

提示：1）显示“是”、“否”铵钮的值为4，蓝色问号图标值为32； 2）单击“是”按钮返回6。

请对“删除”按钮的click 事件编写代码：
2013年VFP第六次复习考试题
姓名：成绩：
一、填空题（每空2分，共12分）
1、数据库系统的英文简称为________________。

2、VFP提供了32767个工作区，每个工作区最多可打开__________个表。

3、VFP6.0的命令支持两种工作方式是窗口命令交互方式和______________________。

4、在对象程序设计中，______________是用于描述对象的外部特征。

5、表达式not(int(rand())<2) and “重庆”$“中国”的值为___________。

6、在do case……endcase语句中，当有多个case语句中的逻辑表达式值为真时，执行第_______个为真
的case之后的程序段。

二、选择题（每小题2分，共18分）
（）1、y2+2xy+x2的合法VFP表达式为
A、y^2+2xy+x^2
B、y2+2*x*y+x2
C、y^2+2*x*y+x^2
D、y^2+2x*y+x^2
（）2、用zgda表建立一个所有职称是高级或特级或一级的查询，下列能实现的命令是
A、select * where zgda from 职称 in (“高级”,”特级”,”一级”)
B、select zgda from * where职称 like (“高级”,”特级”,”一级”)
C、select * from zgda where 职称 in (“高级”,”特级”,”一级”)
D、select * from zgda between 职称=“高级” or职称=”特级”or职称=”一级”
( )3、在VFP中，要设置D盘下VFP98为默认路径，正确的命令是
A、set default D:\vfp98
B、set default to D:\vfp98
C、set Path D:\vfp98
D、set Path to D:\vfp98
（）4、下列对Exit和loop命令的描述正确的是
A、Exit的功能是无条件退出VFP
B、一旦使用Loop程序就永远不能正常退出，所以一般不使用loop
C、Exit和Loop可以单独在命令窗口执行
D、Exit和Loop能在循环语句中执行
（）5、在对象程序设计中，this的含义是
A、当前对象
B、当前表单
C、当前记录
D、当前索引
（）6、用xsda表（姓名 C（8），婚否 L，总分 N（5，1））创建一个查询，求出总分的平均分及总和，下列正确的命令是：
A、select avg(总分) as 平均总分，sum(总分) as 总分总和 from xsda
B、select avg(总分) as 平均总分 sum(总分) as 总分总和 from xsda
C、select max(总分) as 平均总分,sum(总分) as 总分总和 from xsda
D、select avg(总分) as 平均总分，sum(总分) as 总分总和 form xsda
三、操作题,根据题意完善命令(6分)
下面程序的功能是找出xsqk表中与入学成绩平均值最接近的一位同学的姓名和入学成绩。

请完善程序中的命令行。

Select AVG(入学成绩) As 平均成绩 from xsqk into table xs
Use xs
Pj=平均成绩
Close all
Use xsqk
Scan
If ________________
Replace 差值 with 入学成绩-Pj
Else
Replace 差值 with Pj-入学成绩
Endif
Endscan
Index on __________tag cz descending
__________________
?姓名,入学成绩
四、应用题（共24分）
（一）阅读程序（每小题5分，共15分）
有一xsqk
1、clear
Use xsqk
Index on 姓名 tag xm descending
Scan
If 出生日期>{^1987/01/01}
Loop
Else
??姓名
Endif
Endscan
程序运行结果为：
2、clear
Use xsqk
Index on 出生日期 tag cxrq
Index on 入学成绩 tag rxcj descending
Set order to csrq
Go top
?recno()
Set order to rxcj
Go bottom
??recno()
程序运行结果为：
3、clear
Select * from xsqk where 性别=“女” and 团员否 into dbf xsqk1
Close all
Use xsqk1
S=0
For n=1 to recc()
S=s+入学成绩
Skip
Endfor
?”s=”,str(s/recc(),5,1)
程序运行结果为：
（二）编程（9分）
新建一表单，添加label1和label2及command1，单击label1随机产生一个100以内的数，单击判断按钮，判断该数是奇数还是偶数，在label2上输出。

*label1.click
bel1.caption=str(int(rand()*100),2)
*判断.click
2013年VFP第七次复习考试题
姓名：成绩：
一、填空题（每空2分，共12分）
1、数据库管理系统是用来帮助用户在计算机上建立、使用和管理数据库的软件系统，简称为____________。

2、若要表示2013年6月8日，其严格日期常量表示为______________________________。

3、SQL语言是一种非常简洁的一体化语言，包括数据宣言定义、数据更新、数据查询、数据控制等功能，___________SQL语言的核心。

4、在select-SQL语句中，分组用________________子句。

5、在VFP的循环语句中，若要结束整个循环，可用_____________命令实现。

6、xscj.dbf有一姓名字段，同时定义了内存变量“姓名”，若要访问内存变量姓名的正确命令是___________。

二、选择题（每小题2分，共18分）
（）1、以下关于数据表的性质的说法正确的是
A、数据表每一列均有唯一的字段名
B、数据表中允许出现完全相同的两行
C、数据表的行、列顺序不可改变
D、数据表中的记录数、返回值的数据类型是一致的
（）2、以下四组函数，返回值的数据类型是一致的是
A、dtos(date())、date()、year(date())
B、alltrim(“vfp6.0”)、val(“a”)、len(“中国”)
C、eof()、reccount()、found()
D、str(3.14,3)、dtos(date())、substr(“abcd”,3,1) （）3、在VFP6.0中，不能肯定将当前记录定位到1号记录的命令是
A、go 1
B、go record 1
C、go top
D、locate for recno(0=1
（）4、文本框对象的值被修改后的结果，将动态反馈到该控件的属性是
A、text
B、value D、caption D、setfocus
（）5、建立事件循环的命令是
A、read events
B、clear events
C、do while……enddo
D、for……endfor
（）6、关于数据库的操作，下述说法正确的是
A、数据库被删除后，则它包含的数据库表也随着被删除
B、打开了新的数据库，则原来已打开的数据库被关闭
C、数据库被关闭后，它所包含的数据库表不能被打开
D、数据库被删除后，它所包含的数据库表变成自由表
三、操作题,根据题意完善命令(6分)
给定一个学生的入学成绩,找出该分数在学生情况表xsqk.dbf中”入学成绩”字段的排名。

Zf=500
Mc=__________________
Use xsqk
Index on ______________________________
Scan
If ______________________
Mc=mc+1
Endif
Endscan
?mc
四、应用题（共24分）
（一）阅读程序（每小题5分，共15分）
1、S1=”VisualFoxPro6.0” M=1 N=2 S2=”” Do while M<4 If int(M/2)=M/2 N=N-3 Else N=N+6 Endif
S2=sustr(s1,n,m)+s2 M=M=1 Enddo ?s2,n
程序执行结果为:____________________ 2、有如下score 表,共有5条记录: 学号 姓名 成绩 名次 0501 王海英 76 0502 吴用 84 0503 张明英 56 0504 李英 74 0505 黄英宇 92
Use Scord
Index on 成绩 tag cj desc Go top
For n=1 to recc() Replace 名次 with n Skip Endfor
Locate for 姓名=”李英” ?名次
程序执行结果为:____________________
3、 sele * from Score where 姓名 like “%英%”;
into table xx Use xx S=0 Scan If 成绩>75 S=s+成绩 Endif Endscan ?成绩
程序执行结果为:____________________
（二）编程（9分）
已设计“学生成绩管理表单”，对“删除”按钮的click 事件编写程序代码，要求单击该按钮时，
启动图2“查找并删除记录“表单，其名为“SC.scx ”；在SC 表单中，对文本框“text1”的keypress 事件编写代码，完成记录的删除。

“追加”按钮的click 事件代码： append blank
thisform.refresh
“删除”按钮的的click 事件代码： do form sc
“文本框”的keypress 事件代码： if ___________________(2分) scan
if 学号=__________________(2分)
dele pack
=_______________(“操作成功，返回主窗口！”) (1分) thisfrom.release ____________(2分) endif endscan if eof()
messagebox(“无此学号，重新输入！”) __________________(1分) __________________(1分) endif
“退出“按钮的click 事件代码：
thisform.release
2013年VFP第八次复习考试题(2004年)
姓名：成绩：
一、填空题（每空2分，共12分）
1、在VFP中，最多可以同时打开______________个数据表。

2、数据表xsda.dbf中包含备注型字段jl,字段jl在数据表中占用________字节，其具体内容存放在备注文件_________________中。

3、表达式substr(“中国重庆”,5,4)+str(95.56,4)的值是_____________________。

4、VFP系统启动后，默认的工作区是__________号工作区，要选择未使用过的最低编号工作区应执行命令：_________________。

5、执行命令文件xx的命令是__________________
二、选择题（每小题3分，共18分）
（）1、在数据表中选择若干字段组成一个新表，这种关系数据库操作是
A、投影
B、选择
C、连接
D、计算
（）2、下列关于数据库表和自由表的叙述中错误的是
A、数据库表可以转变为自由表
B、自由表可以转变为数据库表
C、数据库表和自由表默认的扩展名都是.dbf
D、数据库表和自由表都能设置字段的默认值
（）3、表达式dtos({^2004/06/08}-1)的值是
A、[05/08/04]
B、[06/07/04]
C、[20030608]
D、[20040607]
（）4、下列关于索引的叙述中正确的是
A、唯一索引的关键字不能有重复值
B、一个表只能创建一个主索引
C、候选索引的关键字可以有重复值
D、复合索引和单索引都能按关键字升序排序
（）5、在VFP中，字符型字段的最大宽度是
A、8
B、20
C、254
D、255
（）6、要在列表框list1中获取选择的值，其访问的属性是
A、thisform.list1.value
B、thisform.list1.controlsource
C、thisform.list1.Style
D、thisform.list1.clear
三、操作题,根据题意完善命令(6分)
1、在xscj数据表中含有班级C（4）和成绩N（3）两个字段，下面程序将显示各班的最高成绩。

Sele 班级,______________ as 最高成绩 from xscj ____________________________
2、在用户注册表单中，“注册”按钮将检测“注册码”文本框中的数据是否非空，如果为空，则提示用户输入，如果是非空的就执行注册程序ZC.Prg，“重置”按钮将所有文本框清空。

（1）“注册”按钮的clikc事件代码是：
S1=thisform.text2.value
If S>space(10)
_________________
Else
Messagebox(“注册码必须填写”,16,“错误提示”)
Endif
（2）“重置”按钮的clikc事件代码是：
thisform.setall(“value”,””,”textbox”)
四、应用题（共24分）
（一）阅读程序（每小题5分，共15分）。