Imports System, Microsoft.VisualBasic

'Mr.DiGiacomo

'11/11/20

'Printing Prices 

Public Module Module1

    Public Sub Main()

        Dim numCopies As Integer 

        Dim pricePerCopy As Single 

        Dim totalPrice As Single 

        Console.WriteLine("Please enter the number of copies:")

        numCopies = Console.ReadLine()

        If numcopies < 500 Then 

            pricePerCopy = .30

        ElseIf numCopies > 500 And numcopies <= 749 Then 

            pricePerCopy = .28

        ElseIf numCopies > 749 And numCopies <= 999 Then 

            pricePerCopy = .27

        Else 

            pricePerCopy = .25

        End If 

        totalPrice = numCopies * pricePerCopy

        Console.WriteLine("The price per copy is: " & FormatCurrency(pricePerCopy))

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

    End Sub

End Module