Public Class BIT3444_Mod3

​

    Dim isAllowed as Boolean = True

​

    'Function with NO PARAMETERS

    Private Function GetTaxRate() as decimal

        Return 0.07D

    End Function

​

    'Function with ONE PARAMETERS

    Public Function GetDiscountPercent(ByVal subtotal As Decimal) as Decimal

        If subtotal > 750 Then

            Return 0.2D

        ElseIf subtotal > 500 Then

            Return 0.1D

        Else

            Return 0D

        End If

    End Function

​

    'PROCEDURE with FOUR PARAMETERS

    'ByVal is omitted on the parameters since ByVal is default

    Private Function CalculateFutureValue(  months As Integer, optional monthlyInvestment As Decimal = 400D, optional monthlyInterestRate As Decimal = 0.02D) as Decimal

        Dim futureValue as Decimal = 0

        For i As Integer = 1 To months

            futureValue =(futureValue + monthlyInvestment) * (1 + monthlyInterestRate)

        Next

​

        Return futureValue

    End Function

​

    ' RUN THE SAMPLES

    '

    Public Sub Main()

        '

        ' Call the Function GetTaxRate

        Console.WriteLine("%%%%%%% EXAMPLE 1 %%%%%%%")

        Console.WriteLine("Call to Function: " & Me.GetTaxRate().toString("p"))

        Console.WriteLine("%%%%%%% END EXAMPLE 1 %%%%%%%")

        Console.WriteLine("")

        '

        ' Call the Procedure GetDiscountPercent

        Console.WriteLine("%%%%%%% EXAMPLE 2 %%%%%%%")

        Dim subtotalOriginal as Decimal = 600

        Dim discountRate as Decimal = 0

        discountRate = Me.GetDiscountPercent(subtotalOriginal)

        Console.WriteLine("Discount Percent = " & discountRate)

        Console.WriteLine("%%%%%%% END EXAMPLE 2 %%%%%%%")

        Console.WriteLine("")

        '

        'Call the Procedure CalculateFutureValue

        Console.WriteLine("%%%%%%% EXAMPLE 3 %%%%%%%")

    Console.WriteLine("Future Value = " & Me.CalculateFutureValue(10, 250D, 0.01D).ToString("c"))

        Console.WriteLine("%%%%%%% END EXAMPLE 3 %%%%%%%")

        Console.WriteLine("")

    End Sub

End Class