Imports System, Microsoft.VisualBasic

'Jack Kelly

'11/10/21

'Printing Prices Program

​

Public Module Module1

    Public Sub Main()

        Dim numCopies As Integer        'Declare

        Dim pricePerCopy As Single

        Dim totalPrice As Single

        Console.Write("Please enter the number of copies: ")    'User Input

        numCopies = Console.ReadLine()

        If numCopies < 500 And numCopies > 0 Then       'Calculations

            pricePerCopy = .3

        ElseIf numCopies >= 500 And numCopies < 750 Then

            pricePerCopy = .28

        ElseIf numCopies >= 750 And numCopies <1000 Then

            pricePerCopy = 0.27

        ElseIf numCopies >= 1000 Then

            pricePerCopy = .25

        Else 

            Console.WriteLine("Invalid number of copies")

        End If

        totalPrice = numCopies * pricePerCopy

        Console.WriteLine("Price per Copy: " & FormatCurrency(pricePerCopy))    'Output

        Console.WriteLine("Total Price: " & FormatCurrency(totalPrice))

    End Sub

End Module