題目:列出下列結果

*
**
***
****
*****
****
***
**
*

 


Private Sub Form_Activate()
    For i = 1 To 9
        For j = 5 To Abs(5 - i) + 1 Step -1
            Print "*";
        Next
        Print
    Next
End Sub

 

 


arrow
arrow
    全站熱搜

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

    E-mail轉寄