列出結果
        *
      **
    ***
  ****
*****

Private Sub Form_Activate()
    For i = 1 To 5
        Print Spc(5 - i);
        For j = 1 To i
            Print "*";
        Next
        Print
    Next
End Sub

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