VFP程序填空阅读试题.doc

《VFP程序填空阅读试题.doc》由会员分享，可在线阅读，更多相关《VFP程序填空阅读试题.doc（36页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、计算机专业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.任意

2、输入两个正整数X和Y,求X与Y的最小公倍数。 SET TALK OFF INPUT X=TO X INPUT Y=TO Y IF XY 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 K10 _ K+5,1 SAY 第+STR(K,2)+数是:

3、 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

4、.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 Tal

5、k 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、求1100间能被5整除的奇数个数及其和，请将

6、程序被充完整。SET TALK OFFCLEAI1S0M0DO WHILE IF MM1 ENDIFII2？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

7、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、三个数据

8、库文件；学生入学情况库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,此数据库文件包括四个字段:姓名、班级、任课教师

9、、课程，记录是入学时为保送生并且本学期英语成绩在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 ；FIELDS SELECT 5USE XXLISTSET TALK ONRETURN*下面是在“KSDA.DBF“库文件逻辑删除已知准考证号学生的程序：SET TALK OFFACCEPT “输

10、入待删除考生的准考证号：” TO NOUSE KSDA IF DELETEENDIFUSE RETURN5.共有五个数据库文件stdl.dbfstd5.dbf,下面程序的功能是删除每个库文件的末记录。请填空。N=lDO WHILE N=5 AB=_ USE &AB GO BOTTOM DELETE PACK N=N+1ENDDOUSE 6.下列程序的功能是对输入汉字字符串进行倒序显示，请将程序补充完整。 SET TALK OFF CLEAR AB= ACCEPT 请输入字串 TO AB L=LEN(AB) K=1 IF L0 RETURN ENDIF DO WHILE K=L 10,K SAY

11、 _ K= _ ENDDO RETURN 7.分析程序，显示的值A= _ ,B= _ 主程序 MAIN.PRG SET TALK OFF PUBLIC A STORE 5 TO A,B DO SRB WITH A+B,A,B ? A,B RETURN *子程序 SRB.PRG PARAMETERS X,Y,Z DO WHILE Z=90 .AND. 数学=90 _ ENDIF SKIP IF EOF() _ ENDIF ENDDO RETURN 10.有三个数据库文件STUD1.DBF，STUD2.DBF，STUD3.DBF，STUD1.DBF 库结构为学号(C,6)，姓名(姓名,8)；STU

12、D2.DBF结构为学号(C,6)，系别(C,10)；STUD3.DBF结构为姓名(C,6)，成绩(N,2)，现用关联方法显示成绩大于90分的学生情况，并且用物理联结方法产生一个完整的学生库STUD.DBF，请在命令序列中填空。 SELECT 1 USE STUD1 SELECT 2 USE STUD2 ALIAS S2 SELECT 3 USE STUD3 ALIAS S3 INDEX ON 姓名 TO STRD3I SELECT 2 INDEX ON 学号 TO STUD3I SELECT 1SET RELATION TO LIST 学号，S3-姓名，S3-成绩 JOIN WITH S3 T

13、O S13 FOR FEILDS 学号，姓名，S3-成绩 SELECT 4 USE S13 INDEX ON 学号 TO S13I SELECT 2 JOIN WITH S13 TO S123 FOR 学号=D-学号 FIELD _ USE S123 LIST 11.下面程序的功能是根据销售数据文件SALE.DBF中的数据去修改库文件INVENTRY.DBF数据,请对程序填空:SELECT 1USE INVENTRYSELECT 2USE SALEDO WHILE _ SELECT 1 LOCATE FOR 商品名=B-商品名 REPLACE 数量 WITH B-数量 , 总金额 WITH 单

14、价*数量 SELECT 2 _ENDDOCLOSE DATABASE 12.有计算机等级考试的笔试考试数据库bsh.dbf和上机考试数据库shj.dbf,其内容分别如下: 笔试数据库bsh.dbf 上机考试数据库shj.dbfRecord# 姓名 笔试成绩 Record# 姓名 上机成绩 1 欧阳惠 87 1 吴明友 67 2 陈冬梅 77 2 杨红 87 3 吴明友 94 3 欧阳惠 94 4 杨红 60 4 李霞 83 5 李霞 68 5 陈冬梅 75 1)首先执行以下命令序列 SELECT 2 USE shj SELECT 1 USE bsh SET RELATION TO RECNO

15、INTO b LOCATE FOR 笔试成绩姓名 FIELDS 姓名,笔试成绩,上机成绩CLEARUSE ksDO WHILE.N0T.E0F N=1 I=0 J=0 DO WHILE N=3.AND.NOT.E0F() I=I+笔试成绩 J=J+上机成绩 N=N+I SKIP ENDDO ?总成绩=+STR(I+J)ENDDO执行程序后,显示的第一个总成绩是_,第二个总成绩是_3)接着继续执行以下程序CLEAR SET DELETED ON USE KS INDEX ON 笔试成绩+上机成绩 TO ABC COUNT TO S GOTO TOP SKIP DELETE NEXT S-2 CO

16、PY TO QAZUSE AQZLIST最后显示的第一条记录的姓名是_,第二条记录的姓名是_14.在下列数据记录修改程序中(屏幕格式文件ST.FMT已建立)填空。SET TALK OFF USE STUDENT SET FORMAT TO ST DO WHILE .T. ACCEPT 请输入学生姓名：TO NAME LOCATE FOR 姓名=NAME IF EOF() ?查无此人！ ELSE CLEAR _ ENDIF WAIT 是否继续?(Y/N)TO GOON IF GOON=Y CLEAR LOOP ELSE EXIT ENDIF ENDDO SET FORMAT TO USE SET

