Imports System

​

Public Module Module1

​

    Public Sub Main()

        DIM Weight, Length, Width, Price as Integer

        console.writeline("Oversized Baggage Calculator")

        Console.WriteLine("Enter Weight")

        Weight = Console.ReadLine()

        Console.WriteLine("Enter Length and Width (cm) respectively")

        Length = Console.ReadLine()

        Width = Console.ReadLine()

        if Weight < 10 and Length <= 40 and Width <= 30 then

            Price = 0 

            console.writeline("Price " & Price)

        elseif Weight > 10 and Weight < 20 and Length > 40 and Length <= 60 and Width > 30 and Width <= 40 then

            Price = 50

            console.writeline("Price " & Price)

        elseif Weight > 20 and Weight < 100 and Length <= 150 and Width <=150 then

            Price = (Weight-10) * 10

            console.writeline(Price & "£ Extra Charge")

        elseif Weight > 100 then

            console.WriteLine("Error: Not Allowed In The Flight")

            end if

    End Sub

End Module

​