Imports System, Microsoft.VisualBasic

​

'Omkar Iyer

'October 28, 2020

'Discount

​

Public Module Module1

    Public Sub Main()

        Dim totalCost, discount, subTotal, salesTax, finalCost As Single        'declaring variables

        Const TAX_RATE As Single = 0.06625

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

        totalCost = Console.ReadLine()                                          'user input

        discount = 0.2 * totalCost

        subTotal = totalCost - discount

        salesTax = TAX_RATE * subTotal                                          'calculations

        finalCost = salesTax + subTotal

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

        Console.WriteLine("subTotal: " & FormatCurrency(subTotal))

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

        Console.WriteLine("finalCost: " & FormatCurrency(finalCost))            'outputs

    End Sub

End Module