1.实验目的
（1）掌握类模块在窗体对象中的应用。
（2）学会为窗体和控件事件编写VBA代码。
2.实验内容
（1）创建一个如图8-6所示的窗体，根据输入的行李重量计算火车站行李收费。收费标准是50kg以内（包括50kg）0.20元/kg，超出部分0.50元/kg。
图8-6 “行李托运收费”窗体
图8-7 求奇数、偶数和窗体
（2）创建一个如图8-7所示的窗体，通过在文本框中输入两个整数（例如第一个数输入的是1，第二个数输入的是10），求这两个数（含这两个数）之间的所有数的奇数之和、偶数之和，如图8-8和图8-9所示。
图8-8 1-10的奇数和
图8-9 1-10的偶数和(www.xing528.com)
3.思路分析
（1）创建窗体，关闭控件向导，添加两个文本框（txt1、txt2）和3个按钮（cmd1、cmd2和cmd3）。将两个文本框附加标签的标题属性分别改为“行李重量：”和“应付费用：”，将按钮的标题属性改为“计算”、“清除”和“退出”。为3个按钮编写单击事件过程。
（2）创建窗体，关闭控件向导，添加两个文本框和一个按钮。将两个文本框附加标签的标题属性分别改为“请输入第一个数：”和“请输入第二个数：”，将按钮的标题属性改为“奇数、偶数和”。为按钮编写单击事件过程。
4.操作提示
（1）在窗体的设计视图中单击“计算”按钮，在它的单击事件中选择代码生成器，打开代码窗口，编写按钮的单击事件代码如下：
“清除”按钮代码如下：
“退出”按钮代码如下：
（2）在窗体的设计视图中单击“奇数、偶数和”按钮，在它的单击事件中选择代码生成器，打开如图8-10所示的代码窗口，编写按钮的单击事件代码。
图8-10 任意两个数之间的奇数和、偶数和代码
免责声明：以上内容源自网络，版权归原作者所有，如有侵犯您的原创版权请告知，我们将尽快删除相关内容。
