单项选择题 (每小题1分，共30分)
1、Visual Foxpro数据库管理系统的数据模型是( C )。
A.层次型 B. 表格型 C. 关系型 D. 网状型
2、下列Visual FoxPro表达式中，不合法的是( B )。
A.228-3=5*38 B.[8]+[3]>10
C.date()-15 D.AT("ad","xyadvancad")+LEN("AB CDE")
3、已打开数据表中有一日期型字段"日期"，下列表达式中结果不是日期型的是( A )。
A. DATE()-日期 B. 日期+2
C. CTOD(DTOC(日期)) D. DATE()-2
4、设X="构建和谐社会"，执行命令：?SUBSTR(X,5,4)屏幕显示结果是( B )。
A.构建 B.和谐 C.社会 D.错误信息
5、表设计器中，由用户自己设定字段的宽度的数据类型是( B )。
A. 逻辑型 B. 数值型 C. 备注型 D. 日期型
6、如果当前表中的一个字段名与一个内存变量名都是NAME，执行命令?NAME后，显示的结果是( B )。
A. 内存变量的值 B. 字段变量的值 C. NULL值 D. 出错
7、如 a="1", b="2", x12="email", m="my" 。?m+x&a.&b的显示结果是( B )。
A.email B.myemail C.myemail12 D.email12
8、Visual Foxpro数据表操作命令的范围参数有四个。现在需要复制从当前记录到表尾的全部记录，其范围参数的设置为( B )。
A. next 3 B. rest C. all D. record(EOF())
9、测试数据表记录指针当前指向第几条记录的函数是( D )。
A. EOF() B. RECORD() C. BOF() D. RECNO()
10、执行下列命令序列：
X=-5
? IIF(X>0,1,IIF(X=0,0,-1))
屏幕显示结果是( C )。
A.1 B.0 C. -1 D. 错误信息
11、下列有关数据库的描述，正确的是( C )。
A. 数据库是一个DBF文件 B. 数据库是一个关系
C. 数据库是一个结构化的数据集合 D. 数据库是一组文件
12、设表TXL.DBF中有20条记录，在VISUAL FOXPRO命令窗口中执行以下命令序列，最后显示的是( D )。
USE TXL
SKIP 3
COUNT TO N
? N
A.3 B.17 C.18 D. 20
13.表达式"ABV">"ABT">.f.的值是( A )。
A. .T. B. .F. C. 难以确定 D. 非法表达式
14、有数据表文件CJ.DBF，按姓名(C,8)的升序，上机成绩(N,6,2)的降序建立索引，正确的命令是( C )。
A.INDEX ON 姓名-上机成绩 TAG CJIDX
B.INDEX ON 姓名+STR(-上机成绩，6，2) TAG CJIDX
C.INDEX ON 姓名+STR(1000-上机成绩) TAG CJIDX
D.INDEX ON 姓名/A，上机成绩/D TAG CJIDX
15、数据库系统的核心是( B )。
A. 数据模型 B. 数据库管理系统
C. 数据文件 D. 应用程序
16、SQL的数据操作语句不包括( D )。
A. INSERT B. UPDATE C. SELECT D. CHANGE
17、在程序中不需要用PUBLIC等命令明确声明和建立，可直接使用的内存变量是( C )。
A.局部变量 B. 公共变量 C. 私有变量 D. 全局变量
18、函数LEN(SPACE(8)-SPACE(3))的返回值是(B )。
A.5 B.11 C.0 D.1
19、在Visual FoxPro中，用于建立过程文件PROGI的命令是( B )
A. CREATE PORGI B. MODIFY COMMAND PROGI
C. MODIFY PROGI D. EDIT PROGI
20、要将数组DG中的内容作为一个记录追加到当前表文件的末尾，应执行的命令为(C )。
A. GATHER FROM DG B. GO BOTTOM
GATHER FROM DG
C. APPE BLANK D. INSERT BLANK
GATHER FROM DG GATHER FROM DG
21、要显示数据表中平均分超过90分和不及格的全部女生记录，应使用命令( D )。
A.LIST FOR 性别="女".OR.(平均分>=90.AND.平均分90.AND.平均分90.OR.平均分90.OR.平均分20
B.replace 岗酬 with岗酬*0.1 for (date()-开工时间)/365>20
C.replace 岗酬 with岗酬+岗酬*0.1 while (date()-开工时间)/365>20
D.replace 岗酬 with岗酬+岗酬*0.1 for (date()-开工时间)/365>20
23、要求表文件某数值型字段的整数是4位，小数是2位，其值可能为负数，该字段的宽度应定义为( A )
A.8位 B.7位 C.6位 D.4位
24、查询订购单号首字符是“P”的订单信息，应该使用命令( B )。
A. SELECT * FROM 订单 WHERE HEAD(订购单号,1)="P"
B. SELECT * FROM 订单 WHERE LEFT(订购单号,1)="P"
C. SELECT * FROM 订单 WHERE "P"$订购单号
D. SELECT * FROM 订单 WHERE RIGHT(订购单号,1)="P"
25、在下面的DO循环中，共有循环次数( C )。
X=15
Y=20
DO WHILE Y>=X
Y=Y-1
ENDDO
A. 20 B. 15 C. 6 D. 5
26、在表单运行时，要改变表单的标题为：“用户登录”，需要执行事件代码( B )。
A.thisform.Name="用户登录" B.thisform.Caption="用户登录"
C.thisform.Text="用户登录" D.thisform.Value="http://www.examw.com/ncre/2/vf/moniti/225217/用户登录"
27、对象的事件驱动模型中，Init事件在什么时刻发生( A )。
A.对象建立时 B. 对象释放时 C. 对象建立之前 D. 对象获得焦点时
28、在Visual FoxPro中释放和关闭表单的方法是( A )。
A. RELEASE B. CLOSE C. DELETE D. DROP
29、以下属于容器类控件的是( B )。
A.Text B. Form C. Label D. Edit
30、计时器控件的主要属性是( C )。
A.Enabled B.Caption C.Interval D.Value
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
C B A B B B B B D C C D A C B D C B B C
21 22 23 24 25 26 27 28 29 30
D D A B C B A A B C
判断分析（每小题1分，共10分；请答于答题卡第三题。）
1、已知Visual FoxPro的日期格式是默认美国方式，命令Y=year(ctod("12/12/99"))执行后，内存变量Y的值为99。
2、对象的外观由它的各种属性来描绘，对象的行为则由它的事件和方法程序来表达。
3、在Visual FoxPro中，可以用“1”表示逻辑真，用“0”表示逻辑假。
4、LEFT("ABCDEFG",LEN("计算机"))的计算结果是ABC 。
5、ZAP命令不仅能删除数据表中的所有记录，而且还能删除数据表的结构。
6、Visual FoxPro命令中，WHILE子句的作用是操作满足“条件表达式”的记录，遇到不满足条件的记录就停止。
7、MOD（-13，-3）函数的运算结果为-2。
8、Click事件是用鼠标单击对象时引发。
9、在SQL查询语言中，TOP 短语必须与ORDER BY 短语配对使用，但ORDER BY 短语可以单独使用。
10、通过建立参照完整性规则，可以确保相关表之间数据的一致性。
1-5 ×√××× 6-10 √×√√√
填空题 (每空2分，共20分)
1、已知某单位工资表GZ有如下记录：
RECORD# 编号 姓名 年龄 职称 工资
1 3001 张 立 36 讲师 690
2 3002 王 方 51 讲师 680
3 3003 李 平 22 助教 820
4 3004 朱 岩 46 副教授 960
5 3005 陈 剑 40 教授 1100
6 3006 陈国青 50 副教授 720
7 3007 赵 丽 47 教授 1200
下列统计程序，计算教授和副教授的平均工资和全部职工的最低工资。根据人事政策，对年满50以上(含)或者工资为最低工资的员工增加300元的工资。请填空完成。
SET TALK OFF
USE GZ
CALCULATE AVG(工资) TO A FOR ①
CALCULATE ② TO D
REPLACE 工资 WITH 工资+300 FOR ③
2、以下程序段与VFP命令：
DELETE WHILE 性别=”男” .and. 政治面貌=”群众”
等效，请填空完成。
Go top
do while .not.eof()
if 性别“男”
④
endif
if 政治面貌=”群众”
⑤
endif
skip
enddo
3、商品数据库中含有两个表：商品表和销售表，结构如下：
商品：商品编号 C(6)，商品名称 C(20)，销售价 N(12，2)
销售：流水号 C(6)，销售日期 D，商品编号 C(6)，销售量 N(8，2)
用SQL命令实现查询2007年10月20日所销售的各种商品的名称、销售量和销售总额，并按销售量从小到大排序的语句是：
SELECT 商品名称, sum(销售量)，SUM( ⑥ )AS 销售总额;
FROM 商品，销售;
WHERE 商品.商品编号=销售.商品编号 ⑦ 销售日期={^2007-10-20｝;
GROUP BY 商品名称 ORDER BY ⑧
4、设某一学生数据表STUDENT.DBF记录如下：
记录号 学号(C) 姓名(C) 性别(C)
1 06122 张胜 .T.
2 06223 王蜂 .T.
3 06088 汪峡 .F.
4 06336 吴进 .T.
5 06145 柳莺 .F.
6 06448 王鹏 .T.
设计如图1所示表单，将student.dbf添加到表单的数据环境中，表单运行后，单击命令按钮“统计”，将统计表中男女生人数，如图2所示。请填空完成。
“统计”命令按钮的click事件代码：
S=0
T=0
Do WHILE NOT EOF()
IF ⑨
S=S+1
else
⑩
ENDIF
skip
ENDDO
thisform.label2.caption=allt(str(s))
thisform.label5.caption=allt(str(t))
1
(1)’教授’$职称 (2)min(工资) (3)年龄>=50 or 工资=D
2
(4)exit (5)delete
3
(6)销售价*销售量 (7)and (8)2(或者销售量)
4
(9)not 性别 (10)t=t+1
阅读程序(每小题5分，共20分)
1、有一程序如下，请写出运行结果：
SET TALK OFF
CLEAR
I=1
DO WHILE Itno
SELECT user
?tno+SPACE(2)+unmae+SPACE(2)+STR(mm,3)
ENDSCAN
1. 7 21 35 49
2. 5 22
2 20
3. 西部开发在重庆
4. 123 u1 75
456 u2 110
789 u3 300
程序设计题 (共20分，第1小题8分，第2小题12分)
1、编写一个循环结构程序计算100以内的奇数和
2、已知两个数据表：学生档案表XSDA.dbf，有学号、姓名、专业班级(均为字符型)等字段和学生成绩表XSCJ.dbf，有学号(有重复值)、课程名、成绩(数值型)等字段。
编写一程序，通过反复输入学生的学号(输入回车键退出)，查询学生的姓名，专业班级，课程名以及成绩情况。
1.
CLEAR
INPUT "请输入N的值：" TO N
S=0
T=1
DO WHILE T
