Imports System, Microsoft.VisualBasic

'Danny Zhinin

'10/20/21

'TotalChange Program                

Public Module Module1 

    Public Sub Main()

        Dim quarter As Single           'Declare Variables 

        Dim dime As Single 

        Dim nickle As Single 

        Dim pennie As Single 

        Dim total As Single

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

        quarter = Console.ReadLine()

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

        dime = Console.ReadLine()

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

        nickle = Console.ReadLine()

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

        pennie = Console.ReadLine()

        quarter = quarter *0.25                     'Calculations 

        dime = dime *0.10 

        nickle = nickle *0.05

        pennie = pennie *0.01

        total = quarter + dime + nickle + pennie

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

    End Sub

End Module