Question

请VB高手帮我填一下题目中的三个空，打得好我有追加悬赏。急啊！！！！！！

'下面的程序段用于打印出以下图形
'
' *
' ***
' *****
' *******
' *****
' ***
' *
'

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

Answer 1

'下面的程序段用于打印出以下图形
'
' *
' ***
' *****
' *******
' *****
' ***
' *
'

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 2 * i + 1
Print "*";
Next k
Print
Next i
For i = 0 To 2
For j = 0 To i
'**********SPACE**********
Print " ";
Next j
For k = 0 To 4 - 2 * i
Print "*";
Next k
'**********SPACE**********
Print
Next i
End Sub

追问

k的作用？快！！！

Answer 2

你的空在哪里？

追问

就是太着急了，忘了补充，如果你会做一定要帮我啊！谢啦！