Imports System, Microsoft.VisualBasic

'Tanush Mendhirata

'11-29-21

'Delivery Program

Public Module Module1

    Public Sub Main()

        'Step One: Declare Variables 

        Dim packageWeight As Single 

        Dim shippingType As Char

        Dim total As Single

        'Step Two: User Input

        Console.WriteLine("Enter the weight of your package: ")

        packageWeight = Console.ReadLine()

        Console.WriteLine("Please enter if you would like priority shipping (P) or express shipping (E): ")

        shippingType = Console.ReadLine()

        'Step Three: Calculations

        If shippingType = "P" Then 

            If packageWeight <= 8 Then 

                total = 5.95

            Else If packageWeight > 8 And packageWeight <= 16 Then

                total = 7.95

            Else If packageWeight > 16 Then

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

            End If

        Else If shippingType = "E" Then

            If packageWeight <= 16 Then

                total = 15.95

            Else If packageWeight > 16 Then

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

            End If 

        End If              

        'Step Four: Output

        Console.WriteLine("The shipping price is: " & FormatCurrency(total))

    End Sub

End Module