Imports System, Microsoft.VisualBasic

'Ruchir Rao'

'11/30/21'

'Delivery Program'

Public Module Module1

    Public Sub Main()

        Dim shipRate As Char    'Variables'

        Dim packageweight As Single

        Dim finalCost As Single

        Console.Write("enter your package's weight in ounces: ") 'UserInputs'

        packageWeight=console.ReadLine()

        Console.Write("Enter your shipping rate here P for priority and E for Express: ")

        ShipRate=console.ReadLine()

        If shipRate = "P" Then 'Calculations'

            If packageWeight <= 8 and Packageweight >0 Then

                finalCost=5.95

            ElseIF packageWeight > 8 and packageweight <16 Then

                finalCost = 7.95

            ElseIf Packageweight > 16 Then

                finalCost = 7.95 + ((packageWeight-16)*0.30)

            End If 

        ElseIF shipRate="E" Then

            If packageWeight <=16 and packageWeight >0 Then

                FinalCost = 15.95

            ElseIF PackageWeight > 16 Then

                finalCost=10.95*Math.ceiling(packageWeight/16)

            End IF

        End If

        Console.WriteLine("shipping Price: " & formatCurrency(finalCost))

    End Sub

End Module