列印結果
　　　＊
　　＊＊＊
　＊＊＊＊＊
＊＊＊＊＊＊＊
　＊＊＊＊＊
　　＊＊＊
　　　＊

Private Sub Form_Activate()
    Dim aa As Integer
    aa = 7
   
    For i = (aa - 1) * -1 To (aa - 1) Step 2
        Print Spc(Abs(i / 2));
        For j = 1 To aa - Abs(i)
            Print "*";
        Next
        Print
    Next
End Sub


arrow
arrow
    全站熱搜

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

    E-mail轉寄