1.实验目的
（1）理解并掌握创建标准模块和类模块的方法。
（2）理解VBA程序开发的相关技术。
2.实验内容
在数据库中建立以下各模块。
（1）建立标准模块
1）编写一个名为“模块1”的标准模块，计算球的体积。要求用InputBox（）函数输入半径r，MsgBox语句用来输出体积V。
2）将上题改为用函数来实现，在“立即窗口”中输出体积V，命名为“模块2”。
3）建立“模块3”，调用函数求n的阶乘。
（2）建立类模块
建立一个名为“计算”的窗体，如图8-12所示。当单击“求球的体积”按钮时，调用“模块1”中的bulk子过程；单击“求阶乘”按钮时，调用“模块3”中的jc函数。
图8-12 “计算”窗体
3.思路分析
（1）建立标准模块
1）通过输入函数InputBox（）从键盘上由用户输入球的半径r，球的体积用如下公式计算：V=4/3∗3.14∗r^3，最后用MsgBox语句输出V的值。
2）将上题改为用函数实现，在“立即窗口”中输出体积V，即把无返回值的Sub过程改为有返回值的Function函数，在函数的前面要定义返回值的类型，用Double来声明。
3）先定义一个Function函数，用循环求得形参n的阶乘，并将结果返回给函数名，建立“模块3”。(www.xing528.com)
（2）建立类模块
创建窗体，关闭控件向导，添加两个按钮Command1和Command2。将两个按钮的标题属性分别改为“求球的体积”和“求阶乘”。为两个按钮分别编写单击事件过程。
4.操作提示
（1）建立标准模块
1）新建模块，单击“插入”→“过程”命令，在弹出的“添加过程”对话框中填写
过程的名称、选择过程类型和范围。过程代码如下：
2）函数代码如下：
3）函数代码如下：
（2）建立类模块
“求球的体积”按钮的事件代码如下：
“求阶乘”按钮的事件代码如下：
免责声明：以上内容源自网络，版权归原作者所有，如有侵犯您的原创版权请告知，我们将尽快删除相关内容。
