Imports System, Microsoft.VisualBasic

'Tanush Mendhirata

'11/10/21

'Printing Prices Program

Public Module Module1

    Public Sub Main()

        'Step One: Declare Variables 

        Dim copies As Integer

        Dim pricePerCopy As Single 

        Dim total As Single 

        'Step Two: User Input

        Console.WriteLine("Please enter the amount of copies purchased")

        copies = Console.ReadLine()

        'Step Three: Calculations

    Select Case copies

        Case Is >= 1000 

            pricePerCopy = 0.25

        Case 750 To 999 

            pricePerCopy = 0.27

        Case 500 To 749 

            pricePerCopy = 0.28

        Case 0 To 499 

            pricePerCopy = 0.30

        End Select 

        total = copies * pricePerCopy

        'Step Four: Output

        Console.WriteLine("Your price is " & FormatCurrency(pricePerCopy)) 

        Console.WriteLine("The total price is " & FormatCurrency(total))            

    End Sub

End Module