Imports System

​

'Justin Carreno

'10/21/2021

'GetCoinsProgram

Public Module Module1

    Public Sub Main()

        Dim numberCents As Integer                                  '1 Decalre variables and assign values

        Dim numberQuarters As Integer = 25

        Dim numberDimes As Integer = 10

        Dim numberNickles As Integer = 5

        Dim numberPennies As Integer = 1

        Dim quarters As Integer

        Dim dimes As Integer

        Dim nickles As integer

        Dim pennies As Integer

        Console.WriteLine("Enter a valid number of cents: ")        '2 Get user input

        numberCents = Console.ReadLine()

        quarters = numberCents \ numberQuarters                     '3 Calculation

        numberCents = numberCents - (quarters * 25)

        dimes = numberCents \ numberDimes

        numberCents = numberCents - (dimes * 10)

        nickles = numberCents \ numberNickles

        numberCents = numberCents - (nickles * 5)   

        pennies = numberCents \ numberPennies

        Console.WriteLine("Quarters: " & quarters)                  '4 Output

        Console.WriteLine("Dimes: " & dimes)

        Console.WriteLine("Nickles: " & nickles)

        Console.WriteLine("Pennies: " & pennies)

    End Sub

End Module