2005届计算机专业《VFP》程序填空与阅读试卷汇编一班级姓名一、程序填空(每空3分，共27分)1.有一商场的商品销售数据库XS.DBF,其记录如下:记录号商品名单价数量总价1 电冰箱2000 3 60002 彩电1800 5 90003 电冰箱2010 1 20104 空调机1600 2 32005 彩电1900 2 3800……下面程序用于分类统计各种商品总的销售数量和总的销售额(总价),并计算出平均销售单价。
SET TALK OFFUSE XSINDE ON __________________ TO SY____________________ TO TJKUSE TJKREPL _____________________LISTUSESET TALK ON2.任意输入两个正整数X和Y,求X与Y的最小公倍数。
SET TALK OFFINPUT "X="TO XINPUT "Y="TO YIF X>YT=XX=YY=TENDIN=YDO WHILE N<=__________________IF ________________EXITENDIN=_______________________ENDDO?"最小公倍数是:"+STR(N)SET TALK ON3.现有一数据库CJ.DBF,该数据库文件中仅有一个数值型字段"数据",且无记录。
要求键盘输入十个数,将这些数保存到CJ.DBF的"数据"字段中,并由大到小显示出来。
SET TALK OFFUSE CJK=1DO WHIL K＜＝10_________________＠K+5,1 SAY "第"+STR(K,2)+"数是:" GET 数据READ__________________ENDDINDE ON _______________ TO TMPLISTUSESET TALK ON二、程序填空(每空3分,共18分)1.男子100米短跑成绩已录入数据库Male100.DBF,现要求将前3名运动员的成绩转入获奖数据库gainer.dbf和gainer.txt文件中。
阅读下列程序, 填写空位处的代码,使程序能正确有效地实现上述要求。
set Talk offclear＠14,20 say "请稍候…"use Male100___________ on 成绩／D To tempuse TempCopy _________________ To gainer.dbfuse gainercopy to gainer.txt _________________use＠14,20 say "操作完毕!"Return2.现有一户籍数据库People.DBF,存贮有该地区各位公民的档案资料,现要求按"出生日期"字段(日期型),以索引查询方式,快速查找并显示所有与指定出生日期相同的记录。
Set Talk offSet Safe offClearuse peopleIndex On 出生日期To IpeopleBorn=" / / "＠14,20 Say "请输入查询的出生日期:" Get Bom picture _________Read________________________Do while .NOT.EOF( ).AND. _________________DisplaySkipEnddoSet Talk onReturn三、程序填空(每空3分，共18分)1、在人事档案管理系统中，设有两个数据库：ZGQK.DBF(编号，姓名，性别，职称，部门名，基本工资)ZGGZ.DBF(编号，资金，房租，实发工资)查询并显示实发工资1200元以上的职工姓名及职称，请将程序补充完整。
SET TALK OFFSELE 1USE ZGQKINDEX TO QKSELE 2USE ZGGZLOCA FOR 实发工资＞＝1200IF FOUND( )DO WHILE .NOT.EOF( )DISPCONTENDDOENDIFCLOSE ALLSET TALK ON2、求1──100间能被5整除的奇数个数及其和，请将程序被充完整。
SET TALK OFFCLEAI＝1S＝0M＝0DO WHILEIFM＝M＋1ENDIFI＝I＋2？M，SENDOSET TALK ON四、程序填空题：（每空3分，共计24分）1、显示1到100之间既能被4整除又能被6整除的整数。
set talk offn=1do whileifn=n+1Loopelse? nendiEndd2、向数据库文件TSK.DBF 中增添新记录。
Set talk offClearUse tskAn="Y"Do While An="Y"@ 10, 20 say "书号" GET 书号@ 11, 20 say "书名" GET 书名@ 12, 20 say "单价" GET 单价@ 13, 20 say "册数" GET 册数READW AIT “继续吗？（Y/ N)”EnddUse3、通过光带式菜单选择并执行子程序，其菜单和子程序名称分别为：数据录入（PG1-1. PRG）、数据查询（PG2-2. PRG）、统计报表（PG3-3. PRG）、退出系统，共四项。
SET TALK OFFDO WHILE .TCLEAR@ 10，26 PROM “1 . 数据录入”@ 11，26 PROM “2 . 数据查询”@ 12，26 PROM“３.统计报表”@ 13，26 PROM “4 . 退出系统”TO KEXITENDIDO &FNENDDO4、三个数据库文件；学生入学情况库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 英语王29 3 计算机下面的程序是生成一个新数据库文件XX.DBF,此数据库文件包括四个字段:姓名、班级、任课教师、课程，记录是入学时为保送生并且本学期英语成绩在90分以上（包括90分）的全部学生。
请用正确的语句填空：SET TALK OFFCLEARSELECT 3USE JSKSELECT 2USE XSCJSELECT 1USE XSRXJOIN WITH C TO XSRX1 FOR FIELDS 姓名，班级，任课教师，课程SELECT 4USE XSRX1JOIN WITH B TO XX FOR；FIELDSSELECT 5USE XXLISTSET TALK ONRETURN11、下面是在“KSDA.DBF“库文件逻辑删除已知准考证号学生的程序：SET TALK OFFACCEPT “输入待删除考生的准考证号：”TO NOUSE KSDAIFDELETEENDIFUSERETURN5.共有五个数据库文件stdl.dbf~std5.dbf,下面程序的功能是删除每个库文件的末记录。
请填空。
N=lDO WHILE N<=5AB=_____10_____USE &ABGO BOTTOMDELETEPACKN=N+1ENDDOUSE6.下列程序的功能是对输入汉字字符串进行倒序显示，请将程序补充完整。
SET TALK OFFCLEARAB=" "ACCEPT "请输入字串" TO ABL=LEN(AB)K=1IF L＝0RETURNENDIFDO WHILE K<=L@ 10,K SAY _____________________K= __________________ENDDORETURN7.分析程序，显示的值A= _____________ ,B= _______________主程序MAIN.PRGSET TALK OFFPUBLIC ASTORE 5 TO A,BDO SRB WITH A+B,A,B? A,BRETURN*子程序SUB.PRGPAUAMETERS X,Y,ZDO WHILE Z<XY=Z+1Z=Z+1ENDDORETURN8.有一数据库如下，程序功能是修改甲用户和乙用户的定购数量。
. USE DGK. LIST OFF编号设备名甲用户数量乙用户数量1 车床 3 42 铣床 5 73 创床7 6程序如下，请补充完整。
SET TALK OFFUSE DGKCLEAR@10,10 SAY "甲用户"DO WHILE .NOT.EOF()@11,10 SAY 设备名GET 甲用户数量READSKIPENDDO_________________________________@10,10 SAY "乙用户"DO WHILE .NOT.EOF()@11,10 SAY 设备名_____________________READSKIPENDDOSET TALK ONUSERETURN9.有一学生库STUDENT.DBF，结构为字段，姓名(C,8)，英语(N,2)，数学(N,2)，奖学金(L,1)，程序功能为确定是否发给奖学金(奖学金为.F.)。
若英语数学两门功能都大于或等于90分，则字段奖学金用.T.替换，请对程序填空。
SET TALK OFFCLEARUSE STUDENTDO WHILE .T.IF 英语>=90 .AND. 数学>=90______________________ENDIFSKIPIF EOF()_____________________________ENDIFENDDORETURN10.有三个数据库文件STUD1.DBF，STUD2.DBF，STUD3.DBF，STUD1.DBF 库结构为学号(C,6)，姓名(姓名,8)；STUD2.DBF结构为学号(C,6)，系别(C,10)；STUD3.DBF结构为姓名(C,6)，成绩(N,2)，现用关联方法显示，成绩大于90分的学生情况，并且用物理联结方法产生一个完整的学生库STUD.DBF，请在命令序列中填空。