'Owen Chin

'This program displays "if a package is too heavy or too large"

'11/16/20

​

​

Imports System

Public Module Module1

    Public Sub Main()

        Dim weight, length, width, height, volume As Integer

        Dim display As String

        Console.Write("Enter package weight: ")

        weight = Console.ReadLine()

        Console.Write("Enter package length: ")

        length = Console.ReadLine()

        Console.Write("Enter package width: ")

        width = Console.ReadLine()

        Console.Write("Enter package height: ")

        height = Console.ReadLine()

        volume = length * width * height

        If volume <= 100000 And weight <= 27 Then

            display = "Package accepted"

        ElseIf volume > 100000 And weight <= 27 

            display = "Rejected: Package too large"

        ElseIf volume <= 100000 And weight > 27 

            display = "Rejected: Package too heavy"

        ElseIf volume > 100000 And weight > 27 

            display = "Rejected: Package too large and too heavy"

        End If

        Console.WriteLine(display)

    End Sub

End Module

​