VB中类的使用

1、 1.变量的定义 

 2. 对象的初始化

3.对象的操作

4.对象的引用

2、 

Public a As LongPublic b As LongPublic c As Long

Private Sub Class_Initialize() a = 3 b = 4 c = 5End SubPublic Function zhouchang() As Longzhouchang = Int(a + b + c)End FunctionPublic Function mianji() As LongDim P As LongP = zhouchang / 2mianji = Sqr(P * (P - a) * (P - b) * (P - c))End FunctionPrivate Sub Command1_Click()

    Dim 三角形 As Class1    Set 三角形 = New Class1 '用类来创建对象，用Class1来创建aAngle对象，创建aAngle对象时，会引发Class_Initialize()    Print "周长:" & 三角形.zhouchang    Print "面积:" & 三角形.mianji

End Sub

3、 点击按钮，得出三角形的周长和面积

End