'Program Name: Package Check 2

'Author: Ryan Ottignon

'Date: 2021-11-15

​

Imports System

Public Module Module1

    Public Sub Main()

        'Step 1: Declare variables

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

        Dim output As String = "Package accepted" 'Accepted message

        Const WEIGHT_LIMIT = 27 'Weight limit in kilograms: 27kg

        Const VOLUME_LIMIT = 100000 'Volume limit in cubic centimeters: 100,000cm

        'Step 2: Get Input

        Console.Write("Enter package weight in kilograms: ")

        weight = Console.ReadLine()

        Console.Write("Enter package length in centimeters: ")

        length = Console.ReadLine()

        Console.Write("Enter package width in centimeters: ")

        width = Console.ReadLine()

        Console.Write("Enter package height in centimeters: ")

        height = Console.ReadLine()

        'Step 3: Calculations

        volume = length * width * height

        If weight > WEIGHT_LIMIT Then

            output = "Rejected: Too heavy"

        End If

        If volume > VOLUME_LIMIT Then

            If output = "Package accepted" Then

                output = "Rejected: Too large"

            Else

                output &= " and too large"

            End If

        End If

​

        'Step 4: Output

        Console.WriteLine(output)

    End Sub

End Module