Imports System

Public Module Module1

    Public Sub Main()

        'Katie P

        Dim tooWide, tooHigh, tooDeep, wrongWeight, parcelRejected, wrongDimensions As Boolean

        Dim width, height, depth, weight, totalDimensions As Single

        Dim count, noOfParcels, noAccepted, noRejected As Integer

        Dim totalWeight As Single

​

        Console.Write("How many parcels in the consignment: ")

        noOfParcels = Console.ReadLine()

        For count = 1 To noOfParcels

            parcelRejected = False

​

            Console.Write("Enter the height of the parcel: ")

            height = Console.ReadLine

            If height > 80 Then

                parcelRejected = True

                tooHigh = True

                Console.WriteLine("The parcel is not within the height limit")

            Else

                Console.WriteLine("The parcel is within the height limit")

            End If

            Console.Write("Enter the width of the parcel: ")

            width = Console.ReadLine

            If width > 80 Then

                parcelRejected = True

                tooWide = True

                Console.WriteLine("The parcel is not within the width limit")

            Else

                Console.WriteLine("The parcel is within the width limit")

            End If

            Console.Write("Enter the depth of the parcel: ")

            depth = Console.ReadLine

            If depth > 80 Then

                parcelRejected = True

                tooDeep = True

                Console.WriteLine("The parcel is not within the depth limit")

            Else

                Console.WriteLine("The parcel is within the depth limit")

            End If

​

            totalDimensions = height + width + depth

            If totalDimensions > 200 Then

                wrongDimensions = True

                parcelRejected = True

                Console.WriteLine("The sum of the dimensions is not within the limit")

            Else

                Console.WriteLine("The sum of the dimensions is within the limit")

            End If

​

            Console.Write("Enter the weight of the parcel: ")

            weight = Console.ReadLine

            If weight < 1 Or weight > 10 Then

                parcelRejected = True

                wrongWeight = True

                Console.WriteLine("The parcel is not within the weight limit")

            Else

                Console.WriteLine("The parcel is within the weight limit")

            End If

​

            If parcelRejected = True Then

                noRejected = noRejected + 1

                Console.WriteLine("The parcel was rejected. This was because: ")

                If tooWide = True Then

                    Console.WriteLine("- The parcel was not within the width limit")

                End If

                If tooHigh = True Then

                    Console.WriteLine("- The parcel was not within the height limit")

                End If

                If tooDeep = True Then

                    Console.WriteLine("- The parcel was not within the depth limit")

                End If

                If wrongDimensions = True Then

                    Console.WriteLine("- The sum of the dimensions was not within the limit")

                End If

                If wrongWeight = True Then

                    Console.WriteLine("- The parcel was not within the weight limit")

                End If

            Else

                noAccepted = noAccepted + 1

                totalWeight = totalWeight + weight

                Console.WriteLine("The parcel was accepted")

            End If

        Next count

        Console.WriteLine(noAccepted & " parcel(s) accepted")

        Console.WriteLine("Total weight: " & totalWeight & "kg")

        Console.WriteLine(noRejected & " parcel(s) rejected")

        Console.Read()

    End Sub

End Module