Imports System
Public Class Program
Public Shared Sub Main()
Dim n As Integer = 0
For i As Integer = 4 To 0 + 1 step -1
For j As Integer = 0 To i - 1
Console.Write(n)
Next
Console.WriteLine()
n += 1
Next
End Sub
End Class
' run:
'
' 0000
' 111
' 22
' 3
'