Código Matricula

MATRICULA
Para este ejercicio de consola utilizamos un módulo (Mmain) y una clase (Alumno)
permite ingresar los siguientes datos Nombre, curso, seccion, numero de matricula, y tres parciales; parcial1,parcial2,parcial3, y muetra los siguientes datos: el promedio, total de los tres parciales, fecha de matricula y el nombre completo.

MODULO MMain
PUBLIC SUB Main()
'Instarciar Objetos
DIM matricula AS Alumno
DIM nom AS String
DIM ape AS String
DIM curs AS Integer
DIM secc AS String
DIM fecha2 AS Date
DIM parcial AS Integer
matricula = NEW Alumno
PRINT "<<<>>>"
PRINT "INGRESE LOS SIGUIENTES DATOS"
PRINT "Ingrese Nombre...>"
INPUT nom
PRINT "Ingrese Curso...>"
INPUT curs
PRINT "Ingrese Sección...>"
INPUT secc
PRINT "Ingrese Fecha Matricula...>"
INPUT fecha2
'PRINT fecha2
PRINT "Ingrese el Parcial 1...>"
INPUT parcial
matricula.ParcialUno(parcial)
PRINT "Ingrese el Parcial 2...>"
INPUT parcial
matricula.ParcialDos(parcial)
PRINT "Ingrese el Parcial 3...>"
INPUT parcial
matricula.ParcialTres(parcial)
PRINT "El Promedio es....>>>>", matricula.PromedioFinal()
PRINT "La Fecha de Matricula es....>>>>", matricula.fechama(fecha2)
matricula.PoneNombre(nom)
matricula.PoneApellido("Garcia")
PRINT "El Nombre completo es....>>>", matricula.NombreCompleto()
END
CLASE Alumno
PRIVATE Promedio AS Integer
PRIVATE FechaMatricula AS Date
PRIVATE Nombre AS String
PRIVATE Apellido AS String
PRIVATE parcial1 AS Single
PRIVATE parcial2 AS Single
PRIVATE parcial3 AS Single
PUBLIC SUB ParcialUno(numero AS Integer)
parcial1 = numero
END
PUBLIC SUB ParcialDos(numero AS Integer)
parcial2 = numero
END
PUBLIC SUB ParcialTres(numero AS Integer)
parcial3 = numero
END
PUBLIC FUNCTION PromedioFinal() AS Single
RETURN (parcial1 + parcial2 + parcial3) / 3
END
PUBLIC FUNCTION fechama(fecha AS Date) AS Date
FechaMatricula = fecha
RETURN FechaMatricula
END
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