17、 TALK ON RETURN 15.下列程序的功能是通过字符串变量操作竖向显示“刻苦学习”， 横向显示“学习刻苦”，请填空。 SET TALK OFF STORE “刻苦学习”TO XY CLEAR N=1 DO WHILE N10 EXIT ENDIF ENDDO ? S=+STR(S,2)本程序运行结果是_ 。19.有计算机等级考试考生数据库STD.DBF和合格考生数据库文件HG.DBF，这两个库的结构相同。为了颁发合格证书并备案，把STD 数据库中笔试成绩和上机成绩均及格记录的合格否字段修改为逻辑真，然后再将合格的记录追加到合格考生数据库HG.DBF中。请对以下操作填空。.USE ST

18、D .LIST Record# 准考证号姓名性别笔试成绩上机成绩合格否 1 11001 梁小冬女 70 80 .F. 2 11005 林旭男 95 78 .F. 3 11017 王平男 60 40 .F. 4 11083 吴大鹏男 90 60 .F. 5 11108 杨妃红女 58 67 .F. .REPLACE _ FOR 笔试成绩=60.AND.上机成绩=60 .USE HG .APPEND FROM STD FOR _ .LIST .USE20.有如下程序段，其功能是将汉字信息全国计算机等级考试从屏幕底部移至顶部 ，请填空: SET TALK OFF SET STATUS OFF X=全

19、国计算机等级考试 CLEAR K=23 DO WHILE K0 K,26 SAY SPACE(34) _ ,26 SAY X P=INKEY(1) K=K-1 ENDDO 21.有口令程序如下，请填空： SET TALK OFF CLEAR DO WHILE .T. 5,20 SAY “请输入口令：” SET CONSOLE OFF _ SET CONSOLE ON IF DATE ()=PW EXIT ELSE WAIT“口令不对！按任意键重来” CLEAR ENDIF ENDDO SET TALK ON CLEAR 22.计算机等级考试的考生数据和考试成绩分别放在两个数据库文件中。欲使用关

20、联方法显示两个库文件的有关数据，请对如下命令序列填空。 SELECT 1 USE STUD LIST Record# 考生编号 姓名 年龄 性别 1 1002 张伟 25 女 2 1004 吴红 30 男 SELECT 2 USE STDCJ ALTAS TL LIST Record# 考生编号笔试成绩上机成绩 1 1004 72 85 2 1002 67 92 INDEX ON 考生编号 TO ABC SELECT 1 _ LIST 考生编号，姓名，性别，B-笔试成绩，B-上机成绩Record# 考生编号姓名性别B-笔试成绩B-上机成绩 1 1002 张伟女67 92 2 1004 吴红男7

21、2 85 23.计算机等级考试各考点均有数据库文件KSCJ.DBF, 其中有关考生成绩的字段值暂空。省市考区阅卷后建立成绩数据库文件ST.DBF。下列程序是使用ST.DBF中的数据更新考生数据库数据，请填空补齐命令。SELECT 1 USE KSCJ LIST Record# 准考证号 姓名年龄性别班号笔试成绩上机成绩合格否1 刘丽 23 女 101 .F. 2 王友 28 男 101 .F. INDEX ON 准考证号 TO AIND SELECT 2 USE ST LIST Record# 准考证号笔试成绩上机成绩 1 90 60 2 60 40 INDEX ON 准考证号 TO BIND

22、 SELECT 1 UPDATE ON 准考证号 _ 笔试成绩 WITH B-笔试成绩，上机成绩 WITH B-上机成绩LISTRecord# 准考证号 姓名年龄性别班号笔试成绩上机成绩合格否 1 刘丽 23 女 101 60 40 .F. 2 王友 28 男 101 90 60 .F. 24.接上题，为了颁发合格证书，把KSCJ.DBF数据库中笔试成绩和上机成绩均及格(大于等于60分)记录的合格否字段值修改为逻辑真，然后显示并打印该字段值为真的考生名单。请对以下命令填空：USE KSCJ REPLACE 合格否 WITH _ FOR _ LIST FOR _ TO _ USE 25.有下列两

23、个程序，主程序是MAIN.PRG，子程序是SUBPRO.PRG。执行主程序后，屏幕第5行显示信息 _ ，屏幕第6行显示信息 _ 。* MAIN.PRG SET TALK OFF CLEAR P=10 Q=10 DO WUBPRO WITH P 6,6 SAY “Q=”+STR(Q,2) CANCEL * SUBPRO.PRG PARAMETERS Q Q=20 5,6 SAY “Q=”+STR(Q,2) RETURN 26.在VFP命令窗口执行下列命令，请填空。 USE ST COUNT TO A ? A &显示为：35 GO TOP DELETE NEXT 5 ? RECCOUNT() SE

24、T DELETED ON COUNT TO XY ? XY &显示值 _ ? RECCOUNT() &显示值 _ 27.计算机等级考试成绩已录入完毕，缺考者的记录上均已打上删除标记“*”。为计算实际参加考试者平均分，请在以下命令序列中填空。USE STU SET _ AVERAGE ALL 成绩 TO AVG 28.计算机等级考试考生数据库DJKS.DBF。 笔试和上机成绩已分别录入其中的“笔试”和“上机”字段(皆为N型)中，此外另有“等级”字段(C型)。凡两次考试均达到80分以上者，应在等级字段中填入“优秀”。编程如下，请填空。SET TALK OFF USE DJKS DO WHILE .NOT.EOF() IF 笔试=80.AND