VB资源-面向对象程序设计基础.pptVIP

Public Property x() As Single Get Return length End Get Set(ByVal V As Single) length = V End Set End Property Public Property y() As Single Get Return width End Get Set(ByVal V As Single) width = V End Set End Property Public Function area() Return length * width End Function End Class Public Class rectangular Inherits rectangle Private