Imports System, Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Dim total As Single 

        Dim quarters As Integer    'Step 1: Declare variables

        Dim dimes As Integer

        Dim nickels As Integer

        Dim pennies As Integer

​

        Console.WriteLine("please enter the number of quarters: ")    'step 2: get user input

        quarters = Console.ReadLine()

        Console.WriteLine("please enter the number of dimes: ")    

        dimes = Console.ReadLine()

        Console.WriteLine("please enter the number of nickels: ")

        nickels = Console.ReadLine()

        Console.WriteLine("please enter the number of pennies: ")    

        pennies = Console.ReadLine()

        total = quarters *.25 + dimes *.10 + nickels * 0.05 + pennies *.01    'Step 3: calculations 

        Console.WriteLine("total =" & FormatCurrency(total))

​

    End Sub

End Module