Imports System
Public Class WriteIsoscelesTriangleOnScreen_VB_NET
Public Shared Sub Main()
Dim n As Integer = 7
For i As Integer = 1 To n Step 2
For k As Integer = (n - i) / 2 To 0 step -1
Console.Write(" ")
Next
For j As Integer = 1 To i
Console.Write("*")
Next
Console.WriteLine()
Next
End Sub
End Class
' run:
'
' *
' ***
' *****
' *******
'