'Tyler Katsoff

'3/17/2021

'addCoins

Imports System, Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Dim quarterAmount, dimeAmount, nickelAmount, pennyAmount As Integer

        Dim result As Single = addCoins(quarterAmount, dimeAmount, nickelAmount, pennyAmount) 'Declaring Variables

        Console.write("Enter number of quarters: ")

        quarterAmount = Console.ReadLine()

        Console.write("Enter number of dimes: ")

        dimeAmount = Console.ReadLine()

        Console.write("Enter number of nickels: ")

        nickelAmount = Console.ReadLine()

        Console.write("Enter number of pennies here: ")

        pennyAmount = Console.ReadLine() 'Get User Input

        result = addCoins(quarterAmount, dimeAmount, nickelAmount, pennyAmount)

        Console.WriteLine("The total amount of money is: " & FormatCurrency(result)) 'Output

    End Sub

    Private Function addCoins(ByVal quarter As Integer, ByVal dime As Integer, ByVal nickel As Integer, ByVal penny As Integer) As Single

        Dim yourTotal As Decimal

        yourTotal = quarter * 0.25 + dime * 0.10 + nickel * 0.05 + penny * 0.01

        Return yourTotal

    End Function 'Calculations

End Module