無差別に技術をついばむ鳥

Public MustInherit Class Animal
    Private m_name As String
    Public Property Name() As String
        Get
            Return m_name
        End Get
        Set(ByVal value As String)
            Me.m_name = value
        End Set
    End Property

    Private m_age As Integer
    Public Property Age() As Integer
        Get
            Return Me.m_age
        End Get
        Set(ByVal value As Integer)
            If value > 0 Then
                Me.m_age = value
            End If
        End Set
    End Property

    Public Sub New(ByVal name As String, ByVal age As Integer)
        Me.Name = name
        Me.Age = age
    End Sub

    //ここを修正
    Public Overridable Sub Talk()
        Console.WriteLine("ワタシハ{0}。年は{1}だよ。", _
            Me.Name, Me.Age)
    End Sub

    Public MustOverride Sub Move()
End Class

Public Class Human

    Inherits Animal

    Public Sub New(ByVal name As String, ByVal age As Integer)
        MyBase.New(name, age)
    End Sub

    //これがメソッドオーバーライド    
    Public Overrides Sub Talk()
        Console.WriteLine("私は{0}。年は20だよ。", Me.Name)
    End Sub

    Public Overrides Sub Move()
        Console.WriteLine("テクテクテクテク")
    End Sub

End Class