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 PrintNext iFor i = 0 To 2 For j = 0 To i'**********SPACE**********
Print "";'两个空格或全角空格 Next j...