'Owen Chin

'This program displays "a discounted price" 

'10/27/20

​

Imports System, Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        const TAX_RATE as decimal = 0.06625

        Dim discount, subtotal, salesTax, finalCost, input as decimal

        Console.Write("Enter total cost of items: ")

        input = Console.ReadLine()

        discount = input * 0.20

        subtotal = input - discount

        salesTax = subtotal * TAX_RATE

        finalCost = salesTax + subtotal

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

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

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

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

​

    End Sub

End Module