VFP程序填空与阅读试题

2005届计算机专业《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

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

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

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 PROM “1 . 数据录入” @ 11，26 PROM “2 . 数据查询” @ 12，26 PROM “３. 统计报表”

@ 13，26 PROM “4 . 退出系统” TO K EXIT ENDI

DO &FN ENDDO

4、三个数据库文件；学生入学情况库XSRX.DBF、本学期学生成绩库XSCJ.DBF和教师情况库JXK.DBF，和数据库内容如下： USE XSRX LIST OFF

姓名 班级 保送生