上一秒我們還不認識，或許下一秒我們就一起談心事=]

程式碼:
Private Sub Command1_Click()
n = Val(InputBox("輸入大小"))
n = n - 1
For i = -n To n
For j = -n To n
If n - Abs(j) <= Abs(i) Then
Print "*";
Else
Print "  ";
End If
Next j
Print
Next i
End Sub