Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim bidnum as integer = 0

        dim item as integer

        dim buyernum as decimal

        dim bid as decimal

        dim answer as string

        dim searchitem as integer

        dim totalfee as decimal

        dim aucfee as decimal

        dim soldcount as integer

        dim unsoldcount as integer

        dim nobidcount as integer

        console.writeline("How many items are present for the auction?")

        item = console.readline()

        while item < 2

            console.writeline("Error. There should be at least 10 items.")

            item = console.readline()

        end while

​

        console.writeline(" ")

        dim itemnum(item) as integer

        dim desc(item) as string

        dim resprice(item) as decimal

        dim maxbid(item) as decimal

        dim status(item) as string

        for i = 1 to item

            console.writeline("Item " & (i))

            console.writeline("Enter the item number")

            itemnum(i) = console.readline()

            console.writeline("Enter the description")

            desc(i) = console.readline()

            console.writeline("Enter the reserve price")

            resprice(i) = console.readline()

            console.writeline(" ")

        next

​

        for x = 1 to item

            console.writeline("Item " & (x))

            console.writeline("Item Number= " & itemnum(x))

            console.writeline("Description= " & desc(x))

            console.writeline("Reserve Price= " & resprice(x))

            console.writeline(" ")

        next

​

        console.writeline("Does a buyer want to bid for an item? (yes/no)")

        answer = console.readline()

​

        while answer = "yes"

            console.writeline("Enter the item number of the item the buyer would like to view")

            searchitem = console.readline()

            for y = 1 to item

                if searchitem = itemnum(y) then

                    console.writeline(" ")

                    console.writeline("Item Number= " & itemnum(y))

                    console.writeline("Description= " & desc(y))

                    console.writeline("Reserve Price=" & resprice(y))

                    console.writeline("Current Maximum Bid= " & maxbid(y))

                    console.writeline(" ")

                    if searchitem <> itemnum(y)

                        console.writeline("Item not found")

                        console.writeline("Enter the item number of the item the buyer would like to view")

                        searchitem = console.readline()

                    end if

​

                    console.writeline("Enter the buyer number")

                    buyernum = console.readline()

                    console.writeline("Enter the buyer's bid")

                    bid = console.readline()

                    console.writeline(" ")

                    if bid > maxbid(y) then

                        maxbid(y) = bid

                        bidnum = bidnum + 1

                        console.writeline("Item Number= " & itemnum(y))

                        console.writeline("Description= " & desc(y))

                        console.writeline("Reserve Price= " & resprice(y))

                        console.writeline("Current Maximum Bid= " & maxbid(y))

                    else if bid < maxbid(y) then

                        console.writeline("Bid is not high enough")

                    end if

​

                    console.writeline(" ")

                    console.writeline("Does a buyer want to bid again? (yes/no)")

                    answer = console.readline()

                end if

            next

        end while

​

        if answer = "no" then

            console.writeline(" ")

            console.writeline("End of bidding")

        end if

​

        'TASK 3

        for s = 1 to item

            if maxbid(s) > resprice(s) then

                status(s) = "sold"

                soldcount = soldcount + 1

                aucfee = 10 / 100 * maxbid(s)

                totalfee = totalfee + maxbid(s) + aucfee

            else if maxbid(s) > 0 and maxbid(s) < resprice(s) then

                status(s) = "unsold"

                unsoldcount = unsoldcount + 1

            else if maxbid(s) = 0 then

                status(s) = "no bid"

                nobidcount = nobidcount + 1

            end if

        next

​

        console.writeline(" ")

        for d = 1 to item

            if status(d) = "unsold"

                console.writeline("UNSOLD")

                console.writeline("Item Number= " & itemnum(d))

                console.writeline("Final Bid= " & maxbid(d))

                console.writeline(" ")

            else if status(d) = "no bid"

                console.writeline("NO BIDS")

                console.writeline("Item Number= " & itemnum(d))

                console.writeline(" ")

            end if

        next

​

        console.writeline(" ")

        console.writeline("Total Fee= " & totalfee)

        console.writeline("Number of Sold Items= " & soldcount)

        console.writeline("Number of Unsold Items= " & unsoldcount)

        console.writeline("Number of items with no bids= " & nobidcount)

    End Sub

End Module

​