Imports System

Public Module Module1

    Public Sub Main()

        dim search as string = 0

        dim number_of_bids as integer = 0

        dim current_highest_bid as decimal= 0

        dim buyer_number as decimal = 0

        dim number_of_item as integer = 0   

        dim item_number as decimal = 0  

        dim item_description as string = 0 

        dim bid as decimal = 0

        for i = 1 to number_of_item

        console.writeline ("input item_number")

        search = console.readline()

        console.writeline ("input item_description")

        search = console.readline()

        console.writeline ("current_highest_bid")

        search = console.readline()

        if item_number = search , item_description = search , current highest bid = search then 

            console.writeline("input buyer number ")

            buyer_number = console.readline ()

            console.writeline("input bid")

            bid = console.readline()

            if bid > current_highest_bid then

                number_of_bids = number_of_bids + 1

                end if

            end if

        next i

End Sub

End Module