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

程式設計:

Private Sub Command1_Click()
Cls
n = InputBox("請輸入數字")
For i = 1 To n Step 2
Print Space(n - i);
  For j = 1 To i
  Print "*";
  Next j
Print
Next i

For i = n - 2 To 1 Step -2
Print Space(n - i);
  For j = 1 To i
  Print "*";
  Next j
Print
Next i
Print Space(n - 1);
If n Mod 2 = 0 Then Print "*"

End Sub