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