Imports System

Public Module Module1

    Public Sub Main()

        Dim tile(9) as string

        Dim priceperbox(9) as decimal 

        tile = New String() {"Small black granite", "Small grey marble", "Small powder blue", "Medium sunset yellow", "Medium berry red", "Medium glitter purple", "Large oak wood effect", "Large black granite", "Large bamboo effect", "Extra-large white marble"}

        priceperbox= New Decimal() {19.50, 25.95, 35.75, 12.50, 11.00, 52.95, 65.00, 58.98, 85.00, 62.75}

        For i as integer= 0 to 9

        Console.WriteLine(i+1:)

    next

    End Sub

End Module