年月计算机等考二级VF真题及答案

图书(总编号 C(6), 分类号 C(8), 书名 C(16), 作者 C(6), 出版单位 C(16), 单价 N(7,2)) 读者(借书证号 C(4), 单位 C(10), 姓名 C(6), 性别 C(2), 职称 C(6), 地址 C(16)) 借阅(借书证号 C(4), 总编号 C(6), 借书日期 D)

ZGJK(职工号 C(6), 姓名 C(6), 性别 C(2), 出生日期 D(), 职称 C(6),基本工资 N(7,2))

（1）select 借书证号, count(*); from 借阅;

where 借阅证号=\

此语句的功能是：___________________________ （2） select *, count(*); from 图书; group by 书名, 作者

此语句的功能是：___________________________ （3） select *; from 借阅, 图书;

where 借阅．总编号 = 图书．总编号

此语句的功能是：___________________________ （4） select 单位, count(*); from 读者;

where 借书证号 in (select distinct 借书证号 from 借阅); group by 单位

此语句的功能是：___________________________ （5） use zgjk

accept \输入一个职工号:\locate for职工号=x display

此语句的功能是：___________________________ （6） use zgjk set index to zgh.idx

此语句的功能是：___________________________ （7） use zgjk

calculate max(基本工资), min(基本工资), avg(基本工资) 此语句的功能为：__________________________ 52、根据程序填空或指出程序的功能(每题5分,共10分)。 （1）clear store 0 to c1,c2,c3 use ZGJK scan

do case

case 职称=\教授\ c1=c1+1

case 职称=\副教授\ c2=c2+1 case 职称=\讲师\c3=c3+1 endcase endscan ? \教授:\ ? \教授:\ ? \讲师:\ use return

此程序的运行结果为：_________________________________________ （2）假定此题所使用的数据库仍为上题中的ZGJK.DBF。

clear

ch=\ use ZGJK

do while upper(ch)=\ clear

accept \请输入一个职工号:\ locate for 职工号=x if found()=.t.

@2,2 say \姓名:\姓名 @3,2 say \性别:\性别 @4,2 say \职称:\职称 get 职称

@5,2 say \基本工资:\基本工资) get 基本工资 read else

@2,2 say \输入的职工号不正确!\ endif

@7,2 say \继续修改下一个记录吗(Y/N)?\ read enddo use return

此程序的运行结果为：_________________________________________

53、假定当前数据库仍为前面已定义的ZGJK.DBF,请用一条或一组命令实现下列每一个操作(每题3分,共9分)。

（1）显示从当前记录开始的n个记录的值，其中n值由键盘输入。

（2）分别统计并显示出男、女职工的人数。

（3）首先打开按基本工资升序建立的单索引文件jbgz.idx，然后显示出基本工资最低的所有记录(可能为一条，也可能为若干条)。