Imports System, Microsoft.VisualBasic 

'Lakshita Kapoor

'March/ 15/ 2021

'Add Coins Function

Public Module Module1

    Public Sub Main()

        Dim Quarters, Dimes, Nickels, Pennies As Integer

        Dim result As Single 

        Console.WriteLine("Please enter the number of Quarters: ")

            Quarters = console.ReadLine()

        console.WriteLine("Please enter the number of Dimes: ")

            Dimes = console.ReadLine()

        console.WriteLine("Please enter the number of Nickels: ")

            Nickels = console.ReadLine()

        console.WriteLine("Please enter the number of Pennies: ")

            Pennies = console.ReadLine()

        result = (addCoins(Quarters, Dimes, Nickels, Pennies))

        console.WriteLine("The total amount of money is "  & FormatCurrency(result))

    End Sub 

    Private Function addCoins (ByVal numQuarters As Integer, ByVal numDimes As Integer, ByVal numNickels As Integer, ByVal numPennies As Integer) As Single

        Dim Total As Single 

        total =(numQuarters * 0.25) + (numDimes * 0.10) + (numNickels * 0.05) + (numPennies * 0.01)

        return total 

    End Function 

​

End Module