2014年计算机二级考试VB专家预测试卷及答案6

　　42

　　(1)为职工表设计一个名为zgb的快速报表。

　　(2)修改考生文件夹中的“工资查询.prg”文件，此文件的功能为：

　　通过结构复制数据表文件“工资表”生成一个含有职工号和基本工资的新数据表文件gz

　　B.dbf，将原数据库中基本工资大于1 500的职工记录添加到新表中并浏览结果。

　　修改程序中的错误行，不得删除或添加程序行，使程序正确运行。

　　工资表的结构和内容如下：

　　职工号 部门号 基本工资 奖金

　　101001 101 1750 1200

　　101002 101 1000 400

　　102001 102 700 200

　　102002 102 900 350

　　103001 103 1500 600

　　103002 103 1200 400 参考答案:请参考解析 系统解析:【参考答案】

　　(1)具体步骤如下：

　　① 在“命令”窗口输入命令：CREATE REPORT zgb。

　　② 弹出报表设计器，选择菜单命令“报表”→“快速报表”。

　　③ 系统弹出“打开”对话框，选择数据源表为“职工表”。

　　④ 在“快速报表”对话框中单击“字段布局”左侧的按钮(此为系统默认)，选中“标题”复选框，为每一个字段添加一个字段名标题，再选中“将表添加到数据库环境中”复选框，把“职工表”作为数据源表添加到数据库环境中，单击“确定”按钮，便为职工表建立了一个快速报表。

　　⑤ 单击工具栏中的“打印预览”图标按钮，查看报表效果。

　　(2)具体步骤如下： www.Examda.CoM

　　① 根据题意，在“命令”窗口输入命令：MODI COMM工资查询.prg。

　　② 打开考生文件夹下的工资查询.prg文件，查看程序中的错误行。

　　****工资查询.prg的源程序内容：****

　　SET TALK OFF

　　SET SAFE OFF

　　SELECT 1

　　USE 工资表.dbf

　　COPY STRU TO gz

　　B.dbf 职工号，基本工资 ****Error****

　　SELECT 2

　　USE gz

　　B.dbf

　　SELECT 1

　　GO TOP

　　DO WHILE ! BOF() ****Error****

　　IF 基本工资>=1500

　　SELECT 2

　　APPEND BLANK

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

　　SELECT 1

　　ENDIF

　　CONT ****Error****

　　ENDDO

　　SELECT 2

　　DISPLAY ALL

　　DELETE TABLE gz

　　B.dbf ****Error****

　　CLOSE DATABASE

　　SET SAFE ON

　　SET TALK ON

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

　　③ 修改程序中的错误。

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

　　SET TALK OFF

　　SET SAFE OFF

　　SELECT 1

　　USE 工资表.dbf

　　COPY STRU TO gz

　　B.dbf FIELDS 职工号，基本工资

　　SELECT 2

　　USE gz

　　B.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 gz

　　B.dbf

　　CLOSE DATABASE

　　SET SAFE ON

　　SET TALK ON

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

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

　　【试题解析】

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

　　相关推荐：

　　2014计算机等级《二级VB》上机预测题及答案汇总

　　考试吧考后首发2014年3月计算机等考真题及答案通知

　　考试吧推荐：2014年3月计算机二级考前冲刺备考专题