ENDSCAN USE
CLOSE DATABASE （1）compen是：（）
A．自由表 B．数据库表 Ｃ．数据库 Ｄ．可能是自由表，也可能是数据库表
（2）若数据库有50条记录，则程序的功能是：（）
A． 前10条记录中搜索“李强”的记录 B．列出前10条记录 Ｃ．每10条记录一屏显示记录，但不显示“李强”的记录 Ｄ．列出前１０条记录，但是不显示“李强”的记录 （3）循环结束后，指针指向（）
A. 第1条 B.最后一条 C.第10条 D.最后1条记录加1 14、有以下三段程序
*Main.PRG *SUB.PRG K1=10 PRIV K1 K2=20 K1=K2+10 DO SuB K2=K1+10 ?K1，K2 &&(1) RETU DO SUBl With K2+10，K1
?K1，K2 &&(3) *Sub1.pRG PARA Xl,x2
X1=STR(X1，2)+STR(X2，2) X2=X1+STR(X2，2) ?X1,X2 &&(2) RETU 1）、程序运行到(1)处显示的结果是( )
A)10 20 B)20 30 C) lO 30 D) lO 40 2）、程序运行到(2)处显示的结果是( ) A)5010 501010 B)60 70 C)70 60 D)3010 301010 3）、程序运行到(3)处显示的结果是( )
A)3010 40 B)5010 40 C)501010 40 D)301010 20
三、程序填空
1、使用结构化查询语句SQL，
（1）在给定的数据库表RS中，查询工资在1000至1500元之间的职工的职工号，姓名及单位。
SELECT职工号，姓名，单位 FROM ____① ___ WHRER 工资 BETWEEN 1000 AND 1500
（1）在教工数据表JG中，查询职称为“助教”或“讲师”人员的姓名，工资和部门。
SELECT 姓名，工资，部门 FORM JG WHERE职称___② __ 2、在数据库student中有，学生成绩表cj.dbf，向该表添加一个字段：平均成 绩N(6，2)。其程序如下，请填充相关命令。 ① DATABASE STUDENT USE CJ
ALTER TABLE ② 平均成绩N(6，2)
Close all
3、读程序，请将程序补充完整。
X=0 CLEAR
DO WHILE .T.
@ 10,20 SAY “主菜单”
@ 11,22 SAY “1??输入数据” @ 12,22 SAY “2??查询记录” @ 13,22 SAY “3??统计记录” @ 14,22 SAY “4??退出系统” @ 15,22 SAY “请输入选择1??4：” GET X _________①_ ________ DO CASE CASE X=1 DO SUB1 CASE X=2 DO SUB2 CASE X=3 DO SUB3
CASE X= 4
__________②_ _________ ENDCASE ENDDO
RETURN
4、职工表的结构为：（职工号 C（8），职工姓名 C（8），年龄 N（4），职称 C（18））。下面程序显示“职工”表中的高级工程师的记录。 USE 职工 【1】
职称=”高级工程师” DO WHILE 【2】 DISPLAY WAIT 【3】
ENDDO RETURN
5、逐条显示数据表“学生.DBF”中的所有女学生的记录 Use 学生
Do while .not.eof() If 性别=”男”
______（1）_ ______ ______（2）_ loop _______ Endif Display
Wait “按任意键继续显示下一个女生的记录??” ______（3）_ skip ________ Enddo Use
retu
6、职工表的结构为：（职工号N（8），职工姓名C（8），年龄N（4），职称C918））。下面程序显示“职工”表中的1965年出生的高级工程师的记录。 Use 职工
_________（1）_ ___ 职称=”高级工程师” and year(出生日期)=1965 Do while _ ________（2）_______________ display wait
__ ______（3）____________ enddo return
7、有如下程序段，其功能是显示汉字“2008年北京申奥成功！”从屏幕的顶部移至底部，请填空补充该程序 CLEAR
CH=? 2008年北京申奥成功！? R=1
DO WHILE R<=23
@R,26 SAY SPACE(60)
@_（1） _________ , 26 SAY CH T=INKEY(0.2)
（2）___ ___________
ENDDO RETURN
8、数据表，图书表TS.DBF 和定单表 DD.DBF，要求计算订单金额。图书表TS.DBF的结构如下：
书号 书名 作者 出版社 单价 Y001 C语言 王晓 大众出版社 21.50 J002 计算机基础 程力 科技出版社 26.00 J003 计算机导论 舒彦 电子出版社 30.50 W004 网页制作 严谨 科技出版社 28.30 订单表DD.DBF结构如下:
订单号 书号 数量 金额 001 Y001 150
002 J001 200 003 J003 50 004 W004 100 阅读下面程序,请将程序补充完整. CLEAR ALL SELECT A USE TS
INDEX _（1）_ ___________ TO TSS SELECT B USE DD
SET RELATION TO 书号 _（2） _________ REPLACE ALL 金额 WITH __（3） ___________ LIST 定单号,书号,TS.书名,TS.单价,数量,金额 RETURN
9、程序功能是为数据表SB-1.DBF编制的一个输入程序，要求可以连续添加记录。 USE SB-1 DO WHILE .T. CLEAR
@2,5 SAY “请添加记录：” （1）__ ________________ @4,5 SAY “编号” GET编号 @6,5 SAY “名称” GET名称
@8,5 SAY “启用日期” GET启用日期 @10,5 SAY “价格” GET 价格 @12,5 SAY “部门” GET 部门
@14,5 SAY “主要设备” GET 主要设备 （2）__ ________________ @18,5 SAY “是否输入商标内容?(Y/N)” GET SHB DAFAULT SPACE(1) READ
IF UPPER(SHB)=?Y?
MODIFY GENERAL 商标 ENDIF
@20,5 SAY “是否继续添加？（Y/N）” GET JX DEFAULT SPACE（1） READ
IF LOWER(JX)=?N? （3）____ _______________________ ENDIF ENDDO RETURN
10、数据表 STUD.DBF有字段： 学号,姓名,性别,年龄,民族,专业,成绩等字段.下面按要求写出SQL命令,请补充完成
(1)在表中插入一学生的记录: (2)列出所有男生的姓名、性别和年龄 (200211001,李晚,女,18) SELECT 姓名,性别,年龄; SQL语句： FROM STUD;
INSERT ; （2）_ _____________ 性别=?男? （1）__ _____ STUD(学号,姓名,性别,年龄) Values(?200211001?、?李晚?、?女?、18)
11、设有自由表XS，DBF，以“姓名“字段为关键字建立独立索引文件XSID．IDX。因误操作而使得表中存在重复记录，现编程将重复记录物理删除，请将程序填写完整。 use xs 【1】 xm=姓名 skip
do while 【2】 xm1=姓名 if 【3】 dele else xm=xml endif
skip enddo 【4】
use retu
12、以下是数据表xs.dbf，
学号 姓名 性别 人校总分 三好生 奖学金 s0201101 王小平 男 590 F 50.0 s0201102 张 强 男 568 T 20.0 s0201103 刘 雨 女 565 F 20.0 (1)用SQL 语句将一条新记录加入xs表。 Inse ① INTO xs(学号，姓名，性别，人校总分) VALUES ② (’s0201112?，? 兰草?，?女’,567)
(2)用sQL语句将获得三好生的同学的奖学金增加20％。
③UPDATE xs set 奖学金=奖学金*1.2 ④where 三好生 13、下面程序的功能是利用参数传递求三个圆柱体体积。
*主观题 EX.PRG CLEAR
FOR K=1 TO 3
INPUT“圆半径R=”TO R INPUT“高H=”TO H _______①V=0______ DO SUBYZ__ with v,r,h ____②_____ ?”圆柱体V=”,INT(V） ENDFOR RETURN
*子程序 SUBYZ.PRG
PARA_____③v,r,h ______ V=3.14*R^2*H RETURN
四、程序设计（书面编写，上机实现） 1、
学生.DBF
记录号 学号 姓名 性别 出生日期 班级
1 A0101 李晓英 女 12/ 30/ 85 2000级电气 2 A0202 张刚 男 11／23／85 2000级数学 3 AO2O3 吴小华 女 10／10／85 2000级电气 4 A0204 王波 男 0S／12／84 2000级数学 5 AOl03 代非 男 03／04／86 2000级电气 6 A0301 曾诚 男 06／01／85 2000级物理
成绩.DBF
记录号 学号 课程号 成绩
1 A0l01 D01 80.0 2 A0202 D02 90.0 3 AOl02 D03 70.0 4 A0201 D04 76.0 5 AOl03 D01 77.0