计算机专业《VFP》程序填空与阅读试卷汇编一
一、程序填空(每空3分，共27分)
1.有一商场的商品销售数据库XS.DBF,其记录如下:
记录号 商品名 单价 数量 总价 1 电冰箱 2000 3 6000 2 彩 电 1800 5 9000 3 电冰箱 2010 1 2010 4 空调机 1600 2 3200 5 彩 电 1900 2 3800 ??
下面程序用于分类统计各种商品总的销售数量和总的销售额(总价),并计算出平均 销售单价。
SET TALK OFF USE XS
INDE ON __________________ TO SY ______________ ______ TO TJK USE TJK
REPL _____________________ LIST USE
SET TALK ON
2.任意输入两个正整数X和Y,求X与Y的最小公倍数。 SET TALK OFF INPUT \ INPUT \ IF X>Y T=X X=Y Y=T ENDI N=Y
DO WHILE N<=__________________ IF ________________ EXIT ENDI
N=_______________________ ENDDO
?\最小公倍数是:\ SET TALK ON
3.现有一数据库CJ.DBF,该数据库文件中仅有一个数值型字段\数据\且无记录。要求键盘输入十个数,将这些数保存到CJ.DBF的\数据\字段中,并由大到小显示出来。 SET TALK OFF
1
CLEA USE CJ K=1
DO WHIL K＜＝10 _________________
＠K+5,1 SAY \第\数是:\ GET 数据 READ
__________________ ENDD
INDE ON _______________ TO TMP LIST USE
SET TALK ON
二、程序填空(每空3分,共18分)
1.男子100米短跑成绩已录入数据库Male100.DBF,现要求将前3名运动员的成绩转入获奖数据库gainer.dbf和gainer.txt文件中。阅读下列程序, 填写空位处的代码,使程序能正确有效地实现上述要求。 set Talk off clear
＠14,20 say \请稍候?\ use Male100
___________ on 成绩／D To temp use Temp
Copy _________________ To gainer.dbf use gainer
copy to gainer.txt _________________ use
＠14,20 say \操作完毕!\ Return
2.现有一户籍数据库People.DBF,存贮有该地区各位公民的档案资料,现要求按\出生日期\字段(日期型),以索引查询方式,快速查找并显示所有与指定出生日期相同的记录。 Set Talk off Set Safe off Clear
use people
Index On 出生日期 To Ipeople Born=\ / / \
＠14,20 Say \请输入查询的出生日期:\ Read
________________________
Do while .NOT.EOF( ).AND. _________________ Display Skip Enddo
2
use
Set Talk on Return
三、程序填空(每空3分，共18分)
1、在人事档案管理系统中，设有两个数据库：
ZGQK.DBF(编号，姓名，性别，职称，部门名，基本工资) ZGGZ.DBF(编号，资金，房租，实发工资)
查询并显示实发工资1200元以上的职工姓名及职称，请将程序补充完整。 SET TALK OFF SELE 1 USE ZGQK
INDEX TO QK SELE 2 USE ZGGZ
LOCA FOR 实发工资＞＝1200 IF FOUND( )
DO WHILE .NOT.EOF( )
DISP CONT ENDDO ENDIF
CLOSE ALL SET TALK ON
2、求1──100间能被5整除的奇数个数及其和，请将程序被充完整。 SET TALK OFF CLEA I＝1 S＝0 M＝0
DO WHILE IF M＝M＋1
ENDIF I＝I＋2 ？M，S ENDO
SET TALK ON 四、程序填空题：（每空3分，共计24分）
1、显示1到100之间既能被4整除又能被6整除的整数。 set talk off n=1
do while
3
if n=n+1 Loop else
? n endi
Endd
2、向数据库文件 TSK.DBF 中增添新记录。 Set talk off Clear
Use tsk
An=\
Do While An=\
@ 10, 20 say \书号\ GET 书号 @ 11, 20 say \书名\ GET 书名 @ 12, 20 say \单价\ GET 单价 @ 13, 20 say \册数\ GET 册数 READ
WAIT “继续吗？（Y/ N)” Endd Use
3、通过光带式菜单选择并执行子程序，其菜单和子程序名称分别为：数据录入（PG1-1. PRG）、数据查询（PG2-2. PRG）、统计报表（PG3-3. PRG）、退出系统，共四项。 SET TALK OFF DO WHILE .T CLEAR
@ 10，26 SAY “1 . 数据录入” @ 11，26 SAY “2 . 数据查询” @ 12，26 SAY “３. 统计报表” @ 13，26 SAY “4 . 退出系统” TO K EXIT ENDI
DO &FN ENDDO
4、三个数据库文件；学生入学情况库XSRX.DBF、本学期学生成绩库XSCJ.DBF和教师情况库JXK.DBF，和数据库内容如下： USE XSRX LIST OFF
姓名 班级 保送生
4
张红 2 .T. 李明 4 .T. 王军 2 .F. 赵波 2 .T. USE XSCJ LIST OFF
姓名 数学 英语 计算机 张红 89 92 87 李明 80 97 67 王军 25 78 80 赵波 90 67 91 USE JSK LIST OFF
任课教师 年龄 班级 课程 陈 35 2 数学 李 40 4 物理 孙 38 4 英语 王 29 3 计算机
下面的程序是生成一个新数据库文件XX.DBF,此数据库文件包括四个字段:姓名、班级、任课教师、课程，记录是入学时为保送生并且本学期英语成绩在90分以上（包括90分）的全部学生。 请用正确的语句填空： SET TALK OFF CLEAR SELECT 3 USE JSK SELECT 2 USE XSCJ SELECT 1 USE XSRX
JOIN WITH C TO XSRX1 FOR ; FIELDS 姓名，班级，任课教师，课程 SELECT 4 USE XSRX1
JOIN WITH B TO XX FOR ； FIELDS SELECT 5 USE XX LIST
SET TALK ON RETURN
**下面是在“KSDA.DBF“库文件逻辑删除已知准考证号学生的程序： SET TALK OFF
ACCEPT “输入待删除考生的准考证号：” TO NO
5