Imports System, Microsoft.VisualBasic 

​

'Dhara Patel

'November 16, 2020

'Printing Price Program

Public Module Module1

    Public Sub Main()

        Dim numCopies As Integer

        Dim pricePerCopy As Single                                                              'Delcare the variable 

        Dim totalPrice As Single 

        Console.WriteLine("Enter the number of copies: ")                                       'Prompt the User 

        numCopies = Console.ReadLine()

        If numCopies > 0 And numCopies <= 500 Then 

            pricePerCopy = 0.30

        Else If numcopies >= 500 And numCopies <= 749 Then 

            pricePerCopy = 0.28 

        Else If numcopies >= 750 And numCopies <= 999 Then                                  'Calculation

            pricePerCopy = 0.27 

        Else 

            pricepercopy= 0.25

        End If 

        totalPrice = pricePerCopy * numCopies

        Console.WriteLine("Price Per Copy: " & FormatCurrency(pricePerCopy))

        Console.WriteLine("Total Price: " & formatCurrency(totalPrice))                         'Output

    End Sub

End Module