Imports System

​

Public Module Module1

​

    Public Sub Main()

        'Ask the user for number of rows, columns, and a character and then print out a table with that size using character they specified

        'ex: xxxx

        'xxxx

        Dim r as Integer

        Dim c as Integer

        Dim ch as Integer

        Console.WriteLine("Pick how many rows there should be")

         r = Console.ReadLine()

        Console.WriteLine("Pick how many columns there should be")

         c = Console.ReadLine()

        Console.WriteLine("Pick how big the character is")

         ch = Console.ReadLine()

        for r = 1 to 10

            for c = 1 to 10

                for ch = 1 to 10

                    Console.Write(r)

                    Console.Write(r)

                next

            next

​

            Console.WriteLine()

        next

    End Sub

End Module

​