Imports System

​

'Noah Tabor

'October 22nd, 2020

'GetCoins Program

​

Public Module Module1

    Public Sub Main()

        Dim numQuarters, numDimes, numNickels, numPennies As Integer                                                'Declare Variable

        Dim total As Single

        Console.Write("Please eneter the amount of quarters you have: ")                                            'Prompt the user

        numQuarters = Console.ReadLine()                                                                            'Allow user to enter value

        Console.Write("Please eneter the amount of dimes you have: ")

        numDimes = Console.ReadLine()

        Console.Write("Please eneter the amount of nickels you have: ")

        numNickels = Console.ReadLine()

        Console.Write("Please eneter the amount of pennies you have: ")

        numPennies = Console.ReadLine()

    End Sub

End Module