vb用星号打印倒直角三角形求解

Question

求这个怎么打以及原理

Answer 1

Private Sub Command1_Click()

  For i = 0 To 8        '共打印9行

    For j = 1 To i

      Print " ";    '每行上先打印i个空格

    Next j

    For j = 1 To 9 - i

      Print "*";        '再打印9-i个*号

    Next j

    Print        '一行打印结束就换行

  Next i

End Sub