Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim flag as integer

        dim weight as decimal

        dim length as decimal

        dim width as decimal

        dim height as decimal

        dim total as decimal

        console.writeline("enter dimensions of parcel (L,W,H) and weight of parcel")

        console.write("length: ") : length = console.readline()

        console.write("width: ") : width = console.readline()

        console.write("height: ") : height = console.readline()

        console.write("weight: ") : weight = console.readline()

        select case length

            case is > 80

                console.writeline("length exceeds 80cm")

            case is < 0

                console.writeline("length cannot be 0cm")

        end select

​

        select case width

            case is > 80

                console.writeline("width exceeds 80cm")

            case is < 0

                console.writeline("width cannot be 0cm")

        end select

​

        select case height

            case is > 80

                console.writeline("height exceeds 80cm")

            case is < 0

                console.writeline("height cannot be 0cm")

        end select

​

        if weight > 10 then

            console.writeline("weight exceeds 10kg")

        else if weight < 1 then

            console.writeline("weight cannot be below 1kg")

        end if

​

        total = length + width + height

        console.write("total dimension is: ") : console.writeline(total)

        if total > 200 then

            console.writeline("dimensions exceed 200cm")

        end if

​

        if flag = flag > 1 then

            console.writeline("rejected")

        else

            console.writeline("accepted")

        end if

    End Sub

End Module

​