Imports System, Microsoft.VisualBasic

'Aidan A

'Total Change Program

'10/28/21

Public Module Module1

    Public Sub Main()

        Dim quarters as Integer 'declaration

        Dim dimes as Integer

        Dim nickels as Integer

        Dim pennies as Integer

        Dim total as Single

        Console.WriteLine("Enter number of quarters: ") 'user input

        quarters = Console.ReadLine()

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

        dimes = Console.ReadLine()

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

        nickels = Console.ReadLine()

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

        pennies = Console.ReadLine()

        total = (quarters*0.25)+(dimes*0.1)+(nickels*0.05)+(pennies*0.01) ' calculations

        Console.WriteLine("Your total is: " & FormatCurrency(total)) 'output

        COnsole.WriteLine("") 'reset

        COnsole.WriteLine("")

        COnsole.WriteLine("")

        Main()

    End Sub

End Module