第二套试题

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

1.将考生目录下THK\WRM子目录中的文件DEBUG.FOX删除。
2.将考生目录下YHR\SXB子目录中建立一个新的子目录WYRN。
3.将考生目录下LXM\WBS子目录中的文件ABROAD.NFG和考生目录下HMO\SHY子目录中的文件THIN.BAS顺序
合并拷贝到考生目录下SND\ZRF子目录中，文件名为QNMD.HLP。
4.将考生目录下CHS\PDH子目录中的文件SIXTEN.PAS设置成具有只读属性的文件。
5.将考生目录下ARCNET\CARD子目录删除。
6.将考生目录下TND\JNY子目录中的文件EXPERT.BAS更名为EXPERT.DOC。

二、改错题(30分)

    STD.DBF(学号C/4，姓名C/6，性别C/2，生日D/8，民族C/6，政治面目C/4，优秀毕业生L/1，来源
地区C/8，数学N/3，英语N/3，政治N/3，总分N/3)
    给定程序MODI1.PRG的功能是：根据输入学号范围查STD.DBF数据库中的学生成绩。
    改错要求：程序中共有四个错误，请修改***found***下面的错误，并调试运行。
    注意：要求在指定位置修改，不得增加或删减程序行。

*****************************modi1.prg******************************
SET TALK OFF
SET SAFETY OFF
USE STD
YN="Y"
*******found*******
DO WHILE YN="Y"
   CLEAR
   *******found*******
   WAIT "请输入4位起始学号：" TO NUM1
   *******found*******
   WAIT "请输入4位终止学号：" TO NUM2
   DO CASE
      CASE NUM1=" ".OR.NUM2=" "
      ? "输入无效，请重新输入！"
      LOOP
   CASE VAL(NUM1)>VAL(NUM2)
      X2=VAL(NUM1)
      X1=VAL(NUM2)
   CASE VAL(NUM1)<=VAL(NUM2)
      X1=VAL(NUM1)
      X2=VAL(NUM2)
   ENDCASE
   M=3
   @ 1,20 SAY "所查成绩："
   @ M,20 SAY "学号"
   @ M,30 SAY "姓名"
   @ M,40 SAY "政治"
   @ M,50 SAY "英语"
   @ M,60 SAY "数学"
   DO WHILE X1<=X2
      LOCATE FOR 学号=STR(X1,4,0)
      IF FOUND()
         M=M+1
         @ M,20 SAY 学号
         @ M,30 SAY 姓名
         @ M,40 SAY 政治
         @ M,50 SAY 英语
         @ M,60 SAY 数学
         X1=X1+1
       ELSE
         ? STR(X1,6,0)+"学号没找到！"
         *******found*******
         SKIP
       ENDIF
    ENDDO
    WAIT "是否继续？(Y/N)" TO YN
ENDDO
USE
SET TALK ON
RETURN

三、程序设计题(40分)

    STD.DBF(学号C/4，姓名C/6，性别C/2，生日D/8，民族C/6，政治面目C/4，优秀毕业生L/1，
来源地区C/8，数学N/3，英语N/3，政治N/3，总分N/3)
    BJ.DBF(班级号C/8，班号N/2，学生数N/3)
    有两个库文件：学生库XS.DBF、班级库BJ.DBF，班级库开始时学生数字段值为0。每个学生
学号的前两位是所在班级号。请编写程序PROG1.PRG，统计每个班级的学生数，存放到班级数据
库BJ.DBF的相应记录中。

推荐给我的朋友

[关闭窗口]