Imports System, Microsoft.VisualBasic

​

'Justin Carreno

'10/20/2021

'TotalChange Program

Public Module Module1           

    Public Sub Main()

        Dim quarterValue as Integer                                                                                     '1 Declare Variables

        Dim dimeValue as Integer

        Dim nickleValue as Integer

        Dim pennieValue as Integer

        Dim totalValue as Single

        Console.WriteLine("Enter a valid amount of qaurters you have:")                                                 '2 Get user input

        quarterValue = Console.ReadLine()

        Console.WriteLine("Enter a valid amount of dimes you have:")

        dimeValue = Console.ReadLine()

        Console.WriteLine("Enter a valid amount of nickles you have:")

        nickleValue = Console.ReadLine()

        Console.WriteLine("Enter a valid amount of pennies you have:")

        pennieValue = Console.ReadLine()

        totalValue = (quarterValue * 0.25) + (dimeValue * 0.10) + (nickleValue * 0.05) + (pennieValue * 0.01)           '3 Claculate

        Console.WriteLine("You total amount of money is: " &FormatCurrency(totalValue))                                 '4 Print answer

    End Sub

End Module