精选优质文档-倾情为你奉上以下程序段用于输出杨辉三角:结果样式如图1Private Sub Form_Click()Const n = 10Dim arr(n, n) As IntegerFor I = 1 To n arr(I, I) = 1 *SPACE* 【arr(I, 1) = 1】Next IFor I = 3 To n For j = 2 To I - 1*SPACE* arr(i, j) =arr(i-1,j-1)+arr(i-1,j) Next jNext IFor I = 1 To n For j = 1 To I*SPACE* 【print arr(I,j)】 Next j PrintNext IEnd SubOption Explicit-
