VB中类的使用

1、变量的定义2. 对象的初始化3.对象的操作4.对象的引用

2、Public a As LongPublic b As LongPublic c As LongPrivate Sub Class_Init足毂忍珩ialize()a = 3b = 4c = 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 "面积:" & 三角形.mianjiEnd Sub

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