在考生文件夹下有“db4．mdb”数据库。 （1) 以“按货号查询销售金额”查询为数据源；自动创建纵栏表布局

在考生文件夹下有“db4.mdb”数据库。

鸡和兔子共30只，脚共90只，编写模块“模块1”实现计算鸡和兔子共多少只，结果用消息框显示，要求用Do While循环实现。

在考生文件夹下有“db4．mdb”数据库。

创建模块“出错处理”，实现在主过程中M()调用F2()函数。F2()函数实现监控错误，安排错误处理至标号“CATCHBLOCK”位置，假设错误代码为102，没有错误显示“No Error!”信息，正常退出函数。在“CATCHBLOCK”位置显示错误的描述信息 (Err．Description)。

在考生文件夹下有“db4．mdb”数据库。

创建实现求“水仙花数”的模块“模块1”，实现求“水仙花数”并用消息框输出。“水仙花数”是指一个三位数，其各位数字的立方和恰好等于该数的本身。例如 153=1*1*1+5*5*5+3*3*3。要求：“水仙花数”用DO While循环实现。运行该模块的结果如图所示。

在考生文件夹下有“db4.mdb”数据库。

(1)创建“闰年判断”模块，实现通过输入框输入某一年，判断是否闰年，判断结果用消息框显示。模块运行结果如图所示。

单击“确定”显示如图。

(2)创建“求和”模块，实现1+2+3+...+99+100计算。要求算法在子过程Sum中实现，在主过程L中调用Sum子过程。算法用For循环语句实现。计算结果用消息框显示。

结果模块运行结果如图所示。

在考生文件夹下有“db4.mdb”数据库。

(1)创建“计算圆面积”窗体，在窗体中添加“请输入半径”和“圆面积”文本框。

(2)在窗体中添加“计算”按钮，实现圆面积计算，编写按钮代码，结果显示在“圆面积”文本框中。要求编写单独的函数实现圆面积的计算，只做半径r＜=0判断，此时面积的值为0，其他情况下面积的值=3.14×r×r。窗体设计结果如图所示。

在考生文件夹中有“db4.mdb”数据库。

(1)将考生文件下的“班级.txt”导入数据库，设置班级ID为主键，导入表的名称为“班级”。

(2)设置“班级”表班级ID字段大小为5，设置“班级”表到“学生”表的关系为一对多，实施参照完整性。

(3)将“班级”表的“班级名称”列冻结，创建高级筛选，筛选电子系班级。“班级”表如图所示。

执行筛选后显示如图

考生文件夹下有一个数据库“学校管理”，其中有数据库表“student”、“score”和“course”

（1）在考生文件夹下有程序文件“cxl．prg”，该程序的功能是检索分数小于60的学生的全部信息。请修改程序中的错误，并调试该程序，使之正确运行。考生不得增加或删减代码。

（2）编写程序“cx2．prg”，实现“输入一个数判断其是否为素数”的功能。

在考生文件夹下有“xxx.mdb”数据库。

(1)以产品、订单明细、订单和客户表为数据源，创建“订单查询”，结果显示订单ID、产品名称、客户名称、数量和价格字段，其中，价格=[订单明细].单价+[订单明细].折扣。查询结果如图所示。

在考生文件夹下有商品数据库。

(1)在“雇员”窗体中添加“最小化窗体”和“关闭窗体”按钮，编写Ⅶ语句实现最小化窗体和关闭窗体的操作。结果如图所示。

(2)编写VB代码，实现关闭“雇员”窗体时，显示如图所示消息框。

考生文件夹下有一个数据库“schoo1”，其中有数据库表“student”、“score”和“course”。

（1）在考生文件夹下有程序文件“cx1．prg”．该程序的功能是检索同时选修了课程编号为“0001”和“0003”的学生的学号。请修改程序中的错误，并调试该程序．使其正确运行。考生不得增加或删减原程序的行数。

（2）在考生文件夹下设计一个表单“bd1”，该表单为

“student”表的窗口式输入界面，表单上还有一个名为“cmd-Close”的按钮，标题名为“关闭”，单击该按钮，使用This-Form．Release退出表单。最后将表单存放在考生文件夹中。

注意：在设计表单时，打开“school”数据库。将“student”表拖入到表单中就实现了“student”表的窗口式输入界面，不需要其他设置或修改。