'Jason Nacionales

'10/21

'GetCoins Program

​

Imports System

Public Module Module1

    Public Sub Main()

        Dim quarters, dimes As Integer 'declare variables

        Dim nickels, pennies As Integer

        Dim cents As Integer

        Console.Write("Enter number of cents: ") 'user input

        cents = Console.ReadLine()

        quarters = cents \ 25 'calculations

        cents = cents mod 25

        dimes = cents \ 10

        cents = cents mod 10

        nickels = cents \ 5

        cents = cents mod 5

        pennies = cents

        Console.WriteLine("Quarters: " & quarters) 'output

        Console.WriteLine("Dimes: " & dimes)

        Console.WriteLine("Nickels: " & nickels)

        Console.WriteLine("Pennies: " & pennies)

    End Sub

End Module