2010年计算机等级二级VB考试练习题及答案二套（6）

2010年计算机等级二级VB考试练习题及答案二套（6）

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

　　三、综合应用题

#

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

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

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

#

　　【参考答案】 #

　　(1)具体步骤如下：

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

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

#

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

#

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

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

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

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

　　(2)具体步骤如下： #

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

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

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

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

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

　　RecordSource=“chaxun”

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

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

#

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

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

　　THISFORM.RELEASE #

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