Código Hombre,Servicio

OBJETOS
En este programa utilizamos un modulo (Mmain) y dos clases Servicio y Hombre
despliega por pantalla la edad y nombre del mono, además permite ingresar el nombre y muestra la edad y nombre completo de la persona.

MODULO MMain
PUBLIC SUB Main()
'instanciar objetos
DIM mono AS Servivo
DIM persona AS Hombre
DIM no AS String
mono = NEW Servivo
mono.nacido(CDate("2/2/1992"))
mono.PonePatas(2)
PRINT "La edad del mono es..", mono.edad()
PRINT "Las patas del mono son..", mono.dicePatas()
persona = NEW Hombre
PRINT "Ingrese nombre..."
INPUT no
persona.PoneNombre(no)
persona.nacido(CDate("2/18/1969"))
persona.PoneApellido("Picapiedra")
PRINT "La edad de la persona es", persona.edad()
PRINT "El nombre completo es...", persona.NombreCompleto()
END
Servicio
PRIVATE patas AS Integer
PRIVATE nacimiento AS Integer
PUBLIC SUB nacido(fecha AS Integer)
nacimiento = Year(fecha)
END
PUBLIC SUB PonePatas(numero AS Integer)
patas = numero
END
PUBLIC FUNCTION edad() AS Integer
RETURN Year(Now) - nacimiento
END
PUBLIC FUNCTION dicePatas() AS Integer
RETURN patas
END
Hombre
INHERITS Servivo
PRIVATE Nombre AS String
PRIVATE Apellido AS String
PUBLIC SUB PoneNombre(cadena AS String)
Nombre = cadena
END
PUBLIC SUB PoneApellido(cadena AS String)
Apellido = cadena
END
PUBLIC FUNCTION NombreCompleto() AS String
RETURN Nombre & "" & Apellido
END