Module Module1
' Floyd's triangle is a right-angled triangular of natural numbers
Sub Main()
Dim i As Integer, j As Integer, rows As Integer = 7, n As Integer = 1
For i = 1 To rows
For j = 1 To i
Console.Write("{0} ", n)
n += 1
Next j
Console.WriteLine()
Next i
End Sub
End Module
' run:
'
' 1
' 2 3
' 4 5 6
' 7 8 9 10
' 11 12 13 14 15
' 16 17 18 19 20 21
' 22 23 24 25 26 27 28