1. Escribir una clase que se tenga que heredar y en la que haya un método que se deba escribir en la clase heredada.
Public MustInherit Class Ejercicio
Public Sub New()
End Sub
Public MustOverride Sub VisualizarAbecedario()
End Class
2. Escribir una clase que herede la clase anterior y que desarrolle el método pendiente en dicha clase, crear un objeto de ésta clase que permita realizar la prueba de funcionamiento de dicho método.
Public Class Nueva
Inherits Ejercicio
Public Overrides Sub VisualizarAbecedario()
Dim X As Integer
X = 65
While X < 91
Console.WriteLine(Chr(X))
X = X + 1
End While
End Sub
End Class
Su utilización es:
Module Module1
Sub Main()
Dim Objeto As Nueva = New Nueva
Objeto.VisualizarAbecedario()
Console.Read()
End Sub
End Module
Síguenos en: Facebook Sobre aulaClic Política de Cookies