Imports System

'Nikil Pakianathan

'October 20th, 2020

'Total Change Program

​

Public Module Module1

    Public Sub Main()

        Dim numQuarter, numDime, numNickel, numPenny As Integer                                                 'Declare Variables

        Dim change As Single

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

        numQuarter = Console.ReadLine()

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

        numDime = Console.ReadLine()

                                                                                                            'User Input

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

        numNickel = Console.ReadLine()

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

        numPenny = Console.ReadLine()

        change = (0.25 * numQuarter) + (0.10 * numDime) + (0.05 * numNickel) + (0.01 * numPenny)            'Calculation & Output

        Console.WriteLine("Your total change is " & change & " dollars")                                                        

    End Sub

End Module