'Jason Nacionales

'10/27

'Discount Program Part 2

​

Imports System, Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Const TAX_RATE as Single = 0.06625 'declare variables

        Dim cost, discount  as Single

        Dim subTotal, salesTax as Single

        Dim finalCost, discountRate as Single

        Console.Write("Enter total cost of all items: ") 'user input

        cost = Console.ReadLine

        Console.Write("Enter the discount percentage: ")

        discountRate = Console.ReadLine

        discountRate = discountRate * 0.01 'calculations

        discount = cost * discountRate

        subTotal = cost - discount

        salesTax = subTotal * TAX_RATE

        finalCost = cost - discount + 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