跪求一VFP试题解答 答案，急！！

Question

已知一个职工数据库，包括

职工表（职工号，姓名，年龄，性别，工龄，职称，工资，照片，简历）

主键：职工号

候选键：姓名

业绩表（职工号，月产量，奖励）

主键：职工号

这两表间已经建立关联。

1 输入10个任意的数，按从大到小的顺序输出。

2 查询职工表中工资大于3000.00元并且年龄40岁以上的职工人数。（程序实现）

3 在职工数据库中，查找月产量大于5000件的职工的工龄，职称，姓名和职工号。(SQL 和程序两种方式实现)

4 已知职工月产量的评分级别：

小于1000件，是不合格

大于等于1000件，小于3000件，是一般

大于等于3000件，小于5000件，是良好

大于等于5000件，是优秀

对职工业绩进行评定，并统计其中优秀职工个数

5设计一个图书管理数据库。

(1)包括表，以及各种键，和表之间的关联。优化到第三范式。（至少三个表）

(2)键盘输入书名，然后查询到该书借阅者的信息，若未被借，则显示“该书还在”

只写出程序代码，能看出思路就行，不要太专业的，一张A4纸能打印出来，不用设计出软件

Answer 1

1 输入10个任意的数，按从大到小的顺序输出。

clear
set talk off
dime a(10)
for i=1 to 10
input to a(i)
s=s+a(i
endfor
for i=1 to 9
for j=i+1 to 10
if a(i)<a(j)
t=a(i)
a(i)=a(j)
a(j)=t
endif
endfor
endfor
?"这10个数由大到小的顺序是："
for i=1 to 10
??a(i)
endfor
set talk on
return

2 查询职工表中工资大于3000.00元并且年龄40岁以上的职工人数。
clear
use 职工表
n=0
scan for 工资>3000 and 年龄>40
n=n+1
endscan
?"工资大于3000.00元并且年龄40岁以上的职工人数:",n
use
return

3题：
SQL语句
select 工龄,职称,姓名,职工号 from 职工表,业绩表 where 月产量>5000

程序如下：
clear
use 业绩表 in 2 index 职工号
use 职工表 in 1
select 1
set relation to 职工号 into b
do while not eof()
if 业绩表.月产量>5000
?工龄，职称，姓名,职工号
endif
skip
enddo
use in 1
use in 2
return

4题：
clear
n=0
use 业绩表
do while not eof()
do case
case 月产量<1000
?职工号+"不合格"
case 月产量<3000
?职工号+"一般"
case 月产量<5000
? 职工号+"良好"
otherwise
? 职工号+"优秀"
n=n+1
endcase
skip
enddo
use
?"优秀职工个数是：",n
return

5.那是上机具体操作题，可不是用语言能表达清楚的。

Answer 2

Shan Dong Unisversity at Weihai.