《Visual Foxpro》综合复习资料(2)

1、设供应商.DBF用于存放供应商信息，其字段有：姓名(字符型)，电话(字符型)，地址(字符型)。下面程序的功能是：查找电话号码中含有“123”的所有姓李的供应商的信息。请将程序填写完整。 SET TALK OFF CLEAR __________

DO WHILE .NOT. EOF()

IF SUBSTR(姓名，1，2)=“李” AND __________ ？姓名+电话+地址 __________ ENDDO USE

SET TALK ON RETURN

2、有如下程序段，其功能是显示汉字“2008年北京申奥成功！”从屏幕的顶部移至底部，设屏幕共24行。请填空补充该程序。 CLEAR

CH=〝2008年北京申奥成功！〞 R=1

DO WHILE ____________

@__________ , 26 SAY CH T=INKEY(0.2) _______________ ENDDO RETURN

3、表文件“xs.dbf”中记录如下 学号 S101 S102 S103 S104 S105 S106 S107 S108 S109 S110 姓名 张军 林平 任涛 何晓红 徐静 刘维海 李敏 马华远 李娜 赵菲 性别 男 男 男 女 女 男 女 男 女 女 成绩 90 66 50 76 82 86 92 60 76 78 阅读下列程序： CLEAR USE XS

INDEX ON –成绩 TO CJ1 GO TOP

DISP 姓名，成绩 N=0

LOCATE FOR 性别＝女 AND 成绩>=80

DO WHILE .NOT. EOF() IF FOUND() N=N+1 CONTINUE ENDIF ENDDO ? N

CLOSE ALL RETURN

（1）程序第六行“DISP 姓名，成绩”执行结果显示是__________

（A） 张军 90 (B)赵菲 78 (C)任涛 50 (D)李敏 92 （2）程序运行完毕后，N的值为______________

（A） 2 (B)3 (C)4 (D)5 （3）关于循环中的CONTINUE，说法正确的是_________________ （A） 可以用SKIP语句代替，不影响程序执行结果 （B） 可以放到循环外，不影响程序执行结果 （C） 去掉CONTINUE，程序将进入死循环 （D） 去掉CONTINUE，不影响程序执行结果 4、数据库信息.DBC 中有数据库表职工.DBF，用SELECT 命令查询职工表中年龄不小于25岁、“职务”字段为“销售员”的职工的信息，结果按“部门号”字段值降序排列，请填空：

SELECT 部门号，职工号，姓名，职务，年龄； 人事！职工

WHERE 年龄>=25 职务＝“销售员” ORDER BY 5、有图书表TS.DBF，其内容如下

记录号 书名 出版单位 单价 1 VFP数据库 电子科大 20.00 2 计算机基础 四川大学 25.00 3 信号与系统 电子科大 28.00 4 计算机网络 电子科大 27.00 5 计算机原理 四川大学 21.00 6 现代汉语 四川师大 23.00 7 操作系统 西南交大 24.00 阅读下列程序：

UPDATE TS SET 单价=单价+8 WHERE 出版单位=’四川师大’

SELECT 出版单位，AVG（单价） AS 单价 FROM TS GROUP BY 出版单位；

INTO DBF ABC

SELECT * FROM ABC WHERE 单价<28 ORDER BY 单价 DESC; INTO DBF ABC1 USE ABC1 ? 出版单位

(1) 新表ABC的记录数有______________个

（A)7 (B) 5 (C)4 (D)3 (2) 最后显示的出版单位是____________

(A)电子科大 (B)四川大学 (C)西南交大 (D)四川师大 (4)新表ABC1的记录数有_____________个

(A)3 (B)4 (C)5 (D)6

五、程序设计题

1、假设约定年龄不超过35岁的职工为青年职工；年龄在36岁至45岁的职工为中年职工；年龄超过45岁的职工为老年职工。从键盘输入任一职工姓名在STUD表中查找，显示其姓名、年龄以及所属的职工类型。

2、编程显示STUD表中所有男学员的姓名、工龄及工资。 3、从键盘输入N个数存入数组A中，找出其中的最大数。

