Imports System

Public Module Module1

    Public Sub Main()

        Const NumItems As Integer = 10

        Dim Itemnumbers(NumItems) As Integer

        Dim ReservePrice(NumItems) As Double 

        Dim ProductDescription(NumItems) As String

        For i = 1 To Numitems 

        ItemNumbers(i) = i 'Automatically assigns a unique item number

        Console.Writeline("ITEM-" & ItemNumbers(i))

        Console.Writeline("Please enter Description for the product")

        ProductDescription(i) = Console.Readline()

        Console.Writeline("Please enter the Reserve Price for the Product")

        ReservePrice(i)=Console.Readline()

    Next

    console.clear

    End Sub

End Module      

​

​