Implement the concept of overriding in a console application.

CODE:

Public Class college

Shared cname As String

Sub accept()

Console.WriteLine("enter name of college:")

cname = Console.ReadLine()

End Sub

Overridable Sub display()

Console.WriteLine("name of college:" & cname)

End Sub

End Class

Public Class student

Inherits college

Public sname As String

Public roll As Integer

Sub getvalue()

Console.WriteLine("enter student name:")

sname = Console.ReadLine()

Console.WriteLine("enter student roll no:")

roll = Console.ReadLine()

End Sub

Overrides Sub display()

MyBase.display()

Console.WriteLine("student name:" & sname)

Console.WriteLine("student roll no:" & roll)

Console.ReadLine()

End Sub

End Class

Module Module1

Sub Main()

Dim c As New college

Dim s As New student

c.accept()

s.getvalue()

s.display()

End Sub

End Module