vb.net打三角星程序

这是我用vb.net写的第一个程序 

Sub Main()
        Dim n As Integer = 5
        Dim i, j, k As Integer
        For i = 1 To n
            For k = 1 To n - i
                Console.Write(" ")
            Next
            For j = 1 To 2 * i - 1
                Console.Write("*")
            Next
            Console.Write(vbCrLf)
        Next
        Console.ReadLine()
    End Sub 

运行结果：

    *
   ***
  *****
 *******
*********