列印結果
      *
    ***
  *****
*******

Private Sub Form_Activate()
    Dim i As Integer
    Dim j As Integer
    Dim row As Integer
    row = 4
    For i = 1 To row
        Print Spc(row - i);
        For j = 1 To i + i - 1
            Print "*";
        Next
        Print
    Next
End Sub


arrow
arrow
    全站熱搜

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

    E-mail轉寄