辽宁专升本计算机模拟题4

综合练习一一、选择题(每题1分，共20分)下面每题给出4个答案,用A、B、C、D标出,其中只有一个是正确的,将你选择的结果涂黑答题卡对应题号的方格。1. 数据库管理系统常见的数据模型有 三种。A.网状、链状和层次 B.层次、网状和关系C.树状、层次和关系 D.网状、语义和关系2. 下列操作中，不能用MODIFY STRUCTURE命令实现的是 . A. 为数据库文件增加字段 B. 删除数据库文件中的某些字段C. 对数据库文件的字段名进行修改 D. 对记录数据进行修改3. 若打开的数据库文件为空，则RECNO ()函数的返回值是 . A. 1 B. 0 C. .T. D. .F.4. 执行SET EXACT OFF 命令之后,下列表达式结果为.T.的是 . A. 数据数据库 B. 数据=数据库C. 数据库数据 D. 数据库$ 数据5. 表达式（1/10/00-1/1/00） %5*2的值为 . A. 3 B. 5 C. 8 D. 非法表达式6. 计算所有职称为正、副教授的平均工资，将结果赋予变量PJ中，应使用命令 . A. AVERAGE 工资TO PJ FOR 教授 $ 职称 B. AVERAGE FIELDS 工资TO PJ FOR 教授 $ 职称 C. AVERAGE 工资TO PJ FOR 职称=副教授 .AND.职称=教授 D. AVERAGE 工资 TO PJ FOR 职称=副教授 .OR.教授 7. 在FoxPro中，用DIMENSION说明数组后，关于数组元素的初值和类型等正确的说法为 . A. 数组元素必须赋值以后才能被引用B. 数组元素说明后初值均设定为0C. 数组元素说明后初值均设定为.F.D. 对数组元素赋值时，必须保持各数组元素类型相同8. 在FoxPro中，格式化文件由 命令建立。A. MODIFY COMMAND B. MODIFY FORMATC. FORMAT D. SET FORMAT TO9. 要使用数组数据更新当前数据库的当前记录,应使用命令 . A. SCATTER TO B. DIMENSION C. APPEND FROM D. GATHER FROM 10. 在使用命令进行格式化输入时,为了保证只允许输入字母,应该在PICTURE短语中使用模式符 . A. A B. X C. N D. Z11.打开当前数据库索引文件所用命令是 . A.REINDEX B.SORT C.SEEK D.SET INDEX TO12.在职工工资数据库中,用于统计职工总数的命令是 . A.SUM B.COUNT C.TOTAL D.AVERAGE13.可以编辑过程文件的命令是 . 推荐精选 A.SET PROCEDURE TO B.MODI COMM C.CREATE D.MODI PROC14.FoxPro中,退出DO WHILEENDDO循环语句所用命令是 . A.EXIT B.SKIP C.QUIT D.RETURN15.FoxPro中,从内存变量文件调入内存变量所用的命令是 . A.SAVE TO B.GET C.RESTORE FROM D.GATHER FROM16.FoxPro中,定义局部变量的命令为 . A.LOCATE B.REGIONAL C.STORE D.PRIVATE17.若函数EOF()的返回值为.F.,则函数RECNO()的返回值为 . A.BOTTOM B.当前记录号 C.0 D.TOP18.FoxPro关闭所有工作区的数据库文件的命令是. A.CLOSE INDEXS B.CLOSE DATA C.CLEAR D.USE19.在FoxPro中,显示当前目录所有数据库文件的命令是 . A.LIST B.DIR*.* C.DIR D.DISPLAY20.FoxPro保存内存变量所用的命令是 . A.SAVE TO B.STORE C.GET D.SCATTER二、阅读程序，给出结果(每题3分，共30分)阅读下列程序,将运行结果填到答题卡上。下面程序中将要用到如下数据库：RS.DBF编号 姓名 性别 出生日期 婚否 应领工资 C,4 C,8 C,2 D,8 L,1 N,7,21001 李 军 男 08/15/60 .T. 0.03001 王一林 男 08/12/74 .F. 0.02001 丁 杰 女 09/25/65 .T. 0.01002 张 琳 女 11/10/63 .T. 0.0 2002 刘 丽 女 12/10/75 .F. 0.0 GZ.DBF编号 基本工资 津贴 补贴 应领工资 扣款 实领工资C,4 N,7,2 N,6,2 N,6,2 N,7,2 N,6,2 N,7, 23001 600.00 200.00 100.0 00.0 50.00 0.01002 750.00 350.00 100.0 00.0 100.00 0.02001 700.00 250.00 100.0 00.0 100.00 0.01001 800.00 400.00 150.0 00.0 150.00 0.02002 600.00 200.00 50.0 00.0 20.00 0.01. SET TALK OFFSET PROC TO SPT=4I=1DO WHILE I5DO P1 WITH T,I推荐精选II2ENDDOSET PROC TORETU*SP.PRGPROC P1PARA X,RS=X*R2?SSET TALK ONRETURN2.SET TALK OFFX=0Y=0DO WHILE X30XX1IF INT (X4) X4LOOPENDIFY=Y+1ENDDO? Y= ?STR(Y,1)SET TALK ONRETURN3.SET TALK OFFN=1M=80M1=10M2=M1+4M3=M1-4M4=M2+10DO WHILE N4STORE M STR(N,1) TO RM=M+2*&RN=N+2ENDDO? M= ,MSET TALK ONRETURN4. SET TALK OFF推荐精选SELE 2USE ZKINDE ON 编号TO ZKSELE 1USE ZGSET RELA TO 编号 INTO BGO TOPSKIP 3DISP OFF姓名,B-专业,B-职务职称,工资USESET TALK ONRETURN5.SET TALK OFFSET SAFETY OFFUSE ZGINDEX ON 性别 TO IXKTOTAL ON 性别 TO NAI FIELDS 工资USE NAICOUN TO B?BUSESET TALK ONRETURN6. SET TALK OFFUSE ZGCOPY STRU TO CK1 FIEL 编号,姓名,工资USE CK1APPE FROM ZG FOR 编号2000GO BOTT?RECNO()?编号,姓名USESET TALK ONRETU7. SET TALK OFFSET HEAD OFFUSE ZGDO WHILE .NOT. EOF()IF RECNO()3LIST 姓名 FOR 性别=男 ELSE推荐精选EXITENDIFENDDOUSESET TALK ONRETURN8.SET TALK OFFM=3N=SQRT(7*M+4)L=2*PC(M)+PC(N)?LRETURNFUCTION PCPARAMETERS IP=0J=1DO WHILE JIP=P+JJ=J+1ENDDORETURN P9.SET TALK OFFSTORE 计算机信息学院 TO ACLEAR?SUBSTR(A,7,8)? LEFT(A,6)B=SUBSTR(A,7)I=3?SUBSTR(B,1,2)DO WHILE I8?SPACE(2*I-2)SUBSTR (B, I, 2) I=I+2ENDDOSET TALK ONRETURN10.SET TALK OFFA= B* N=1DO WHILE .NOT. N3CSTR (N, 1) A=A+ B&C 推荐精选NN2ENDDO?ASET TALK ONRETURN三、完善程序（每题3分，共30分）在下列程序的处填入适当的内容后使其完整正确,将答案填写到答题卡的对应题号处。1.共有4个数据库,文件名分别为ZG1.DBFZG4.DBF,下面程序的功能是删除每个库文件的第一条记录。SET TALK OFFI=1DO WHILE I4DB=_USE & DBGO TOPDELETEPACKII1ENDDORETURN2.将数据库ZG.DBF与ZK.DBF按编号连接成新库KJ.DBF,并显示其内容,其中库KJ中只含编号、姓名和职务职称3个字段。SET TALK OFFSELECT 2USE ZKINDEX ON 编号 TO IRK1SELECT 1USE ZGJOIN WITH B TO KJ _ FOR 编号B-编号SELECT 3USE KJLISTCLOSE ALLSET TALK ONRETURN3.求数据库ZG.DBF中所有职工的平均工资。SET TALK OFFUSE ZGCOUNT TO NM=0推荐精选GO TOPDO WHILE .NOT. EOF () _ M=M+A(6)SKIPENDDO? M ,STR(M/N,4)USERETURN4.显示ZG.DBF中女职工的记录。SET TALK OFFUSE XSKDO WHILE .NOT. EOF()IF 性别 女 SKIPLOOPENDIFDISPWAIT 按任意键继续显示 _ ENDDOUSESET TALK ONRETURN5.本程序为供用户选择菜单的模块。SET TALK OFFCLEADO WHILE .T.2,10 PROM 输入 MESS 输入数据 3.10 PROM 编辑 MESS 修改数据 4,10 PROM 输出 MESS 打印输出 5,10 PROM 退出 MESS 退出FoxPro SET MESSAGE TO 20 _ DO CASECASE CH=1DO PR1CASE CH2DO PR2CASE CH=3推荐精选DO PR3CASE CH4QUITENDCASEENDDORETURN6.一个数列,它的前两项依次为0,1,从第三项开始,以后每一项是它前两项之和,输出这个数的前十项。SET TALK OFFA0STOR 1 TO B,I?A,BDO WHILE I4AAB _ ?A,B=I=I+1ENDDORETURN7.在数据库ZG.DBF中,找出最高工资额和最低工资额并显示。SET TALK OFFUSE ZG _ SKIPDO WHILE .NOT. EOF()IF 工资MM工资ENDIFIF 工资NN工资ENDIFSKIPENDDO? MAX ,M, MIN ,NRETURN8.下面程序的功能是利用函数检查输入的文件名中是否有空格,如果无空格,则文件名输入正确,跳出循环,否则要求重新输入。SET TALK OFFDO WHILE .T.推荐精选 CLEAR ACCEPT 请输入文件名: TO FNAME IF _ 8,10 SAY 文件名中不能有空格 10,10 SAY 请重新输入 RELE FNAME ELSE EXIT ENDIFENDDOSET TALK ONRETURN9.设有STUDENT.DBF(学号、姓名、民族)和SCORE.DBF (学号、成绩)两个数据库，要在它们之间建立逻辑连接，然后为每个少数民族考生的成绩增加5分。SET TALK OFF SELECT 1 USE STUDENTINDEX ON 学号TO INX SELECT 2 USE SCORE SET RELATION TO 学号INTO A REPLACE _SET RELATION TO CLOSE DATABASESSET TALK ON RETURN10. 利用屏幕格式文件XG.FMT按输入的记录号修改ZG库中的记录。SET TALK OFFCLEARUSE ZGCOUNT TO NUMINPUT 输入被修改的记录号： TO NIF NNUM 4,10 SAY 数据库中无此记录 ELSE _ GOTO NEDITCLOSE FORMATENDIF推荐精选USESET TALK ONRETURN*XG.FMT 6,10 SAY 编号 GET 编号 6,40 SAY 姓名 GET 姓名 8,10 SAY 性别 GET 性别 8,40 SAY 出生日期 GET 出生日期 10,10 SAY 婚否 GET 婚否 10,40 SAY 工资 GET 工资四、程序改错（每题2分，共10分）以下每小题有一个错误,在答题卡的对应题号处写出有错误的程序全行及改正后的程序全行。1.本程序实现按编号相同为连接条件,将两个数据库文件连接成一个新的数据文件CK.DBF,使该库仅含编号、姓名、工资和职务职称4个字段,若职务职称为高工,将工资提高200元。SET TALK OFFSELE 1USE ZG ALIAS ASELE 2USE ZK ALIAS BJOIN TO CK FOR 编号 FIELDS 编号,A-姓名,职务职称,A-工资USE CKREPLACE ALL工资 WITH 工资200 FOR职务职称高工LISTCLOSE DATABASESSET TALK ONRETURN2.用下面程序浏览N1中年龄大于40并且工资少于1000元的所有男职工的记录。SET TALK OFFSET SAFETY OFFUSE ZGSORT ON 工资 TO N1 FOR 性别 男 USE N1DO WHILE .NOT. EOF()IF YEAR(DATE()-YEAR(出生日期)40.AND.工资1000 LISTENDIFSKIPENDDOUSE推荐精选SET TALK ONRETURN3.对数据库ZG.DBF实现按姓名快速查询。SET TALK OFFSET EXACT ONUSE ZGINDEX ON 姓名TO IZGDO WHILE .T.ACCEPT 输入姓名: TO AASEEK AAIF EOF()? 查无此人 ELSEDISPLAYENDIFWAIT 是否继续YN？ TO BBIF BB Y LOOPELSEEXITENDIFENDDOUSERETURN4.任意输入若干个非零数,分别统计其中能被3和7整除的数的个数,并求出它们的和。如果该数能同时被3和7整除,则该数无效重新输入。SET TALK OFFA,I,B,J=0DO WHILE .T.CLEARINPUT 请输入一个数(0-结束) TO MDO CASECASE M=0EXITCASE M/3=INT(M/3).AND. M/7=INT(M/7)LOOPCASE M/3=INT(M/3)A=A+MI=I+1CASE M/7INT (M/7)推荐精选BBMJJ1ENDCASEENDDO?A,I,B,JRETURN5.向数据库ZK.DBF中追加M条记录。SET TALT OFFUSE ZKINPUT 追加记录个数: TO MI1DO WHILE IMCLEARGO BOTTOM10,10 SAY 编号: GET 编号ROW()+1,10 SAY 工作部门: GET 工作部门ROW()+1,10 SAY 专业: GET 专业ROW()+1,10 SAY 职务职称 GET 职务职称READI=I+1ENDDOLISTUSESET TALK ONRETURN五、程序设计（每题2分，共10分）1. 编程求1000以内能被3和7整除的数的和。2. 把ZG数据库中所有男职工按工资从高到低的顺序存入新数据库NEW中并显示。3. 显示工作部门是技术科的所有人员的全部信息。4. 用函数计算圆面积。5. 用上弹式菜单实现菜单选择：1-输入数据，2-查询数据，3-退出。 （注：可编辑下载，若有不当之处，请指正，谢谢!） 推荐精选