VBS：Class、Public、Private

Class Circle

    Public r         Private mArea        Public Sub Init(a)        r=a    End Sub        Public Function Area()        If mArea="" Then             mArea=Atn(1)*4*r*r         End If        Area=mArea    End Function            Private Sub EchoInfo()        MsgBox "圆的半径是：" & r & vbCrLf & "圆的面积是：" & mArea    End Sub         End Class

Set c = New Circle   ‘ 创建一个 TestClass 实例。c.Init 2                                ‘Init是在Python中的构造函数名称，你可以定义其他的名称，随你喜欢‘其他语言，如C#，C++都是用类名做为构造函数名称，显然没有Init简单易记MsgBox c.rMsgBox c.Area()‘MsgBox c.mArea                        ‘无法访问，因为这个字段是私有的，只能类内部访问，如上面的Area方法‘MsgBox c.EchoInfo()        ‘无法访问，因为这个方法是私有的，只能类内部访问Set c = Nothing      ‘ 删除实例