Imports System

​

Public Module Module1

​

    Public Sub Main()

        'Task1.

        Console.WriteLine("How many items to be listed?")

        Dim itemListing = Console.ReadLine()

        While itemListing < 10

            Console.WriteLine("The items to be listed must be more then 10")

            itemListing = Console.ReadLine()

        End While

            Dim arrayItemIndex = itemListing - 1 ' fix the indexing issue of array's as they start from 0-... not 1-...

        dim flag = false

        while flag = false

            'Retrive data from the user

            Dim itemNumber(arrayItemIndex) As integer

            Dim itemDescription(arrayItemIndex) As String

            Dim itemreservePrice(arrayItemIndex) As Double

            For listing As integer = 0 To arrayItemIndex

                flag = true 'set the flag before hand. 

                Console.WriteLine("Listing Number:" + ((listing + 1).ToString()))

                Console.WriteLine("Enter a unique Item Number")

                itemNumber(listing) = Convert.ToInt32(Console.ReadLine())

                if listing > 0 then 'run this after the first entry. Will check for any duplicates

                    if itemNumber(listing) = itemNumber(listing - 1) then

                        Console.WriteLine("Duplicate Entry found.")

                        Console.WriteLine("Terminating. Re-enter Info")

                        flag = false 'set to false if anything goes wrong

                        Exit For 'Leave the main for loop

                    End if

                End if

​

                'non sensitive data

                Console.WriteLine("Enter description for the item")

                itemDescription(listing) = Console.ReadLine()

                Console.WriteLine("Enter reserve price for the item")

                itemreservePrice(listing) = Convert.ToDouble(Console.ReadLine())

            Next

        End While

    'Task 2. Buyer

    'Print out all the listings which the user can view.

    For listingA As Integer = 0 To arrayItemIndex

    Next

    Console.WriteLine("Enter the listing number")

    End Sub

End Module

​