第一套

一、DOS题目

     MD ATM\FTP\ARCNET
     ATTRIB PTR\P1\OPENERR.C -H
     COPY C\CHR\CTOD.PAS+PARSTR\INTERNET.C PARSTR\DEST.NLF
     DEL U\V\W\FRAME.OLD
     RD ETHER\SOCKET
     REN GTRSA\LIE\NOT.DAT PCTOOLS.TXT

二、改错题

     INDEX ON -笔试 TO BSI
     GOTO BOTTOM
     DO WHILE .NOT.EOF() 或 DO WHILE I<=12

三、程序设计题

    SET TALK OFF
    SELECT 1
    USE 仓库
    GO TOP
    MN=面积
    DO WHILE .NOT. EOF()
       IF MN>面积
          MN=面积
       ENDIF
       SKIP
    ENDDO
    SELECT 2
    USE 职工 ALIAS B
    JOIN WOTH A FOR 仓库号=A->仓库号.AND.面积=MN TO A1
    USE A1 ALIAS B
    SELECT 3
    USE 订购单
    JOIN WITH B FOR 职工号=B->职工号 TO A2
    CLOSE DATA
    SELECT 2
    USE A2
    SELECT 1
    USE 供应商
    RECALL ALL
    INDEX ON 供应商号 TO AA
    GO TOP
    DO WHILE .NOT.EOF()
       SELECT 2
       LOCATE ALL FOR 供应商号=A->供应商号
       IF FOUND()
          SELE 1
          DELE
       ENDIF
       SELE 1
       SKIP
    ENDDO
    SELECT 1
    COPY TO SUP1 FOR DELE()
    RECALL ALL
    USE SUP1
    LIST
    CLOSE ALL
    SET TALK ON
马秀麟主页马秀麟主页