Imports System, Microsoft.VisualBasic

'Logan Reisbord

'Delivery Program 

'11/30/21

Public Module Module1

    Public Sub Main()

        Dim weight as Single

        Dim deliveryType as Char                        'declare Variables

        Dim cost as Single

        Console.WriteLine("Enter Package weight (oz)")

        weight = Console.Readline()

        Console.WriteLine("Would you like to ship piority (P) or express (E)")      'Use Input

        deliveryType = Console.ReadLine()

        If deliveryType = "P" or deliveryType = "p" Then

            If weight <= 8 then 

                cost = 5.95

            ElseIf weight >= 8 And weight <= 16 Then

                cost = 7.95

            ElseIf weight > 16 Then 

                cost = 7.95 + (weight - 16) * 0.3

            End If

        ElseIf deliveryType = "E" or deliveryType = "e" Then                    'Calculations

            If weight <= 16 Then 

                cost = 15.95

            ElseIf weight > 16 Then

                cost = Math.Ceiling(weight/16) * 10.95

            End If

        End If

        console.WriteLine("Shipping Price: " & FormatCurrency(cost))            'Output

    End Sub

End Module

​

​

​

​

​