' SymbolGrid Example

' Write a subroutine to display a grid of symbols.

Imports System.Console
Public Module Module1

    Public Sub Main()
        DisplayGrid(7, 5, "%")
        ReadLine()
    End Sub

    Private Sub DisplayGrid(ByVal width As Integer, _
        ByVal height As Integer, ByVal symbol As String)

        Dim x, y As Integer
        For y = 1 To height
            For x = 1 To width
                Write(symbol)
            Next
            WriteLine()
        Next
    End Sub

End Module