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

　　2.简单应用题

　　在考生文件夹下，完成如下简单应用：

　　(1)打开程序文件progerr.prg，按文件中给出的功能要求改正其中的错误，以文件名为prognew.prg重新保存该文件并运行程序。

　　(2)表单文件名为myform.scx，控件名为myform，表单标题为“顶层表单”。

　　(3)为顶层表单建立菜单mymenu。

　　单击“退出”菜单时，关闭释放此顶层菜单，并返回到系统菜单(在过程中完成)。

　　【参考答案】

　　(1)具体步骤如下：

　　① 打开progerr.prg文件。

　　② 将程序修改如下：

　　OPEN DATABASE ordersmanage

　　CREATE view viewes AS SELECT职工号,SUM(金额)AS总金额FROM orders;

　　GROUP BY职工号

　　SELECT * FROM viewes WHERE总金额>=30000 ORDER BY总金额DESC;

　　into dbf newtable

　　③ 执行“文件”菜单中的“另存为”命令，将程序另存为prognew.prg。

　　(2)具体步骤如下：

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

　　② 弹出“新建菜单”对话框，单击“菜单”按钮，进入“菜单设计器”窗口。

　　③ 在“菜单设计器”窗口中输入三个菜单名称“文件”、“编辑”、“退出”，并在“退出”菜单项的“结果”下拉列表中选择“过程”选项，单击“创建”按钮，在弹出的代码窗口中输入如下代码：

　　myform.release

　　set sysmenu to default

　　④ 执行“显示”菜单中的“常规选项”命令，在弹出的“常规选项”对话框中选中“顶层表单”复选框。

　　⑤ 单击“保存”按钮，将菜单保存为mymenu.mnx。

　　⑥ 执行“菜单”菜单中的“生成”命令，在弹出的对话框中单击“生成”按钮。

　　⑦ 关闭“菜单设计器”窗口。

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

　　⑨ 在打开的“表单设计器”窗口中更改表单的Caption属性为“顶层表单”。

　　⑩ 修改表单的ShowWindow属性为“2-作为顶层表单”。

　　给表单的Init事件添加如下代码：

　　do mymenu.mpr with this,”mymenu”

　　将表单保存为myform.scx，并运行表单。

　　3.综合应用题

　　在考生文件夹下，完成如下综合应用：

　　打开表单文件sapp，并完成如下操作(不得有多余操作)：

　　(1)将“课程”表添加到表单的数据环境中;

　　(2)使列表框List1中的数据项为“课程”表中的课程名称(课程.课程名);

　　(3)单击列表框中的数据项时，统计选修了所选课程的学生人数(从“考试成绩”表)，并将结果存储在以课程名命名的表中，表中只有一个字段“人数”;

　　(4)添加一个命令按钮Command1，单击该按钮时关闭表单。

　　【参考答案】

　　① 打开表单文件sapp，单击鼠标右键，在弹出的快捷菜单中选择“数据环境”命令。

　　② 在打开的“数据环境设计器”窗口中单击鼠标右键，在弹出的快捷菜单中选择“添加”命令。

　　③ 系统弹出“打开”对话框，选择“课程”表，单击“确定”按钮。

　　④ 选择列表框List1，在“属性”窗口中设置RowSourceType属性为“6-字段”，设置RowSource属性为“课程.课程名”。

　　⑤ 为列表框List1的Click事件添加如下代码：

　　filename=this.value

　　select count(考试成绩.学号)as 人数 from 课程inner join考试成绩;

　　on 课程.课程编号=考试成绩.课程编号;

　　where 课程.课程名=this.value into dbf &filename

　　⑥ 在控件工具栏中选择命令按钮，在表单中的合适位置单击，添加一个Command1按钮，并为其Click事件添加如下代码：

　　Thisform.release

　　⑦ 将表单保存，并运行表单。