Public Class car
    Inherits vehicle
    Private mycolor As String
    Private mydisplacement As String
    Public Overrides Property Type() As String
        Get
            Return "轎車"
        End Get
        Set(ByVal Value As String)

        End Set
    End Property
    Public Property color() As String
        Get
            Return mycolor
        End Get
        Set(ByVal Value As String)
            mycolor = Value
        End Set
    End Property
    Public Property displacement() As String
        Get
            Return mydisplacement
        End Get
        Set(ByVal Value As String)
            mydisplacement = Value
        End Set
    End Property
    Public Sub New()
    End Sub
    Public Sub New(ByVal O As String, ByVal I As String, ByVal E As Integer, ByVal C As String, ByVal D As String)
        MyBase.New(O, I, E)
        mycolor = C
        mydisplacement = D
    End Sub
    
    Public Overrides Function TellSelf() As String
        Dim output As String
        output = MyBase.TellSelf & "顏色=" & mycolor & "類型=" & mydisplacement
        Return output
    End Function
End Class