Imports System, Microsoft.VisualBasic

'Aleister Morales

'10/29/20

'Discount Program

​

​

Public Module Module1

    Public Sub Main()

        Const TAX_RATE As Single = 0.06625                           'declare variables

        Dim cost, discount, subtotal, salesTax, finalCost As Single

        Console.WriteLine("Enter total cost of items: ")         'get user input

        cost = Console.ReadLine()

        discount = 0.2 * cost                              'calculate

        subtotal = cost - discount

        salesTax = subtotal * TAX_RATE

        finalCost = subtotal + salesTax

        Console.WriteLine("Discount: " & FormatCurrency(discount))    'output

        Console.WriteLine("Subtotal: " & FormatCurrency(subtotal))

        Console.WriteLine("Sales tax: " & FormatCurrency(salesTax))

        Console.WriteLine("Final cost: " & FormatCurrency(finalCost))

    End Sub

End Module