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      

>>阅读原文<<