等 级 考 试
:: 等级考试介绍
:: 问题及解答
:: 考试大纲
:: 考试试题
:: 课程辅导
   
软件水平考试
:: 水平考试介绍
:: 考试机构通讯录
:: 考试大纲
:: 试 题
   
微软技术认证
:: 技术认证介绍
:: MCP问题解答
   
其 他 认 证
:: CIT书考试
:: NIT证书考试
:: CISCO技术认证
:: 其 它




1998年秋季二级FoxBASE上机试试题-第十套试题

   

第十套试题

一、DOS题(每小题5分,六小题,共30分)

在考生目录下完成下列操作:
1.将考生目录下HFT\HIS子目录中的文件STUD.MPR和考生目录下MED\MUL子目录中的文件STEM.FXP顺
序合并拷贝到考生目录下POW\LIG子目录中,文件名为INTEL.PRG。
2.将考生目录下BASE\EDLC子目录中的文件LAYER.FOX更名为SIGNAL.INI。
3.将考生目录下PLS\MAC子目录中的文件ACCESS.MPS设置成具有只读属性的文件。
4.将考生目录下的ISO\OSI子目录中的文件MODEL.ASM删除。
5.在考生目录下PSAP\MSAP子目录中建立一个新的子目录NSAP。
6.将考生目录下TOKEN\BUS子目录删除。

二、改错题(30分)

    GZ.DBF(职工号C/6,姓名C/8,基本工资N/6.2,奖金N/6.2,津贴N/6.2,房租N/6.2,水电费
N/6.2,实发工资N/6.2)
    给定程序MODI1.PRG的功能是:按指定基本工资上限逐条查找数据记录。
    改错要求:程序中共有三个错误,请修改***found***下面的错误,并调试运行。
    注意:要求在指定位置修改,不得增加或删除程序行。

*********************modi1.prg*************************
set talk off
set safety off
use gz
store "Y" to rep
do while rep="Y".or.rep="y"
   clear
   *******found*******
   accept "请输入基本工资上限:" to sx
   locate for 基本工资<=sx
   if .not.found()
      ? "低于该基本工资的记录没有找到!"
   else
      clear
      do while found()
         *******found*******
         list 姓名,基本工资
         *******found*******
         skip
      enddo
   endif
   wait "是否按其它上限继续查找?(y/n)" to rep
enddo
clear
@ 10,30 say "再见!"
use 
set talk on
return

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

    GZ.DBF(职工号C/6,姓名C/8,基本工资N/6.2,奖金N/6.2,津贴N/6.2,房租N/6.2,水电费N/6.2,实发工资N/6.2)
    已有某单位的工资数据库GZ.DBF。其中职工号的前四位是部门编码(1001~1005,共5个部门)。请先建立一个统计数据库TJGZ.DBF,包括四个字段:部门编码(C,4)、最高工资、最低工资、平均工资,均为(N,7.2)。请编写程序PROG1.PRG,程序的功能是按实发工资计算出各部门的最高、最低和平均工资,存入统计数据库中。

推荐给我的朋友

 

[关闭窗口]

edu@service.netbig.com 回去网大主页