Module Module1

Sub Main()
Dim X As Integer
X = 5
For A = 1 To 5
Console.Write(Space(X))
For B = A To 1 Step -1
Console.Write(” *”)
Next B
X = X – 1
Console.WriteLine(” “)
Next A
End Sub

End Module