(1)阅读程序
USE STUD.DBF
REPLACE ALL SCHOSHIP WITH SCHOSHIP+20 for SCORE＜ 600
GOTO 2
DISPLAY NEXT 3 SCHOSHIP
USE
(问题 2：在 repl命令中将 for改为 while程序的运行结果是什么？ )
STUD.DBF
Sno name sex birthday score schoship
(C,6) (C,6) (C,2) (D,8) (N,3) (N,3)
990105 王亚洲 男 19800524 556 120
990102 赵辉 男 19811203 600 180
990107 刘洋 男 19800520 515 100
990103 王丹 女 19810326 624 180
990104 李冬梅 女 19800415 525 100
990101 白雪 女 19810618 540 120
990106 陈小刚 男 19820816 510 100
(2)阅读程序
USE STUD
SKIP
SNO
SKIP 3
SEX
SKIP 3
BOF()
SKIP–3
SCORE
USE
STUD.DBF
Sno name sex birthday score schoship
(C,6) (C,6) (C,2) (D,8) (N,3) (N,3)
990105 王亚洲 男 19800524 556 120
990102 赵辉 男 19811203 600 180
990107 刘洋 男 19800520 515 100
990103 王丹 女 19810326 624 180
990104 李冬梅 女 19800415 525 100
990101 白雪 女 19810618 540 120
990106 陈小刚 男 19820816 510 100
(3)阅读程序
CLEA
USE STUD
GOTO 2
INSERT BLANK
REPLACE SNO WITH '990108',NAME WITH '张彤 ',SEX WITH '女
',BIRTHDAY WITH {82-6-4},SCORE WITH 500,SCHOSHIP WITH 120
GOTO 2
X=SCORE
skip
Y=SCORE
X－ Y
USE
STUD.DBF
Sno name sex birthday score schoship
(C,6) (C,6) (C,2) (D,8) (N,3) (N,3)
990105 王亚洲 男 19800524 556 120
990102 赵辉 男 19811203 600 180
990107 刘洋 男 19800520 515 100
990103 王丹 女 19810326 624 180
990104 李冬梅 女 19800415 525 100
990101 白雪 女 19810618 540 120
990106 陈小刚 男 19820816 510 100
(4)阅读程序
USE STUD
GO BOTTOM
RECNO(),EOF()
SKIP
RECNO(),EOF()
GO TOP
RECNO(),BOF()
SKIP–1
RECNO(),BOF()
STUD.DBF
Sno name sex birthday score schoship
(C,6) (C,6) (C,2) (D,8) (N,3) (N,3)
990105 王亚洲 男 19800524 556 120
990102 赵辉 男 19811203 600 180
990107 刘洋 男 19800520 515 100
990103 王丹 女 19810326 624 180
990104 李冬梅 女 19800415 525 100
990101 白雪 女 19810618 540 120
990106 陈小刚 男 19820816 510 100
(5)阅读程序
set heading off
USE GZ
REPL all 应领工资 WITH 标准工资 +津贴 +补贴
GO TOP
SKIP 2
DISP NEXT 2 编号,应领工资 OFF
USE
GZ.DBF
编号 标准工资 津贴 补贴 应领工资 扣款 实发工资
(C,4 ) (N,7) (N,6) (N,6) (N,7) (N,6) (N,7)
3001 165.00 95.00 80.00 0.00 10.00 0.00
1002 165.00 95.00 80.00 0.00 10.00 0.00
2001 305.00 140.00 120.00 0.00 40.00 0.00
1001 520.00 210.00 140.00 0.00 50.00 0.00
3002 305.00 140.00 120.00 0.00 40.00 0.00
2002 285.00 110.00 100.00 0.00 30.00 0.00
(6)阅读程序
set heading off
USE RS
GOTO 3
DELETE FOR 性别 ="男 " and "教授 " $ 职称
pack
goto 2
disp off fields 编号,姓名,职称
RS.DBF
编号 姓名 性别 出生日期 职称 工龄 婚否
(c,4) (c,6) (c,2) (d,8) (c,6) (n,2) (l,1)
1001 李力 男 19600915 教授 19 T
3001 王玫 女 19751220 助教 4 F
2001 赵大山 男 19650512 副教授 14 T
3002 丁一林 男 19660924 副教授 13 T
1002 孙夏 女 19730822 助教 6 F
2002 黄刚 男 19701020 讲师 9 T
(7)阅读程序
USE STUD
COPY TO STUDSTRU STRUCTURE EXTENDED
USE STUDSTRU
问题 1：新库 STUDSTRU中有几条记录?
问题 2,studstru数据库中有几个字段？
STUD.DBF
Sno name sex birthday score schoship
(C,6) (C,6) (C,2) (D,8) (N,3) (N,3)
990105 王亚洲 男 19800524 556 120
990102 赵辉 男 19811203 600 180
990107 刘洋 男 19800520 515 100
990103 王丹 女 19810326 624 180
990104 李冬梅 女 19800415 525 100
990101 白雪 女 19810618 540 120
990106 陈小刚 男 19820816 510 100
(8) 阅读程序
use stud
copy stru to stud1
use stud1
append from stud for score>550
go bottom
recno()
name,score
use
STUD.DBF
Sno name sex birthday score schoship
(C,6) (C,6) (C,2) (D,8) (N,3) (N,3)
990105 王亚洲 男 19800524 556 120
990102 赵辉 男 19811203 600 180
990107 刘洋 男 19800520 515 100
990103 王丹 女 19810326 624 180
990104 李冬梅 女 19800415 525 100
990101 白雪 女 19810618 540 120
990106 陈小刚 男 19820816 510 100
(9)阅读程序
set dele off
use rs
DELETE FOR "教授 "$职称
recall for 工龄 >15
SET DELE ON
count to ss (注：把数据库中的记录数给变量 ss)
"ss=",ss
RS.DBF
编号 姓名 性别 出生日期 职称 工龄 婚否
(c,4) (c,6) (c,2) (d,8) (c,6) (n,2) (l,1)
1001 李力 男 19600915 教授 19 T
3001 王玫 女 19751220 助教 4 F
2001 赵大山 男 19650512 副教授 14 T
3002 丁一林 男 19660924 副教授 13 T
1002 孙夏 女 19730822 助教 6 F
2002 黄刚 男 19701020 讲师 9 T
（ 10） 阅读程序
USE STUD
COPY TO STUDBAK WHILE SEX='男 ' FIELDS;
SNO,NAME,SCORE
USE STUDBAK
GO BOTTOM
SNO,NAME,SCORE
USE STUD.DBF
Sno name sex birthday score schoship
(C,6) (C,6) (C,2) (D,8) (N,3) (N,3)
990105 王亚洲 男 19800524 556 120
990102 赵辉 男 19811203 600 180
990107 刘洋 男 19800520 515 100
990103 王丹 女 19810326 624 180
990104 李冬梅 女 19800415 525 100
990101 白雪 女 19810618 540 120
990106 陈小刚 男 19820816 510 100
(11)阅读程序
use stud
dele for birthday>{1980/12/12} and score>=600
pack
goto 4
disp sno,name,birthday
use
STUD.DBF
Sno name sex birthday score schoship
(C,6) (C,6) (C,2) (D,8) (N,3) (N,3)
990105 王亚洲 男 19800524 556 120
990102 赵辉 男 19811203 600 180
990107 刘洋 男 19800520 515 100
990103 王丹 女 19810326 624 180
990104 李冬梅 女 19800415 525 100
990101 白雪 女 19810618 540 120
990106 陈小刚 男 19820816 510 100
(12)程序填空
在数据库的最后添加一条记录,括号内应填写什么
SET TALK OFF
USE STUD
_________
REPLACE SNO WITH '990108',NAME WITH '张彤 ',SEX WITH '女 ',;
BIRTHDAY WITH {82-6-4},SCORE WITH 582,SCHOSHIP WITH 120
Use
SET TALK ON
(13)程序填空
利用数据库结构文件建立新数据库
USE RS
__________
CREATE SS FROM DD
USE SS
APPEND FROM RS
LIST
USE
(14)程序填空
USE RS
GOTO 2
_________ &&工龄加一年
USE STUD
_________ &&所有分数大于 550的奖学金加 20
USE
(15)程序改错 (写出错误的行号及正确的语句 )
下面程序用于删除 RS.DBF中第二, 三, 四条记录
(1) SET TALK OFF
(2) USE RS
(3) LIST
(4) GO 2
(5) DELE NEXT 3
(6) ZAP
(7)USE
(8) SET TALK ON
(16)程序改错
计算 GZ.DBF数据库中的应领工资字段,应领工资应为标准工
资加津贴加补贴
(1) SET TALK OFF
(2) USE GZ
(3) list
(4) REPLACE 应领工资 WITH 标准工资 +津贴 +补贴
(5) USE
(6) SET TALK ON
17、下列哪一个是非法的变量名（）。
A 姓名 B 编 号 C AGE_N D STUDENT_NO
18、下列表达式为真的是（）。
A ‘中国’ <‘北京’ B ‘计算机’ $’计算机考试’
C 2*3.14<=11/6 D ‘大连’ = =’大连 ’
19、设有人事数据库 RS.DBF，其中简历为备注型字段，则
该字段的数据存放于（）文件中。
A RS.DBF B RS.MEM C RS.FXP D RS.FPT
20、执行 LIST NEXT 1命令之后，记录指针的位置指向（）。
A 下一条记录 B 原来记录 C 尾记录 D首记录
21、执行下列命令后，将显示（）
USE XSK
SET FILTER TO 性别 =‘男’
GO 2
？ RECNO（）
A 2 B 4 C,T,D,F.
22、如果将当前数据库中的‘年龄’字段删除，应使用的命
令（）
A MODI STRU B DELETE C ERASE D ZAP
23、执行命令 DISP STRU后，显示数据库文件各字段总宽度
为 50，则用户定义的字段总宽度为（）
A 49 B 50 C 51 D 52
24、有下列各组命令，每次执行假定记录指针指向第一条记
录，并且在没有打开索引的情况下，两条命令执行结果相同
的是（）
A LOCA FOR RECNO（） =5 SKIP 5
B GO RECNO（） +5 SKIP 5
C SKIP RECNO（） +5 GO RECNO（） +5
D GO RECNO（） +5 LIST NEXT 5