[local]1[/local]第八题谢谢

For I = 1 To 2 * 9 - 1 Step 2

 Print Space(6) & Space((9 - 1) - (I - 1) \ 2);
For J = 1 To I
Print "*";
Next J
Print
Next I

我只能说楼主不动脑子

Sub test()
    For i = 1 To 9
        Debug.Print Space(9 - i);
        For j = 1 To 2 * i - 1
            Debug.Print "*";
        Next j
        Debug.Print
    Next i
End Sub

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