第八套试题

一、DOS题(每小题5分，六小题，共30分)
在考生目录下完成下列操作：
1.在考生目录下CXMA\CD子目录中建立一个新的子目录RING。
2.将考生目录下的WORD\KEN子目录删除。
3.将考生目录下GATE\WAY子目录中的文件ROUTER.HLP删除。
4.将考生目录下的文件PASS.BAK拷贝到考生目录下WIDE\LAN子目录中，文件名为SERVER.FOX。
5.将考生目录下LIFE\SHORT子目录中的文件CLOCK.BAS设置成具有归档属性的文件。
6.将考生目录下IPX\TCP子目录中的文件PROTOCOL.LIB更名为PROFIX.TXT。

二、改错题(30分)

    KSH.DBF(考号C/6，上机N/3，笔试N/3)
    CJ.DBF(考号C/6，上机N/3，笔试N/3，成绩C/4)
    给定程序MODI1.PRG的功能是：实现两个库文件之间的数据更新，以KSH.DBF中的笔试和上机成绩
更新CJ.DBF中的相应数据。然后写入考试结果。
    改错要求：程序中共有三类错误，请修改***found***下面的错误，并调试运行。
    注意：要求在指定位置修改，不得增加或删除程序行。

*********************modi1.prg*************************
set talk off
set safety off
select 1
use cj
index on 考号 to ikhc
select 2
use ksh
select 1 
update on 考号 from b replace 笔试 with b->笔试,上机 with b->上机 random
go top
*******found*******
do while .not.found()
   do case
      case 笔试>=85.and.上机>=85
          replace 成绩 with "优秀"
      case 笔试<60.and.上机>=60.or.笔试>=60.and.上机<60
          replace 成绩 with "补考"
      case 笔试<60.and.上机<60
          replace 成绩 with "未过"
      *******found*******
      case otherwise
          replace 成绩 with "通过"
   endcase
*******found*******
   go next 1
enddo
close database
set talk on
return

三、程序设计试题(40分)

    GZZ.DBF(职工号C/6，姓名C/8，基本工资N/6.2，奖金N/6.2，津贴N/6.2，房租N/6.2，水电费N/6.2，实发工资N/6.2)
    有某单位的工资数据库GZZ.DBF。其中职工号的前四位是部门编码(1001~1005，共5个部门)。先建立一个统计数据库GZTJ.DBF，包括三个字段：部门编码(C,4)、职工号(C,6)、增资额(N,7.2)。请编写程序PROG1.PRG，在程序中首先由工资数据库拷贝生成GZ.DBF，然后再修改GZ.DBF，把实发工资等于或低于本部门平均工资的职工的实发工资提高百分之三十；并计算出每人的增资额，把有关数据存放到GZTJ.DBF中。

推荐给我的朋友

[关闭窗口]