Imports System
Public Class Program
Friend Shared Sub generateFloydTriangle(ByVal rows As Integer)
Dim number As Integer = 1
For i As Integer = 1 To rows
For j As Integer = 1 To i
Console.Write(number & " ")
number += 1
Next
Console.WriteLine()
Next
End Sub
Public Shared Sub Main(ByVal args As String())
generateFloydTriangle(6)
End Sub
End Class
' run:
'
' 1
' 2 3
' 4 5 6
' 7 8 9 10
' 11 12 13 14 15
' 16 17 18 19 20 21
'