'E. Wong

'This program will calculate the shipping price of a package

'11/23/20

​

Imports System, Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Dim packageWeight, shippingPrice as Single

        Dim priorityOrExpress as Char

        Console.Write("Enter Package Weight (In Ounces): ")

        packageWeight = Console.ReadLine()

        Console.Write("Priority (P) or Express (E): ")

        priorityOrExpress = Console.ReadLine()

        If priorityOrExpress = "P" then

            If packageWeight > 16

            shippingPrice = 7.95 + (packageWeight - 16)*.3 

            ElseIf packageWeight > 8 and priorityOrExpress = "P" then

            shippingPrice = 7.95

            ElseIf packageWeight <= 8 and priorityOrExpress = "P" then

            shippingPrice = 5.95

            End If

        ElseIf priorityOrExpress = "E" then

            If packageWeight > 16 and

            shippingPrice = Math.Ceiling(packageWeight/16)*10.95

            ElseIf packageWeight <= 16 and priorityOrExpress = "E" then

            shippingPrice = 15.95

            End If

        End If

        Console.WriteLine("Shipping Price: " & FormatCurrency(shippingPrice))

    End Sub

End Module