Imports System

Public Module Module1

    Public Sub Main()

        Dim acc As Account = New Account()

        acc.setNumber("A1267")

        Console.WriteLine("acc accountNumber = " + acc.getNumber())

        acc.doSummat()

​

        Dim saver As Savings = New Savings()

        saver.setNumber("A1268")

        saver.setInterestRate(5)

        Console.WriteLine("saver accountNumber = " + saver.getNumber())

        Console.WriteLine("saver interestRate = " + saver.getInterestRate().ToString())

        saver.doSummat()

​

        saver.outputType("Test String")

        saver.outputType(199.99)

        saver.outputType(True)

​

        Console.ReadLine()

    End Sub

End Module

​

Class Account

    'Properties

    Private accountNumber As String

​

    'Methods

    Public Sub setNumber(ByVal aNum As String)

        me.accountNumber = aNum

    End Sub

​

    Public Function getNumber() As String

        Return accountNumber

    End Function

​

    Public Overridable Sub doSummat()

        Console.WriteLine("This is doSummat() in Account")

    End Sub

End Class

​

​

​

​

Class Savings : Inherits Account

    Private interestRate As Integer

​

    'Properties

    Public Sub setInterestRate(ByVal iRate As Integer)

        interestRate = iRate

    End Sub

​

    'Methods

    Public Function getInterestRate() As Integer

        Return interestRate

    End Function

​

    Public Overrides Sub doSummat()

        Console.WriteLine("This is doSummat() in Savings")

    End Sub

​

    Public Overloads Sub outputType(ByVal inType As String)

        Console.WriteLine("You sent outputType a String")

    End Sub

​

    Public Overloads Sub outputType(ByVal inType As System.Double)

        Console.WriteLine("You sent outputType an Integer")

    End Sub

​

    Public Overloads Sub outputType(ByVal inType As Boolean)

        Console.WriteLine("You sent outputType a Boolean")

    End Sub

​

End Class