Persone e Persone VIP

Module Module1
    ' Supponiamo di voler gestire i dati di una persona
    ' cosa è una persona?
    ' una persona è identificata da un nome e un cognome
    Class Persona
        Public Property Nome As String
        Public Property Cognome As String

        Public Overridable Function ComeStringa()
            Return String.Format("{0} {1}", Nome, Cognome)
        End Function
    End Class
    ' Adesso vogliamo gestire dei vip che hanno nome, cognome, titolo
    ' cosa intendo per vip?
    ' un vip è identificato COME UNA PERSONA che ha, oltre a un nome e un cognome, ANCHE un titolo
    ' IS A - IS A KIND OF
    Class Vip
        Inherits Persona
        Public Property Titolo As String
        Public Function DammiNome() As String
            Return String.Format("{0} {1} {2}", Titolo, Nome, Cognome)
        End Function
        Public Overrides Function ComeStringa()
            Return String.Format("Piacere, sono {2} {0} {1}", Nome, Cognome, Titolo)
        End Function
    End Class
    Sub GestisciVip(v As Vip)
        Console.WriteLine("Sto gestendo i dati di {0}", v.DammiNome())
    End Sub
    Sub GestisciPersona(p As Persona)
        Console.WriteLine("Sto gestendo i dati di {0}", p.ComeStringa())
    End Sub
    Sub Main()
        Dim paperone As New Persona
        paperone.Nome = "Paperon"
        paperone.Cognome = "De' Paperoni"
        Console.WriteLine(paperone.ComeStringa())
        Dim archimede As New Persona() With {.Nome = "Archimede", .Cognome = "Pritagorico"}

        GestisciPersona(paperone)
        GestisciPersona(archimede)
        Dim pico As New Vip() With {.Nome = "Pico", .Cognome = "De' Paperis", .Titolo = "Prof."}
        GestisciVip(pico)
        GestisciPersona(pico)
    End Sub

End Module