Reviewing code designed for an interactice auction board

I have an exam and the pre release asks us to create a program for an interactive board for an auction. The tasks are attached as a link. I have completed the code and wanted someone to check it for me (my teachers are not good :/ ) if I have done everything correctly and are there any ways in which the code can be made more efficient. Done in console.

'Task 1' Dim enteries, d As Integer d = 1  Console.WriteLine("How many total entries?") enteries = Console.ReadLine While enteries < 10     Console.WriteLine("Number of enteries should be greater than 10, please try again")     enteries = Console.ReadLine End While Dim item_num(enteries), num_bids(enteries) As Integer Dim reserve_price(enteries) As Single Dim description(enteries) As String For c = 1 To enteries     Console.WriteLine("Enter item description")     description(c) = Console.ReadLine     Console.WriteLine("Enter the item number")     item_num(c) = Console.ReadLine     Console.WriteLine("Enter reserve price") 'The reserve price is the minimum amount the seller is willing to accept'      reserve_price(c) = Console.ReadLine     num_bids(c) = 0 Next For c = 1 To enteries     For d = 1 To enteries - 1         If item_num(d) = item_num(d + 1) Then             While item_num(d) = item_num(d + 1)                 Console.Write("Value " & d + 1)                 Console.WriteLine(" Is duplicate, enter a new value")                 item_num(d + 1) = Console.ReadLine             End While         End If     Next Next 'Task 2' Dim buyer_num(enteries) As Integer Dim bid(enteries), highest(enteries) As Single Dim extra_bids As String For c = 1 To enteries     Console.WriteLine("Enter number of the item from 1-" & enteries)     d = Console.ReadLine     Console.WriteLine("Product is: " & description(d))     Console.WriteLine("Item number is: " & item_num(d))     Console.WriteLine("Current highest bid: " & bid(d))     Console.WriteLine("Enter buyer number")     buyer_num(d) = Console.ReadLine     Console.WriteLine("Enter your bid")     bid(d) = Console.ReadLine     If bid(d) > highest(d) Then         highest(d) = bid(d)     End If     num_bids(d) = num_bids(d) + 1     Console.WriteLine("Make more bids? Enter Yes/No")     extra_bids = Console.ReadLine     While extra_bids = "Yes"         Console.WriteLine("Current highest bid is " & highest(c))         Console.WriteLine("Enter bid")         bid(d) = Console.ReadLine         If bid(d) > highest(d) Then             highest(d) = bid(d)         Else             While bid(d) < highest(d)                 Console.WriteLine("Bid cannot be less than the previous bid, please enter a higher value")                 bid(d) = Console.ReadLine             End While             highest(d) = bid(d)         End If         Console.WriteLine("Make more bids? Enter Yes/No")         extra_bids = Console.ReadLine     End While Next 'Task 3' Dim final_price(enteries), comp_fee(enteries), total_fee As Single Dim items_sold, not_sold, no_bids As Integer Dim sold_status(enteries) As String For c = 1 To enteries     If highest(c) >= reserve_price(c) Then         sold_status(enteries) = "Sold"         comp_fee(c) = 10 / 100 * highest(c)         final_price(c) = highest(c) + comp_fee(c)         total_fee = total_fee + final_price(c)         items_sold = items_sold + 1      Else         not_sold = not_sold + 1         Console.WriteLine(item_num(c) & " Did not reach reserve price")         Console.WriteLine("Their final bid was " & highest(c))     End If     If num_bids(c) = 0 Then         Console.WriteLine(item_num(c) & "recieved no bids")         no_bids = no_bids + 1     End If Next Console.WriteLine("Total fee for all sold items is " & total_fee) Console.WriteLine("Number of items sold = " & items_sold) Console.WriteLine("Number of items not sold = " & not_sold) Console.WriteLine("Number of items with no bids = " & no_bids) Console.ReadKey()![enter image description here]( 

In an auction, how might magic item collectors in other lands bid remotely?

There is no magic item retail in my world. Instead, common to rare items are often sold at special auctions curated by the Order of the Sphinx, a wizard guild. Typically, the items for sale at these auctions are old heirlooms from bankrupted lords, the spoils of war sold by the state for revenue, and the occasional relic unearthed by a lucky farmer tilling their field.

My campaign is set in a semi-backwater region that is not home to many magic users or magic items; it would not be uncommon for the monthly magic item auction to have nothing to bid on at all. But when a treasure does turn up, wealthy collectors and powerful wizards from far off lands bid by proxy.

I’m thinking a wealthy collector might give discretion to well-paid hirelings in major cities to seek out certain types of items, within a price range. Powerful mages, however, would likely use magic to participate remotely in these auctions. What type of magic could they use?

I am looking for RAW spells and magic items that could facilitate remote bidding. Two examples that come to mind are astral projection and sending stones, but I’d love to know other options too, for the sake of variety and flavor.

At some point I might homebrew an option, but I’d like to establish what the RAW baseline is first to avoid redundancy.

Bidders might be as far away as 5000 miles from the actual auction location.

Please consider the cost of your suggested remote bidding strategies. The items in question (again, only common to rare) are valued within the same ranges indicated on page 135 of the Dungeon Master’s Guide, so between 50gp and 5,000gp.