Question

VB编程：定义一个Box（盒子）类，在该类定义中包括数据成员 length（长）、width（宽）和height（高）；

包括成员函数：构造函数New和函数volume，函数New设置盒子长、宽和高三个初始数据，函数volume计算并输出盒子的体积。在main函数中，要求创建Box对象，并求盒子的体积。

Answer 1

技术不好，所以不能完全按照你的意思来答题，不知道你是不是想实现这样的结果：

1、创建一个类，将类的名称修改为：Box

2、在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