Imports System, Microsoft.VisualBasic

'Aparajit Kannan'

'Printing Prices'

'11/11/2021'

Public Module Module1

    Public Sub Main()

        Dim numCopies As Integer

        Dim pricePerCopy As Single       'Step 1: Declare Variables'

        Dim totalPrice As Single

        Console.WriteLine("Enter a number of copies: ") 'Step 2: User input'

        numCopies= Console.ReadLine()

        If numcopies < 500 Then

            pricePerCopy= 0.30

        ElseIf numCopies >= 500 and numCopies <= 749 Then

            pricePerCopy= 0.28                              'Step 3: Calculations'

        ElseIf numCopies >= 750 and numCopies <= 999 Then 

            pricePerCopy = 0.27

        ElseIf numCopies >= 1000 Then

            pricePerCopy= 0.25

        End If

        totalPrice= numCopies * pricePerCopy

        Console.WriteLine("Price per copy: " & FormatCurrency(pricePerCopy))

        Console.WriteLine("Total price: " & FormatCurrency(totalPrice))          'Step 4: Output'

    End Sub

End Module