作业帮 > 综合 > 作业

VB编程:定义一个Box(盒子)类,在该类定义中包括数据成员 length(长)、width(宽)和height(高);

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/05/05 08:49:39
VB编程:定义一个Box(盒子)类,在该类定义中包括数据成员 length(长)、width(宽)和height(高);
包括成员函数:构造函数New和函数volume,函数New设置盒子长、宽和高三个初始数据,函数volume计算并输出盒子的体积.在main函数中,要求创建Box对象,并求盒子的体积.
VB编程:定义一个Box(盒子)类,在该类定义中包括数据成员 length(长)、width(宽)和height(高);
技术不好,所以不能完全按照你的意思来答题,不知道你是不是想实现这样的结果:1、创建一个类,将类的名称修改为:Box2、在Box类中,加入如下代码:Public Length As Double
Public Width As Double
Public Height As Double
Private Sub Class_Initialize()   '构建函数,给长宽高赋初值
    Length = 10
    Width = 10
    Height = 10
End Sub
Public Property Get Volume() As Double
    '因为不了解你是想用一个过程来计算体积,还是像这样计算体积并返回值
    Volume = Length * Width * Height
End Property   3、在其他模块中,加入如下代码来测试我们的Box类:   Private Sub Main()
    Dim bb As New box  '引入我们的类,并利用New关键字创建类的实例bb
    MsgBox bb.Volume   '输出初始体积:1000
       
    bb.Length = 100
    bb.Height = 5
    bb.Width = 4
    MsgBox "修改后:" & bb.Volume    '输出修改了长宽高之后的体积:2000
End Sub