程式設計:

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

arrow
arrow
    全站熱搜

    愛爾 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