Imports System

Public Module Module1

    Public Sub Main()

        dim TilePrice() as decimal = {19.50,25.95,35.75,12.50,11.00,52.95,65.00,58.98,85.00,62.75}

        dim TileDescription() as 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"}

        dim TileID() as string = {"SBG","SGM","SPB","MSY","MBR","MGP","LOW","LBG","LBR","LWM"}

        dim wallHeight as integer

        dim wallWidth as integer

        dim wallArea as integer

        dim choosenID as integer

        dim wallCount as integer

        dim totalPrice as decimal

        dim extraPercent as decimal

        for i = 0 to 9

        console.WriteLine("Tile ID: " & TileID(i) & " | " & "Tile Description: " & TileDescription(i) & " | " & "Tile Price: " & TilePrice(i))  

        Next

        console.WriteLine("Please input the height of your wall: ")

        wallHeight = console.ReadLine()

        if wallHeight < 0 or wallHeight > 100

            console.WriteLine("Invalid Input")

        End if

        console.WriteLine("Please input the width of your wall: ")

        wallWidth = console.ReadLine()

        if wallWidth < 0 or wallWidth > 100

            console.WriteLine("Invalid Input")

        End if  

        console.WriteLine("Please input the ID of your Tile: ")

        Select case console.ReadLine()

            Case "SBG"

                choosenID = 0

            Case "SGM"

                choosenID = 1

            Case "SPB"

                choosenID = 2       

            Case "MSY"

                choosenID = 3

            Case "MBR"

                choosenID = 4

            Case "MGP"

                choosenID = 5

            Case "LOW"

                choosenID = 6       

            Case "LBG"

                choosenID = 7

            Case "LBR"

                choosenID = 8

            Case "LWM"

                choosenID = 9

        End Select

        console.WriteLine("How many walls would you like to tile?")

        wallCount = console.ReadLine()

        wallArea = wallWidth * wallHeight * wallCount

        console.Write("Add an extra percent to account for wastage(Put 0 for none extra)")

        extrapercent = console.readline() + 1

    totalPrice = wallArea * TilePrice(choosenID) * extrapercent

    End Sub

End Module