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