发布时间 : 星期三 文章VFP程序填空与阅读试题更新完毕开始阅读28a8164aa26925c52cc5bf4a
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
姓名 班级 保送生