Imports System, Microsoft.VisualBasic

'Logan Reisbord

'10/20/21

'TotalChange Program

Public Module Module1

    Public Sub Main()

        dim quarters as single

        dim dimes as single                         'Declare Variables 

        dim nickels as single 

        dim pennies as single 

        dim total as single

        console.Writeline("Enter number of quarters: ")

        dim Q as integer = console.Readline()

        console.WriteLine("Enter number of dimes: ")

        dim D as integer = console.Readline()                       'User Inputs

        console.Writeline("Enter number of nickels: ")

        dim N as integer = console.Readline() 

        console.Writeline("Enter number of pennies: ")

        dim P as integer = console.Readline() 

        quarters = 0.25

        dimes = 0.10

        nickels = 0.05

        pennies = 0.01

                                                                    'Calculations

        total = Q*quarters + D*dimes + N*nickels + P*pennies

        console.WriteLine(FormatCurrency(total))                    'Output

​

    End Sub

End Module