'Aditya Bala

'11/16/20

'Printing Prices Program

Imports System, Microsoft.VisualBasic               

Public Module Module1

    Public Sub Main()

        Dim numCopies As Integer

        Dim pricePerCopy As Single                  'Declare Variables

        Dim totalPrice As Single 

​

        Console.Write("Enter number of copies: ")

        numCopies = Console.ReadLine()                      'Input 

​

        If numCopies >= 1000 Then

            pricePerCopy = 0.25

        Else If numCopies >= 750 And numCopies <1000 Then

            pricePerCopy = 0.27

        Else If numCopies >= 500 And numCopies < 750 Then

            pricePerCopy =  0.28

        Else If numCopies < 500 and numCopies > 0 Then                 'Calculate

            pricePerCopy = 0.30

        Else 

            numCopies = 0.00

        End If

        totalPrice = pricePerCopy * numCopies

​

​

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

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

    End Sub

End Module