实验十 VBA编程
要求：在“实验十VBA编程”文件夹中，打开“VBA编程基础”数据库中，完成以下操作。
（1）新建一个模块，名为“程序模块”，在该模块中建立3个过程，再创建名为“程序窗体”，添加3个按钮，分别调用“程序模块”中的3个过程。
①第1个为“Hello”无参过程，功能为：运行该过程弹出一个对话框，对话框中的内容为，“第一个VBA程序！”，如图9-17所示。
②第2个为“inout”无参过程，功能为：使用输入框，输入一个整数值，使用输出框输出这个数的平方，效果如图9-18和图9-19所示。
③第3个“vball”无参过程，功能是：使用输入框输入球的半径，计算球的体积（保留2位小数），使用输出框显示，如图9-20和图9-21所示。
图9-17 程序运行结果
图9-18 输入框
图9-19 输出框
图9-20 输入半径
图9-21 输出体积
提示：体积
（2）创建名为“窗体模块”窗体，添加一个“选项卡”，设计3个页面，分别是“验证密码”、“转换”、“求和”，完成以下工作。
①选择“验证密码”选项卡，如图9-22所示。建立“按钮”的单击事件，事件的功能为：在“输入密码”文本框中输入密码，当密码为“123456”时，在“标签”中显示“密码正确！”，否则显示“密码错误！”。
图9-22 输入框
②选择“转换”选项卡，如图9-23所示。建立“按钮”的单击事件，事件功能为：在“输入分数”文本框中，输入一个百分制分数，在“等级”文本框中显示其等级。等级规则为：成绩＜60为“不合格”，成绩＞=60and＜80为“中”，成绩＞=80为“优秀”。如果成绩小于0或大于100，则弹出输出框，显示“数据错误”，如图9-23所示。
图9-23 输入框
③选择“求和”选项卡，如图9-24所示。建立“按钮”的单击事件，事件功能为：求1到100所有3的倍数的和，通过文本框“text4”显示。
图9-24 窗体设计视图
（3）完成以下操作。
①建立名为“过程模块”，在此模块中，新建一个求解一元二次方程ax2+bx+c=0的过程“Root”，该过程带有3个参数，表示方程的3个系数。过程的功能为：
当a等于0时，通过输出框警示说明“a=0时，不是一个一元二次方程，请重新输入方程系数！”，如图9-25所示。
图9-25 a=0输出
当判断式大于等于0时，输出方程式与“两个相等的实根”，如图9-26所示；
当判断式大于0时，输入方程式与“两个不相等的实根”，如图9-27所示；当判别式小于0时，通过输出框警示“方程无实根，请重新输入方程系数！”，如图9-28所示。（方程的实根要求显示显示3位小数）。
②创建名为“过程窗体”，如图9-29所示，通过3个“文本框”，输入方程3个系数，作为调用过程“Root”的实参，通过“按钮”的单击事件，调用过程“Root”。
图9-26 判别式等于0输出
图9-27 判别式大于0输出
图9-28 判别式小于0输出
图9-29 输入框