Imports System, Microsoft.VisualBasic

'Hollister

'Delivery prgram

'11/29/2021

​

Public Module Module1

    Public Sub Main()

​

        Dim packageWeight As Single

        Dim mailSpeed As Char

        Dim shippingPrice As Single              'Variables

        Console.WriteLine("Enter your package weight")

        packageWeight = Console.ReadLine()

        Console.WriteLine("What speed would you like your package to be delivered at ((p)riority or (E)xpress)?")            'input

        mailSpeed = Console.ReadLine()

        If mailSpeed = "P" Then

            If packageWeight <= 8 Then

                shippingPrice = 5.95

            ElseIf packageWeight > 8 AND packageWeight <= 16 Then

                shippingPrice = 7.95

            ElseIf packageWeight > 16 Then

                shippingprice = 7.95 + (packageWeight - 16) * 0.30                         'calculations

                End If

        ElseIf mailSpeed = "E" Then

            If packageWeight <= 16 Then

                shippingPrice = 15.95

            Elseif packageWeight > 16

                shippingprice = 10.95 * math.Ceiling(packageWeight / 16)

            End If

        End If

        Console.WriteLine("Your shipping price is " & FormatCurrency(shippingPrice))                    'output

    End Sub

End Module