Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim totalnumitems As Integer

        Dim numberofbids(totalnumitems) As Integer

        Dim itemnum(totalnumitems) As Integer

        Dim description(totalnumitems) As String

        Dim reserveprice(totalnumitems) As Integer

        Dim spin As Integer

​

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

        totalnumitems = Console.ReadLine()

        totalnumitems = totalnumitems - 1

​

        ReDim numberofbids(totalnumitems)

        ReDim itemnum(totalnumitems)

        ReDim description(totalnumitems)

        ReDim reserveprice(totalnumitems)

​

        For spin = 0 To totalnumitems

            Console.WriteLine("item num")

            itemnum(spin) = Console.ReadLine()

            Console.WriteLine("description")

            description(spin) = Console.ReadLine()

            Console.WriteLine("reserve price")

            reserveprice(spin) = Console.ReadLine()

            numberofbids(spin) = numberofbids(spin) + 0

        Next spin

​

        Dim currentbid(totalnumitems) As Integer

        Dim buyerid(totalnumitems) As Integer

        Dim buyerbid(totalnumitems) As Integer

        Dim moretobid As Boolean

        Dim itemtobid As Integer

        Dim marker As Integer

        Do

            Console.WriteLine("Enter item number to place your bid on")

            itemtobid = Console.ReadLine()

            marker = 0

            For spin = 1 To totalnumitems

                If itemnum(spin) = itemtobid Then

                    Console.WriteLine("------------------------------------------------")

                    Console.Write("->Item number: {0}", itemnum(spin)) : Console.Write("->Current bid for item: {0}", currentbid(spin))

                    Console.WriteLine("->Description of item: {0}", description(spin))

                    Console.WriteLine("------------------------------------------------")

                    Console.WriteLine("Enter your buyer Id")

                    buyerid(spin) = Console.ReadLine()

                    Console.WriteLine("Enter your bid for this Item")

                    buyerbid(spin) = Console.ReadLine()

                    numberofbids(spin) = numberofbids(spin) + 1

                    marker = 1 ' set marker to 1

                    If buyerbid(spin) > currentbid(spin) Then

                        buyerbid(spin) = currentbid(spin)

                    ElseIf buyerbid(spin) <= currentbid(spin) Then

                        Console.WriteLine("Your bid must be higher than the current bid value")

                        Console.WriteLine("Please re-enter your bid")

                        buyerbid(spin) = Console.ReadLine()

                        buyerbid(spin) = currentbid(spin)

                    End If

                End If

            Next

​

            If marker = 0 Then

                Console.WriteLine("Item not found")

            End If

​

    Console.WriteLine("There are more items to bid. Enter True to bid, False to end")

            moretobid = Console.ReadLine()

        Loop

    End Sub

End Module