请问VB如何实现输出6x6三角形，请Clear_Zero回答

Question

本帖最后由 sihonglaoren 于 2011-05-15 02:49:30 编辑

Answer 1

Private Sub Command1_Click()
Dim i, j As Integer
For i = 1 To 6
  For j = 1 To 6 - i
    Print " ";
  Next
  Print Left("* * * * * * *", (i - 1) * 2 + 1)
Next
End Sub'     *
'    * *
'   * * *
'  * * * *
' * * * * *
'* * * * * *

Answer 2

修改了一下~！
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 6
  Print Space(6 - i);
  Print Left("* * * * * * *", (i - 1) * 2 + 1)
Next
End Sub
'效果'     *
'    * *
'   * * *
'  * * * *
' * * * * *
'* * * * * *