第一套试题

一、DOS题(每题5分，共6小题，30分)

1.将考生目录下VAP\SHELL子目录中的文件FILE.FOX删除。
2.将考生目录下FCS\SDK子目录删除。
3.将考生目录下DSK\HDC子目录中的文件INFOR.FOR更名为NEWS.BAS。
4.将考生目录下NRZ\ZERO子目录中建立一个新的子目录BIKE。
5.将考生目录下DTE\GEN子目录中的文件MAP.FIX拷贝到考生目录下JOB\DRIVE子目录中，文件名为
APPS.TXT。
6.将考生目录下SPX\ROOT子目录中的文件SEND.PAS设置成具有隐含
属性的文件。

二、改错题(30分)

    ZG.DBF(职工号C/6，姓名C/8，基本工资N/6.2，奖金N/6.2，津贴N/6.2，实发工资N/6.2)
    给定程序MODI1.PRG的功能是：按照基本工资降序显示前十名和按升序显示后十名职工的工资
数据。
    改错要求：程序中共有三个错误，请修改***found***下面的错误，并调试运行。
    注意：要求在指定位置修改，不得增加或删减程序行。

***********************MODI1.PRG**************************
set talk off
set safety off
use zg
index on -基本工资 to jb
n=1
m=3
clear
@ 1,20 say "前十名高工资:"
@ m,20 say "职工号"
@ m,30 say "姓名"
@ m,40 say "基本工资"
@ m,50 say "奖金"
do while n<=10
   m=m+1
   @ m,20 say 职工号
   @ m,30 say 姓名
   @ m,40 say 基本工资
   @ m,50 say 奖金
   n=n+1
*******found********
   goto 1
enddo
wait 
clear
@ 1,20 say "后十名低工资:"
m=3
n=1
*******found********
go eof()
@ m,20 say "职工号"
@ m,30 say "姓名"
@ m,40 say "基本工资"
@ m,50 say "奖金"
do while n<=10
   m=m+1
   @ m,20 say 职工号
   @ m,30 say 姓名
   @ m,40 say 基本工资
   @ m,50 say 奖金
   n=n+1
   *******found********
   goto -1
enddo 
use 
set talk on

三、程序设计题(40分)

    ZD.DBF(库名称:C/12，FIELD_NAME:C/10，FIELD_TYPE:C/1，FIELD_LEN:N/3，FIELD_DEC:N/3)
    ZG.DBF(职工号C/6，姓名C/8，基本工资N/6.2，奖金N/6.2，津贴N/6.2，实发工资N/6.2)
    bsh.dbf(考号C/6，笔试N/3)
    bsh.dbf(考号C/6，上机N/3)    
    系统中已有三个库文件zg.dbf、bsh.dbf、shj.dbf，另有数据字典库zd.dbf。请编写程序
PROG1.PRG，在程序中先用ZAP命令把字典库记录删除，然后提示并接受用户输入数据库名，将
库文件的全名及所有字段描述存放在数据字典库中。(注：可通过结构文件完成)

推荐给我的朋友

[关闭窗口]