列示結果
*
**
***
****
*****
******
*******

Private Sub Form_Activate()
    Dim aa As Integer
    aa = 7
   
    For i = 1 To aa
        For j = 1 To i
            Print "*";
        Next
        Print
    Next
End Sub

 

創作者介紹

歡迎~ 程式設計 學生 作業 專題製作 程式外包 家教...

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