4、打开STUD表，分别统计所有姓“张”学员的平均年龄和所有姓“王”学员的平均年龄。 5、有如下售书数据表BOOK.DBF，BOOK.DBF中的记录如下： 书号 单价 数量 总计 B0168 19.8 3 B6915 12.6 36 B9023 40.0 100 B4682 18.0 40 B6329 28.0 56 B8127 2.0 20

要逐条计算总计并填入“总计”字段之中，计算按照如下规则： 若数量小于等于10，总计等于“单价*数量” 若数量大于50，总计等于“单价*数量*(1-5/100)” 若数量在11与50之间，总计等于“单价*数量(1-10/100)” 6、从键盘输入任一自然数N，求小于等于N的自然数之和。

7、根据表SCORE（学号，课程号，成绩）中的数据，统计选修课程号分别为“000002”、“000005”和“000008”课程的人数以及这些课程的平均分。

8、设有一成绩表score.dbf，它由以下字段组成：姓名（C，8）、平时成绩（N，6.2）、期末成绩（N，6.2）、总成绩（N，6.2）、等级（C，6）。其中前3项已有数据，用SCAN循环编写程序计算并填写每一记录的“总成绩”和“等级”字段，他们的计算方法分别为：

1）总成绩计算方法：总成绩=平时成绩×30%+期末成绩×70% 2）等级计算方法：

总成绩≥90 “等级”为“优秀”； 75≤总成绩<90 “等级”为“良好”； 60≤总成绩<75 “等级”为“合格”； 总成绩<60 “等级”为“不合格”。

9、从键盘输入任一小于10的自然数N，求N的阶乘。

10、编写程序，在STUDENT数据库的STUD表中查找并显示任意一个学生学号、性别、班级

名、地址等基本情况。

11、在STUDENT数据库的STUD表中任意查找一同学，有此人就显示该生的姓名、性别、出生日期等信息，无此人就显示“查无此人”。

12、逐条显示在STUDENT数据库的STUD表中性别为“男”的所有记录。

《Visual Foxpro》综合复习资料参考答案

一、单项选择题

1 - 5、B A B D A 6 -10、D B B B D 11-15、C C C C A 16-20、C D B B A 21-25、D C D A B 26-30、A B C D B 31-35、D B A B C 36-40、B D D A A

二、判断题

1 - 5、√√××× 6-10、√×××√

三、填空题

1、关系模型 2、字段变量 3、true

4、”123456” 5、.t.

6、去掉重复记录 7、6

8、通用型 9、关系

10、查询条件

11、性别=”女” and 民族=”回族” 12、input

13、age is null 14、exit

15、display all 16、distinct 17、having 18、insert

19、where 职工.职工号=工资.职工号 20、备注

四、程序填空题

1、use 供应商.db、”123”$电话、skip

2、R<=24、R、R=R+1 3、D、A、C

4、FROM、AND、部门号 desc 5、C、B、A

五、程序设计题

1、假设约定年龄不超过35岁的职工为青年职工；年龄在36岁至45岁的职工为中年职工；年龄超过45岁的职工为老年职工。从键盘输入任一职工姓名在STUD表中查找，显示其姓名、年龄以及所属的职工类型。

SET TALK OFF CLEAR USE STUD

ACCEPT '请输入所查的姓名: ' TO XM LOCATE FOR 姓名=XM IF .NOT. FOUND()

?”查无此人” ELSE

NL=YEAR(DATE())-YEAR(出生日期) DO CASE

CASE NL<=35

?姓名,NL,”青年职工” CASE NL>35 .AND. NL<=45 ? 姓名,NL,”中年职工” OTHERWISE

? 姓名,NL,”老年职工”

ENDCASE

ENDIF USE

SET TALK ON RETURN

2、编程显示STUD表中所有男学员的姓名、工龄及工资。

SET TALK OFF USE STUD SCAN

IF 性别=”男”

? 姓名,YEAR(DATE())-YEAR(工作时间),工资 ENDIF ENDSCAN USE

SET TALK ON RETURN

3、从键盘输入N个数存入数组A中，找出其中的最大数。

SET TALK OFF CLEAR

INPUT “N=?” TO N

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库《Visual Foxpro》综合复习资料(2)在线全文阅读。