Imports System

​

Public Module Module1

​

    Public Sub Main()

        'TASK ONE

        Dim totalitems as integer

        Console.WriteLine("Enter total number of items.")

        totalitems = Console.ReadLine()

        While totalitems < 10

            Console.WriteLine("There must be at least 10 items in the auction.")

            Console.WriteLine("Enter total number of items.")

            totalitems = Console.ReadLine()

        End While

​

        Dim item_number(totalitems) as string

        Dim description(totalitems) as string

        Dim reserve_price(totalitems) as decimal

        Dim num_bids(totalitems) as integer

        For counter = 1 to totalitems

            Console.WriteLine("Input item number.")

            item_number(counter) = Console.ReadLine()

            Console.WriteLine("Input item description.")

            description(counter) = Console.ReadLine()

            Console.WriteLine("Input reserve price.")

            reserve_price(counter) = Console.ReadLine()

            num_bids(counter) = 0

        Next

​

        'TASK TWO

        Dim bid As decimal

        Dim curhighbid(totalitems) as decimal

        Dim buyernum(totalitems) as string

        Dim numbids(totalitems) as integer

        Dim flag as boolean

        Dim continuebid as boolean

        Do

            Dim search as string

            Console.WriteLine("Enter item number.")

            search = Console.ReadLine()

            For counter = 1 to totalitems

                If item_number(counter) = search Then

                    flag = TRUE

                    Console.WriteLine("Item Number: {0}", item_number(counter))

                    Console.WriteLine("Description: {0}", description(counter))

                    Console.WriteLine("Current Highest Bid: {0} AED", curhighbid(counter))

                    Console.WriteLine("Enter Buyer Number")

                    buyernum(counter) = Console.ReadLine()

                    Console.WriteLine("Enter Bid")

                    bid = Console.ReadLine()

                    While bid <= curhighbid(counter)

                        Console.WriteLine("Bid must be greater than current highest bid")

                        Console.WriteLine("Enter big again")

                        bid = Console.ReadLine()

                    End While

​

                    curhighbid(counter) = bid

                    numbids(counter) = numbids(counter) + 1

                End If

            Next

​

            If flag = FALSE then

                Console.WriteLine("Item does not exist")

            End If

​

            Console.WriteLine("Do you want to continue bidding? Enter TRUE or FALSE")

            continuebid = Console.ReadLine()

        Loop Until continuebid = FALSE

​

        'TASK THREE

        Dim sold(totalitems) as boolean

        Dim totalfee as decimal

        Dim compfee(totalitems) as decimal

        Dim numsold as integer

        Dim zerobids as integer

        Dim numlowbid as integer

        For counter = 1 to totalitems

            If curhighbid(counter) >= reserve_price(counter) then

                sold(counter) = TRUE

                compfee(counter) =(curhighbid(counter) / 10)

                totalfee = totalfee + compfee(counter)

                numsold = numsold + 1

            ElseIf curhighbid(counter) = 0 then

                zerobids = zerobids + 1

                Console.WriteLine("This Item has not received any bids")

                Console.WriteLine("Item Number: {0}", item_number(counter))

            Else

                numlowbid = numlowbid + 1

                Console.WriteLine("This item has not met reserve price")

                Console.WriteLine("Item Number: {0}", item_number(counter))

                Console.WriteLine("Highest Bid: {0}", curhighbid(counter))

            End If

        Next

​

        Console.WriteLine("The total fee is {0} AED", totalfee)

        Console.WriteLine("Items Sold: {0}", numsold)

        Console.WriteLine("Items That Didn't Meet Reserve Price: {0}", numlowbid)

        Console.WriteLine("Items With No Bids: {0}", zerobids)

    End Sub

End Module

​