VFP程序填空阅读试题(共36页).doc

精选优质文档-----倾情为你奉上计算机专业《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 ON2.任意输入两个正整数X和Y,求X与Y的最小公倍数。

SET TALK OFF INPUT "X="TO X INPUT "Y="TO Y IF X>Y T=X X=Y Y=T ENDI N=Y DO WHILE N<=__________________ IF ________________ EXIT ENDI N=_______________________ ENDDO ?"最小公倍数是:"+STR(N) SET TALK ON3.现有一数据库CJ.DBF,该数据库文件中仅有一个数值型字段"数据",且无记录要求键盘输入十个数,将这些数保存到CJ.DBF的"数据"字段中,并由大到小显示出来　SET TALK OFF CLEA USE CJ K=1 DO WHIL K＜＝10 _________________ ＠K+5,1 SAY "第"+STR(K,2)+"数是:" 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 "操作完毕!" Return2.现有一户籍数据库People.DBF,存贮有该地区各位公民的档案资料,现要求按"出生日期"字段(日期型),以索引查询方式,快速查找并显示所有与指定出生日期相同的记录 Set Talk off Set Safe off Clear use people Index On 出生日期 To Ipeople Born=" / / " ＠14,20 Say "请输入查询的出生日期:" Get Bom picture _________ Read ________________________ Do while .NOT.EOF( ).AND. _________________ Display Skip Enddo use Set Talk on Return三、程序填空(每空3分，共18分)1、在人事档案管理系统中，设有两个数据库：ZGQK.DBF(编号，姓名，性别，职称，部门名，基本工资)ZGGZ.DBF(编号，资金，房租，实发工资)查询并显示实发工资1200元以上的职工姓名及职称，请将程序补充完整。

SET TALK OFFSELE 1USE ZGQKINDEX TO QKSELE 2USE ZGGZ LOCA FOR 实发工资＞＝1200IF FOUND( )DO WHILE .NOT.EOF( ) DISP CONTENDDOENDIFCLOSE ALLSET TALK ON2、求1──100间能被5整除的奇数个数及其和，请将程序被充完整SET TALK OFFCLEAI＝1S＝0M＝0DO WHILE IF M＝M＋1 ENDIFI＝I＋2？M，SENDOSET 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="Y" Do While An="Y" @ 10, 20 say "书号" GET 书号 @ 11, 20 say "书名" GET 书名 @ 12, 20 say "单价" GET 单价 @ 13, 20 say "册数" GET 册数 READ WAIT “继续吗？（Y/ N)”　 Endd Use3、通过光带式菜单选择并执行子程序，其菜单和子程序名称分别为：数据录入（PG1-1. PRG）、数据查询（PG2-2. PRG）、统计报表（PG3-3. PRG）、退出系统，共四项。

SET TALK OFFDO WHILE .TCLEAR@ 10，26 SAY “1 . 数据录入”@ 11，26 SAY “2 . 数据查询”@ 12，26 SAY　 “３.　统计报表”@ 13，26 SAY “4 . 退出系统” TO K EXIT ENDI DO &FNENDDO 4、三个数据库文件；学生入学情况库XSRX.DBF、本学期学生成绩库XSCJ.DBF和教师情况库JXK.DBF，和数据库内容如下：USE XSRXLIST OFF姓名 班级 保送生张红 2 .T.李明 4 .T.王军 2 .F.赵波 2 .T.USE XSCJLIST OFF姓名 数学 英语 计算机张红 89 92 87李明 80 97 67王军 25 78 80赵波 90 67 91USE JSKLIST OFF任课教师 年龄 班级 课程陈 35 2 数学李 40 4 物理孙 38 4 英。