计算机等级考试二级VB模拟试题及参考答案(2)

　　IF 基本工资>=1500

　　SELECT 2

　　APPEND BLANK

　　REPLACE A->职工号WITH 职工号，A->基本工资 WITH 基本工资 &&*error*

　　SELECT 1

　　ENDIF

　　CONT ****Error****

　　ENDDO

　　SELECT 2

　　DISPLAY ALL

　　DELETE TABLE gzb.dbf ****Error****

　　CLOSE DATABASE

　　SET SAFE ON

　　SET TALK ON

　　*************************************

　　③ 修改程序中的错误。

　　****下面是修改后的工资查询.prg的程序内容：****

　　SET TALK OFF

　　SET SAFE OFF

　　SELECT 1

　　USE 工资表.dbf

　　COPY STRU TO gzb.dbf FIELDS 职工号，基本工资

　　SELECT 2

　　USE gzb.dbf

　　SELECT 1

　　GO TOP

　　DO WHILE ! EOF()

　　IF 基本工资>=1500

　　SELECT 2

　　APPEND BLANK

　　REPLACE 职工号WITH A-> 职工号， 基本工资 WITH A-> 基本工资

　　SELECT 1

　　ENDIF

　　SKIP

　　ENDDO

　　SELECT2

　　DISPLAY ALL

　　DROP TABLE gzb.dbf

　　CLOSE DATABASE

　　SET SAFE ON

　　SET TALK ON

　　***********************************

　　④ 在“命令”窗口输入：DO 工资查询.prg，运行程序。

　　【试题解析】

　　本试题主要考查了快速报表的建立和SQL语句的简单应用。在(1)小题中可以通过菜单命令建立一个快速报表文件。