Number Triangle 2

Module numbers_2
    Sub Main()
        Dim i, j, n As Integer
        Console.Write("Enter the number of lines:")
        n = CInt(Console.ReadLine())
        For i = 1 To n
            For j = 1 To i
                Console.Write(i & " ")
            Next
            Console.WriteLine()
        Next
        Console.ReadLine()
    End Sub
End Module

Output

1

2 2

3 3 3

4 4 4 4

5 5 5 5 5