close

程式碼:
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
arrow
arrow
    全站熱搜

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

    E-mail轉寄