
private Sub Form_Click()
Dim i%, j%, k%
For i = 3 To 0 Step -1
For j = 0 To 2 * iPrint " ";Next j'
SPACEFor k = 5 To 【?】Print "";
Next k
Print
Next i
For i = 0 To 3
For j = 0 To 2 * i + 2
'SPACE
【?】
Next j
For k = 0 To 4 - 2 * i
Print "";
Next k'
SPACE【?】Next i
End Sub
Dim i%, j%, k%
For i = 3 To 0 Step -1
For j = 0 To 2 * i
Print " ";
Next j
'SPACE
For k = 5 To 2 * i - 1 Step -1
Print "*";
Next k
Print
Next i
For i = 0 To 3
For j = 0 To 2 * i + 2
'SPACE
Print " ";
Next j
For k = 0 To 4 - 2 * i
Print "*";
Next k
'SPACE
Print
Next i