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 = 0 To 2 * i
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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024