Sub Main() Dim i As Integer For i = 1 To 5 Console.WriteLine(New String(" ", 5 - i) & New String("*", i * 2 - 1)) Next Console.ReadKey() End Sub
