VBA类模块从零入门实例2：如何计算梯形面积

月亮光光 · 发表于 2007-10-17 16:28

谢谢!

ldy · 发表于 2007-10-17 19:04

[em23][em23][em23][em23]

浅显易懂，偶也开阔了思路

ldy · 发表于 2007-10-17 19:15

类模块中的公共变量和模块中公共变量不同，类模块中的公共变量只对类自己有效（有点拗口)。

看例子吧，借用1楼的例子

Sub 两个梯形面积()
Dim tx1 As New 梯形 ,tx2 As New 梯形 '实例化两个类，即分别创建名称叫tx1 和tx2 的梯形类对象
tx1.高 = 10           '重新设置它的高度
tx1.上底 = 2          '重新设置它的上底
tx1.下底 = 3          '重新设置它的下底

tx2.高 = 20           '重新设置它的高度
tx2.上底 = 4         '重新设置它的上底
tx2.下底 = 6          '重新设置它的下底

MsgBox tx1.面积 '计算tx1的面积

MsgBox tx2.面积 '计算tx2的面积
End Sub

sophiemery · 发表于 2007-10-18 17:34

搬个板凳来学习校长的发言！

类≠累

[em01][em01][em01][em01][em01]

zjxia889 · 发表于 2007-10-20 09:45

学一下

zyjs029 · 发表于 2007-10-20 08:20

收藏，学习

Alex · 发表于 2007-10-21 01:31

谢谢,学习中

zsd5237 · 发表于 2007-10-21 20:16

学习，很好！

蓝桥玄霜 · 发表于 2007-10-21 21:36

谢谢兰版主！从零开始好好学习VBA类模块。

bridge99 · 发表于 2007-10-22 08:17

学习一下

		自动登录	找回密码
密码			注册

[分享] VBA类模块从零入门实例2：如何计算梯形面积