Imports System 

'Alex Gonzalez

'11/11/21

'Printing Prices

Public Module Module1

    Public Sub Main()

        Dim pricePerCopy As Char

        Dim numCopies As Single

        Dim totalPrice As Integer

        Console.WriteLine("Enter Number of Copies: ")

        numCopies = Console.ReadLine()

        If numCopies <= 500 Then

            pricePerCopy = "0.30"

        ElseIf numCopies >= 500 And numCopies <= 749 Then

            pricePerCopy = "0.28"

        ElseIf numCopies >= 750 And numCopies <= 999 Then

            pricePerCopy = "0.27"

        Else

            pricePerCopy = "0.25"

        End If

        totalPrice = numCopies * pricePerCopy

        Console.WriteLine("Price per copy: " & totalPrice)

        Console.WriteLine("Total Price: " & pricePerCopy)

    End Sub

End Module