2013年3月计算机二级VB考前冲刺试卷及答案(2)

　　二、简单应用题

　　(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)小题中可以通过菜单命令建立一个快速报表文件。

　　三、综合应用题

　　按如下要求完成综合应用(所有控件的属性必须在表单设计器的属性窗口中设置)：

　　(1)根据“项目信息”、“零件信息”和“使用零件”三个表建立一个查询(注意表之间的连接字段)，该查询包含项目号、项目名、零件名称和(使用)数量四个字段，并要求先按项目号升序排序、再按零件名称降序排序，保存的查询文件名为chaxun;

　　(2)建立一个表单，表单名和文件名均为myform，表单中含有一个表格控件Grid1，该表格控件的数据源是前面建立的查询chaxun;然后在表格控件下面添加一个“退出”命令按钮Command1，要求命令按钮与表格控件左对齐、并且宽度相同，单击该按钮时关闭表单。

　　【参考答案】

　　(1)具体步骤如下：

　　① 从“文件”菜单中选择“新建”命令，在弹出的“新建”对话框中选中“查询”单选按钮，单击“新建文件”按钮。

　　② 在弹出的“打开”对话框中选择打开“零件信息”表。

　　③ 系统打开“查询设计器”窗口，同时打开“添加表或视图”对话框，单击“其他”按钮添加“使用零件”、“项目信息”两个表，单击“关闭”按钮关闭对话框。

　　④ 在“字段”选项卡中的“可用字段”列表框中选择“项目信息.项目号”字段，单击“添加”按钮将其添加到“选定字段”列表框中，以同样的方法添加“项目信息.项目名”、“零件信息.零件名称”、“使用零件.数量”三个字段。

　　⑤ 在“排序依据”选项卡中的“选定字段”列表框中选择“项目信息.项目号”字段，单击“添加”按钮将其添加到“排序条件”列表框中，并选中“升序”单选按钮。

　　⑥ 在“选定字段”列表框中选择“零件信息.零件名称”字段，单击“添加”按钮将其添加到“排序条件”列表框中，并选中“降序”单选按钮，

　　⑦ 单击工具栏中的“保存”按钮，在弹出的“另存为”对话框中以chaxun为文件名保存。

　　(2)具体步骤如下：

　　① 从文件”菜单中选择“新建”命令，在弹出的“新建”对话框中选中“表单”单选按钮，单击“新建文件”按钮，系统打开“表单设计器”窗口。

　　② 在“属性”窗口中设置表单的Name属性为myform。

　　③ 在“控件”工具栏中单击“表格”按钮，单击表单工作区域即可添加一个表格。

　　④ 在“属性”窗口中为表格设置如下属性：

　　RecordSourceType=“3-查询(.QPR)”

　　RecordSource=“chaxun”

　　⑤ 在表格的下方添加一个命令按钮，在“属性”窗口中修改按钮的Caption属性值为“退出”。

　　⑥ 在表单中选中表格，在“属性”窗口中查看表格的宽度并记下。

　　⑦ 在表单中选中命令按钮，然后在“属性”窗口中将其宽度改为和表格一样的宽度。

　　⑧ 在表单中选中命令按钮，在“属性”窗口中双击Click事件，在弹出的窗口中添加如下代码：

　　THISFORM.RELEASE

　　⑨ 单击工具栏中的“保存”按钮，在弹出的对话框中以myform为文件名保存。