这个运行最后一行为什么会多一个星

Public Sub 三角形()
Dim i As Integer, j As Integer
For i = 1 To 4
Debug.Print Tab(i + 16); "";
Debug.Print "";
For j = 0 To 2 * (4 - i) - 2
Debug.Print "*";
Next j
Debug.Print
Next i
End Sub