Imports System

​

'Omkar Iyer

'October 20, 2020

'TotalChange

​

Public Module Module1

    Public Sub Main()

        Dim quarters As Integer

        Dim dimes As Integer

        Dim nickels As Integer              'declaring variables

        Dim pennies As Integer

        Dim total As Single

        Console.Write("Enter number of quarters: ")

        quarters = Console.ReadLine()

        Console.Write("Enter number of dimes: ")            'prompt

        dimes = Console.ReadLine()                                  'user input

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

        nickels = Console.ReadLine()

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

        pennies = Console.ReadLine()

        total = 0.25 * quarters + 0.1 * dimes + 0.05 * nickels + 0.01 * pennies         'calculation

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

    End Sub

End Module