不理解vb中打印图案类型的题怎么办

Question

'功能：下面的程序段用于打印出以下图形
'
' *
' ***
' *****
' *******
' *****
' ***
' *
'-------------------------------------------------------
Private Sub Form_Click()
Dim i%, j%, k%
For i = 0 To 3
For j = 0 To 2 - i
Print " ";
Next j
'**********SPACE**********
For k = 1 To 【?】
Print "*";
Next k
Print
Next i
For i = 0 To 2
For j = 0 To i
'**********SPACE**********
【?】
Next j
For k = 0 To 4 - 2 * i
Print "*";
Next k
'**********SPACE**********
【?】
Next i
End Sub

答案：
1). 2★ *★ i★+★1
2). Print " "; 或 form1.print " "; 或 ? " ";
3). Print 或 form1.Print 或 ?

求讲解这道题！

Answer 1

'功能：下面的程序段用于打印出以下图形
'
'      *
'     ***
'    *****
'   *******
'    *****
'     ***
'      *
'-------------------------------------------------------
Private Sub Form_Click()
Dim i%, j%, k%
For i = 0 To 3   '0 到 3  输出前四行
'**********SPACE**********
  For j = 0 To 2 - i
     Print " ";
   Next j
   '这一段输出每行前面的空格
'**********SPACE**********
  For k = 1 To 2 * i + 1    '也可用   1 - 2 * i Step -1
       Print "*";
     Next k
     '这一段输出每行的“*”
  '**********SPACE**********
  Print   '换行
Next i
'.......
For i = 0 To 2 '0 到 2  输出后四行
'**********SPACE**********
  For j = 0 To i
      Print " ";  '加  ； 号是为了不换行   print " "; \   form1.print " "; \   me.print " "; \    print " ";print space(1);  \  print spc(1);   print string(1," ")   /   print chr(32);  。。。。。。还可以变出很多种
  Next j
  '这一段输出每行前面的空格
'**********SPACE**********
'**********SPACE**********
  For k = 0 To 4 - 2 * i
       Print "*";
     Next k
  '这一段输出每行的“*”
  '**********SPACE**********
   Print   '换行     print  , form1.print , me.print , print ""
Next i
End Sub