1. 分析下列命令执行后的输出结果，并上机验证。
(1) X=STR(13.4,4,1)
Y=RIGHT(X,3)
Z=″&Y+&X″
？&Z,Z
16.80 3.4+13.4
(2) DIMENSION A(2,3)
A=175
A(2,2)=2*A(2,2)
？A(5)，A(1,2)
350 175
(3) X=542
Y=INT(542/100)
Z=X%10
? Z*100+Y
205
(4) SET EXACT ON
CH=″数据库应用″
CH1=CH=LEFT(CH,6)
？CH1,CH
2. 就学生表，写出实现下列操作的命令：
(1) 显示第5号记录；
go 5
display
(2) 显示第5号至第10号之间的全部记录；
go 5
list next 6
(3) 连续列出1980年以后出生的学生的姓名与出生年月；
list for year(出生日期)>=1980 fields 姓名,出生年月
(4) 显示在1985年1月1日至1983年12月31日之间出生的学生记录；
list for 出生年月>={12/31/1983} and 出生年月<={01/01/1985}
(5) 在表的顶部增加一个新记录；
go top
insert before
(6) 修改最后一个记录；
go bottom
edit
(7) 将16岁以下的少数民族学生入学成绩提高20分；
replace 入学成绩 with 入学成绩+20 for year(date())-year(出生年月)<=16 and 少数民族=.t.
(8) 将学生表原样复制为xsda.dbf，并物理删除xsda.dbf中记录号为偶数的记录；
copy to xsda.dbf
delete for int(recn()/2)=recn()/2
(9) 显示入学成绩前5名的记录；
index on 入学成绩
list next 5
(10) 统计1985年出生学生的人数，并把它存入变量number中；
count for year(出生年月)=1985 to number
(11) 分别求男、女学生的平均年龄；
average for 性别=’男’
average for 性别=’女’
(12) 查找并显示出第一位少数民族学生；
locate for 少数民族=.t.
display
(13) 建立一个结构复合索引文件，其中包括两个索引：记录以学号降序排列；记录
按出生年月升序排列；
index on 学号 tag a desc
index on 出生年月 tag b
(14) 查询年龄最小和最大的学生；
calculate min(出生年月) to a
display for 出生年月=a
calculate max(出生年月)=b
display for 出生年月=b
(15) 按性别对入学成绩进行汇总。
index on 性别 tag c
total on 性别 fields 入学成绩 to xbhz
(4) 使用。
3. 利用第5章习题中给出的订货管理数据库和记录实例，用SQL语句完成下列操作：
(1) 列出在北京的供应商的名称；
select 供应商名 from 供应商表 where 地址= '北京'
(2) 列出发给供应商S6的订购单号；
select 订购单号 from 订购单表 where 供应商号='S6'
(3) 列出职工E6发给供应商S6的订购单信息；
select * from 订购单表 where 职工号='E6' and 供应商号='S6'
(4) 列出向供应商S3发过订购单的职工的职工号和仓库号；
select 职工号,仓库号 from 职工表 where 订购单表.供应商号='S3' and 订购单表.职工号=职工表.职工号
(5) 列出和职工E1、E3都有联系
的北京的供应商信息；
select b.供应商号 ,供应商名,地址 from 订购单表 a ,供应商
表 b ,订购单表 c where a.供应商号=b.供应商号 and b.供应商号=c.供应商号 and a.职工号='E1' and c.职工号='E3' and 地址='北京'
(6) 列出与工资在1220元以下的职工没有联系的供应商的名称；
select 供应商号,供应商名 from 供应商表 where not(供应商号 in(select 供应商号 from 订购单表 where 订购单表.职工号=职工表.职工号 and 职工表.工资<1220))
(7) 列出向供应商S4发出订购单的仓库所在的城市；
select distinct 城市 from 仓库表 a,职工表 b,订购单表 c where c.供应商号='S4' and c.职工号=b.职工号 and b.仓库号=a.仓库号
(8) 列出在上海工作并且向供应商S6发出了订购单的职工号；
select distinct b.职工号 from 仓库表 a,职工表 b,订购单表 c where c.供应商号='S6' and c.职工号=b.职工号 and b.仓库号=a.仓库号 and a.城市='上海'
(9) 列出由工资多于1 230元的职工向北京的供应商发出的订购单号；
select distinct c.订购单号 from 仓库表 a,职工表 b,订购单表 c ,供应商表 d where c.供应商号=d.供应商号 and 地址='北京' and c.职工号=b.职工号 and b.工资>1230
(10) 列出仓库的个数；
select count(*) from 仓库表
(11) 列出有最大面积的仓库信息；
select * from 仓库表 where 面积=(select max(面积) from 仓库表)
(12) 列出所有仓库的平均面积；
select avg(面积) as ‘平均面积’ from 仓库表
(13) 列出每个仓库中工资多于1 220元的职工个数；
select 仓库号 ,count(*) from 职工表 group by 仓库号 where 工资>1220
(14) 列出和面积最小的仓库有联系的供应商的个数；
select count(a.供应商号) from 订购单表 a ,职工表 b ,仓库表 c where a.职工号=b.职工号 and b.仓库号=c.仓库号 and c.面积=(select min(面积) from 仓库表)
(15) 列出工资低于本仓库平均工资的职工信息。
select * from 职工表 a where a.工资<(select avg(b.工资) from 职工表 b where a.仓库号=b.仓库号)
4. 利用第5章习题中给出的订货管理数据库和记录实例，用SQL语句完成以下操作：
(1) 插入一个新的供应商记录(S9，智通公司，沈阳)；
insert into 供应商表 (供应商号,供应商名,地址) values("S9","智通公司","沈阳")
(2) 删除目前没有任何订购单的供应商；
delete from 供应商表 where not(供应商号 in (select distinct 供应商号 from 订购单表))
(3) 删除由在上海仓库工作的职工发出的所有订购单；
delete from 订购单表 where 订购单表.职工号=职工表.职工号 and 职工表.仓库号=仓库表.仓库号 and 仓库表.城市='上海'
(4) 给北京仓库的面积增加
100 m2；
update 仓库表 set 面积=面积+100 where 城市="北京"
(5) 给低于所有职工平均工资的职工的工资提高10%。
update 职工表 set 工资=工资*1.1 where 工资<(select avg(工资) from 职工表)
5..写出下列程序的执
行结果。
(1).CLEAR
SET.TALK.OFF
..x=10
y=-3
FOR.n=29+x.TO.x.STEP.y
ENDFOR
?.n
RETURN
9
(2).主程序：t1.prg
SET.TALK.OFF
STORE.′AB′.TO.k1,k2
DO.t2
?.k1+k2
RETURN
子程序：t2prg
PRIVATE.k1
k1=k2+″250″
?.k1
RETURN.
“AB250”
“ABAB”
(3).SET.TALK.OFF
CLEAR
STORE.1.TO.x
STORE.20.TO.y
DO.WHILE.x<=y
IF.INT(x/2)<>x/2
x=1+x^2
y=y+1
LOOP
ELSE
x=x+1
ENDIF
ENDDO
?.x,y
SET.TALK.ON
RETURN.
122.00 23
(4).主程序：z.prg
SET.TALK.OFF
STORE.2.TO.x1,x2,x3
x1=x1+1
DO.z1
?.x1+x2+x3
RETURN
子程序：z1prg
x2=x2+1
DO.z2
x1=x1+1
RETURN
子程序：z2prg
x3=x3+1
RETURN.TO.MASTER.
9
(5).SET.TALK.OFF
x=15
y=7
DO.sub.WITH.x,(y)
?.x,y
RETURN
PROCEDURE.sub
PARAMETERS.a,b
a=a+b
b=a-b
RETURN.
(6).SET.TALK.OFF
x=9
y=13
z=fu(x,y)
?.z
RETURN
FUNCTION.fu
PARAMETERS.a,b
a=a*b
RETURN.(a).
6..输入一个三位整数，将其反向输出。如输入326，输出623。
set talk off
input "请输入一个三位数" to a
b=100*mod(a,10)+10*mod(int(a/10),10)+mod(int(a/100),10)
?b
return
7..输入学生成绩，若成绩大于80分，则输出“优良”，成绩小于60分，则输出“不及格”，否则输出“中等”。
set talk off
input "请输入学生成绩" to a
if a>80
?"优良"
else
if a<60
?"不及格"
else
?"中等"
endif
endif
return
8..在学生表中，分别统计汉族学生和少数民族学生的人数。
set talk off
use 学生表
count for 少数民族=.T. to a
count for 少数民族=.F. to b
?"少数民族学生人数为",a
?"汉族学生人数为",b
return
9..假定有包含若干个记录的表文件c1.dbf，其结构是：f1(N,3,0),f2(N,3,0)。编写程序，其功能是把各记录中所有大于40的字段值累加起来，最后把累加的结果存入第一个记录的f2字段中。
set talk off
use c1
a=0
do while .not. eof()
if f1>40
a=a+f1
endif
if f2>40
a=a+f2
endif
continue
enddo
go top
f2=a
use
return
10..一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数，例如13就是一个绝对素数。试求所有两位绝对素数。
set talk off
for m=11 to 99
n=mod(m,10)*10+mod(int(m/10),10)
if check(m) and check(n)
?m
endif
endfor
function check
parameters a
flag=.t.
k=int
(sqrt(a))
j=2
do while j<=k and flag
if mod(a,j)=0
flag=.F.
endif
j=j+1
enddo
return flag
11..用过程方式求S=A!+B!+C!(其中A,B,C从键盘输入)。
set talk off
input "请输入第一个数到A" to a
input "请输入第一个数到B" to b
input "请输入第一个数到C" to c
?"S=A!+B!+C!=",ss(a)+ss(b)+ss(c)
function ss
parameter n
m=1
for i=1 to n
m=m*i
endfor
return m
return
12..根据题目要求完善程序。
(1).通过字符串操作竖向显示“伟大祖国”，横向显示“祖国伟大”。
SET.TALK.OFF
STORE.″伟大祖国″.TO.var
CLEAR
n=1
DO.WHILE.n<8
?.SUBSTR(①)
n=n+2
ENDDO
?.(②)
??.SUBSTR(var,1,4)
RETURN
① var,n,n+1
② substr(var,5,8)
(2).对学生表，按入学成绩降序显示前10名和按升序显示后10名学生的入学成绩。
SET.TALK.OFF
USE.学生
INDEX.ON.入学成绩.TAG.cjsy.DESC
n=1
CLEAR
@1,20.SAY.″前十名成绩:″
DO.WHILE.n<=10
DISP
n=n+1
(③) continue
ENDDO
WAIT.″″
CLEAR
@1,20.SAY.″后十名成绩:″
n=1
(④) go bottom
DO.WHILE.n<=10
DISP
n=n+1
SKIP.-1
ENDDO
USE
SET.TALK.ON
RETURN.
Continue
go bottom<PIXTEL_MMI_EBOOK_2005>6 </PIXTEL_MMI_EBOOK_2005>