VB編程：for循環輸出楊輝三角-45

運行效果： 程序代碼： Private Sub Command1_Click()     Dim a()     n = 10           'Val(Text1.Text)     Me.Cls     ReDim a(n + 1, n + 1)     For i = 1 To n         For j = 0 To i             a(1, i) = 1      

>>阅读原文<<