程序设计练习答案

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 _Total On 商品名_ TO TJK USE TJK REPL _ All 平均销售

2、单价 with 总价/数量_ LIST USE SET TALK ON2.任意输入两个正整数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=_0_ IF _MOD(X,Y)=0_ EXIT ENDIF N=_X*Y_ ENDDO ?最小公倍数是:+STR(N) SET TALK ON3.现有一数据库CJ.DBF,该数据库文件中仅有一个数值型字段数据,且无记录。要求键盘输入十个数,将这些数保存到CJ.DBF的数据字段中,并由大到小显示出来。SET TALK

3、 OFF CLEA USE CJ K=1 DO WHIL K10 _APPEND BLANK_ K+5,1 SAY 第+STR(K,2)+数是: GET 数据 READ _SKIP_ 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

4、Male100 _Index_ on 成绩D To temp use Temp Copy _ To gainer.dbf use gainer Copy to gainer.txt _Fields 成绩_ use 14,20 say 操作完毕! Return2.现有一户籍数据库People.DBF,存有该地区各位公民的档案资料,现要求按出生日期字段(日期型),以索引查询方式,快速查找并显示所有与指定出生日期相同的记录。 Set Talk off Set Safe off Clear use people Index On 出生日期 To Ipeople Born= / / 14,20 Say

5、请输入查询的出生日期: Get Bom picture _ Read Seek Born_ Do while .NOT.EOF( ).AND. _FOUND( )_ Display Skip Enddo use Set Talk on Return三、程序填空(每空3分，共18分)1、在人事档案管理系统中，设有两个数据库：ZGQK.DBF(编号，姓名，性别，职称，部门名，基本工资)ZGGZ.DBF(编号，资金，房租，实发工资)查询并显示实发工资1200元以上的职工姓名及职称，请将程序补充完整。SET TALK OFFSELE 1USE ZGQKINDEX ON 编号 TO QKSELE 2US

6、E ZGGZSET RELATION TO 编号 INTO A LOCA FOR 实发工资1200IF FOUND( )DO WHILE .NOT. EOF( ) DISP ZGQK.姓名 , ZGQK.职称 CONTENDDOENDIFCLOSE ALLSET TALK ON2、求1100间能被5整除的奇数个数及其和，请将程序被充完整。SET TALK OFFCLEAI1S0M0DO WHILE I=100 IF MOD（I , 5)=0 AND MM1 S=S+I ENDIFII2？M，SENDOSET TALK ON四、程序填空题：（每空3分，共计24分） 1、显示1到100之间既能被4

7、整除又能被6整除的整数。 set talk off n=1 do while n=90 ;FIELDS 姓名，班级，任课教师，课程 SELECT 5USE XXLISTSET TALK ONRETURN*下面是在“KSDA.DBF“库文件逻辑删除已知准考证号学生的程序：SET TALK OFFACCEPT “输入待删除考生的准考证号：” TO NOUSE KSDALOCATE FOR 准考证号=NO IF FOUND( ) DELETEENDIFUSE RETURN5.共有五个数据库文件stdl.dbfstd5.dbf,下面程序的功能是删除每个库文件的末记录。请填空。N=lDO WHILE N

8、=5 AB= std+str(n,2) 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 SUBSTR(AB , L+1-K , 1) K= _K+1_ ENDDO RETURN 7.分析程序，显示的值A= _10_ ,B= _10_ 主程序 MAIN.PRG SET TALK OFF PUBLI

9、C 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 REPLACE 奖学金 WITH .T. ENDIF SKIP IF EOF() _EXIT_ ENDIF ENDDO RETURN 10.有三个数据库文件STUD1.DBF，STUD2.DBF，STUD3.DBF，STUD1.DBF 库结构为学号(C,6)，姓名(姓名,8)；STUD2.DBF结构为学号(C,6)，系别(C,10)；STUD3.DBF结构为姓名(C,6)，成绩(N

10、,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 1 SET RELATION TO 学号 INTO S2 LIST 学号，S3-姓名，S3-成绩 JOIN WITH S3 TO S13 FOR S3.成绩90 FEILDS 学号，姓名，S3-成绩

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

12、LECT 2 _SKIP _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 I

13、NTO 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 COP

14、Y 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

15、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 STD

16、 .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=全国

17、计算机等级考试 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.计算机等级考试的考生数据和考试成绩分别放在两个数据库文件中。欲使用关联

18、方法显示两个库文件的有关数据，请对如下命令序列填空。 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 吴红男72

19、 8523.计算机等级考试各考点均有数据库文件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 S

20、ELECT 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.有下列两个程

21、序，主程序是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() SET

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

23、 WHILE .NOT.EOF() IF 笔试=80.AND.上机=80 _ ENDIF SKIP ENDDO USE SET TALK ON 29.有学生数据库STUDENT.DBF，其中编号/N/2字段的值从开始连续排列。欲按编号的1、9、17、25.规律抽取学生参加比赛，并在屏幕上显示参赛学生的编号，请填空。SET TALK OFF USE STUDENT DO WHILT .NOT.EOF() IF INT_ ? 编号 ENDIF SKIP ENDDO USE SET TALK ON 30.计算机等级考试的查分程序如下，请填空。SET TALK OFF USE DJKS INDEX D

24、S ACCEPT “请输入准考证号：”TO KH FIND _ 31.下面的程序是将“中华人民共和国”显示为“中 华 人 民 共 和 国”，请填空。 SET TALK OFF CLEAR X=中华人民共和国 Y= DO WHILE LEN(X)=_ Y=Y+SUBSTR(X,1,2)+ X=SUBSTR(X,3) ENDDO ?_ RETURN 32.有程序如下，基功能是将硬盘上若干个班(小于10) 的成绩数据文件复制到A盘上。数据库文件名分别FIL1.DBF,FIL2.DBF等，备份文件名前面冠以年号，例如97BFIL1.DBF,97BFIL2.DBF等。在C盘上运行该程序，请填空。 SET

25、 TALK OFF CLEAR ACCEPT 请输入年号： TO NH &两位数字年号 INPUT 班级个数： TO N I=1 DO WHILE I=800 .AND. A,1300 X=(A-800)*0.05 CASE A=1300 .AND. A=1800 .AND. A=2300 B=A-2300 X=B*0.2+500*0.15+500*0.1+500*0.05 ENDCASE RETURN 34.设有图书数据库TSH，包括字段(总编号，分类号，书名，作者， 出版单位，单价)；读者数据库DZH(借书证号，姓名，性别，单位，职称，地址)；借阅数据库JY(借书证号，总编号，借阅日期，备注)。下面程序的功能是打印已借书读者的借书证号、姓名，单位，以及借阅图书的书名、单价、借阅日期。请阅读程序并填空。 SET TALK OFF SELECT 1 USE DZH INDEX ON 借书证号 TO DSHH SELECT 2 USE TSH INDEX ON 总编号 TO SHH SELECT 3 USE JY SET RELATION TO 借书证