'E.Wong

'This program will use a function to add up coin

'3/15/21

Imports System, Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Dim qNum, dNum, nNum, pNum as Integer

        Dim final as Single

        Console.WriteLine("Enter amount of quarters: ")

        qNum = Console.ReadLine()

        Console.WriteLine("Enter amount of dimes: ")

        dNum = Console.ReadLine()

        Console.WriteLine("Enter amount of nickels: ")

        nNum = Console.ReadLine()

        Console.WriteLine("Enter amount of pennies: ")

        pNum = Console.ReadLine()

        final = addCoinsFunction(qNum, dNum, nNum, pNum) 

        Console.WriteLine("The total amount of money is: " & FormatCurrency(final))

    End Sub

    Private Function addCoinsFunction(ByVal quarters as integer, ByVal dimes as integer, ByVal nickels as integer, ByVal pennies as integer)

    dim result as single

    result = .25*quarters + .1*dimes + .05*nickels + .01*pennies

    return result

End Function

End Module

​

​