Question

VB六行等腰杨辉三角

谢谢你的回答！我刚刚开始学VB，很不懂，您能不能再详细帮我解释一下每行语句？一开始我就不懂，您说Dim a(1 To 6, 1 To 6)
For i = 1 To 6
For j = 1 To i
If j = 1 Or j = i Then
a(i, j) = 1
Else
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
End If
Next j
Next i
可这样逐排逐列输不是变成了如图所示这样：

还有，为什么是Print Spc((6 - i) * 3)？麻烦您说一下，太谢谢啦

若以下回答无法解决问题，邀请你更新回答

Answer 1

Dim a(1 To 6, 1 To 6) '建立一个6*6的二维数组
'以下这个嵌套循环i为行,j为列.目的是为二维数组a按杨辉三角规则赋值
For i = 1 To 6 '形成6行
For j = 1 To i '形成与所在行相同的列数
If j = 1 Or j = i Then '判断是否为该行第一列或最后一列
a(i, j) = 1 '条件满足时,为数组中的该元素赋值1
Else '否则数组中的该元素等于它上一行相同列与它上一行前一列元素的和
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
End If
Next j
Next i
该程序执行到这是会形成如你的图中所示的数字三角,所以就需要用Print Spc()语句给它加空格.

不过我注意到用Print Spc((6 - i) * 3)语句似乎不能形成杨辉三角,还有你的图中的数字三角好像也不是用你的程序计算出的.

Answer 2

121