利用类模块来求长方体的体积及面积

作者：绿色风分类：时间：2022-08-18 浏览：57

楼主
wise

一、首先创建一个类模块，该模块名字为：长方体的体积及面积
然后在里面写入相关代码：

Enum 类型
体积
面积
End Enum
Dim le As Double, high As Double, C As Double
Public leixing As 类型
Property Let 长(leng As Double)
le = leng
End Property
Property Let 宽(Co As Double)
C = Co
End Property
Property Let 高(high1 As Double)
high = high1
End Property
Property Let 计算类型(lx As 类型)
leixing = lx
End Property
Sub 计算()
If leixing = 面积 Then
MsgBox (le * C + le * high + C * high) * 2
Else
MsgBox le * C * high
End If
End Sub

二、建立一个模块调用类模块：

Dim T As New 长方体的体积及面积
Sub wise()
T.长 = 14
T.宽 = 10
T.高 = 8
T.计算类型 = 体积
T.计算
End Sub

利用类模块求长方体的体积.rar

2楼
水星钓鱼

类的帖子不多啊。学习下。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表