Imports System,Microsoft.VisualBasic

'Harini Durairaj'

'10/19/21

'total change program'

Public Module Module1

    Public Sub Main()

        'declare variables (1)

        Dim quarters As Single  

        Dim dimes As Single 

        Dim nickels As Single 

        Dim pennies As Single 

        Dim total As Integer

        dim remainder As Integer 

        'get user input (2)

        Console.WriteLine("Enter the total: ") 

        total = Console.ReadLine()

        'calculations

        quarters = total \ 25

        total = total Mod 25 

        dimes = total \ 10

        total = total Mod 10 

        nickels = total \ 5

        remainder = total Mod 5

        pennies = total \ 1

        total = total Mod 1

        'output

        Console.WriteLine("quarters = " & quarters )

        Console.WriteLine("dimes = " & dimes )

        Console.WriteLine("nickels = " & nickels )

        Console.WriteLine("pennies = " & pennies ) 

​

    End Sub

End Module