有谁熟悉vfp数据库吖?来帮帮我..(2)

拜托了..

程序填空题

已知数据表如下表所示, 表名称为ZGQK.DBF。 根据要求完成相应的题目：

Record# 编号 姓名 性别 出生日期 婚否 职称 实发工资 简历
1 94001 张志强 男 09/04/38 .T. 副教授 815.00 Memo
2 94010 王龙 男 12/05/58 .F. 讲师 458.00 Memo
3 94015 李丽 女 11/03/55 .T. 实验员 424.00 Memo
4 94023 刘勇 男 08/25/70 .T. 助教 365.00 Memo
5 94034 徐大伟 男 02/16/50 .F. 副教授 547.00 Memo
6 94040 李静 女 03/22/72 .F. 实验员 353.00 Memo
7 94055 陈红 女 07/06/65 .T. 讲师 455.00 Memo

1、 使用传统的FoxPro方法，列出你要查询的职工的情况。
USE ZGQK
ACCEPT "请输入待查职工的姓名：" TO XSXM
LOCA for 姓名＝XSXM
IF ( )
? "查无此人"
ELSE
（ ）
ENDIF

2、补充命令序列，查找所有姓李的并且出生日期是1972年以后出生的，并显示其记录的姓名、出生日期字段
Use ZGQK
Local for （ ）
Do while .not. eof( )
D

1、 使用传统的FoxPro方法，列出你要查询的职工的情况。
USE ZGQK
ACCEPT "请输入待查职工的姓名：" TO XSXM
LOCA for 姓名＝XSXM
IF (.not.found() )
? "查无此人"
ELSE
（ Display）
ENDIF

2、补充命令序列，查找所有姓李的并且出生日期是1972年以后出生的，并显示其记录的姓名、出生日期字段
Use ZGQK
Local for （substr(姓名,1,2)='李' .and. yser(出生日期)>=1972)
Do while .not. eof( )
Disp（ 姓名,出生日期）
Cont
enddo

3、本程序是求所有职称是副教授的工资之和，请完成该程序。
USE ZGQK
s＝0
loca for 职称＝“副教授”
（Do while .not. eof( ) ）
（ s=s+ 实发工资）
cont
enddo

4、本程序是求100以内能同时被3和9除尽的数的和的程序，请补充完整。
s＝0
for i=1 to 100
（ if mod(i,9)==0 ）
（ s=s+i）
endif
endfor

注：除尽的概念是整除吗？那么能被9整除的一定能被3整除

5、请写出下面程序执行后的结果（ ）
USE ZGQK
GO 5
Skip －2
IF 实发工资>=800
? “高级工“
else
if 实发工资>=500
？“中级工”
else
if实发工资>=400
？“初级工”
else
？“试用期”