高考问答辐射4 1点力量:懂QB程序的请进，帮帮忙。
来源：百度文库 编辑：高考问答 时间：2024/05/05 20:32:55
小学信息技术书上的一道题，但是书中给的程序运行不出正常结果。
要求：编一程序，输出杨辉三角的前11行。
1
1 1
1 2 1
1 3 3 1
…… ……
就是这样的，一直输出前11行。
书中的程序是这样的：
dim y(10,10)
for j=0 to 10
y(j,j)=1
y(j,0)=1
next j
for j=2 to 10
for k=1 to j-1
y(j,k)=y(j-1,k-1)+y(j-1,k)
next k
next j
for j=0 to 10
for k=0 to j
print tab(40-j)；y(j,k)；""；
next k
print
next j
end
也不知道哪儿有问题，输出时不是成三角形排列的。竖向排列。谁懂，请赐教。
-------1------
----1 1-----
-1 2 1----
…………
要求：编一程序，输出杨辉三角的前11行。
1
1 1
1 2 1
1 3 3 1
…… ……
就是这样的，一直输出前11行。
书中的程序是这样的：
dim y(10,10)
for j=0 to 10
y(j,j)=1
y(j,0)=1
next j
for j=2 to 10
for k=1 to j-1
y(j,k)=y(j-1,k-1)+y(j-1,k)
next k
next j
for j=0 to 10
for k=0 to j
print tab(40-j)；y(j,k)；""；
next k
next j
end
也不知道哪儿有问题，输出时不是成三角形排列的。竖向排列。谁懂，请赐教。
-------1------
----1 1-----
-1 2 1----
…………
给你以下代码,输出11行的:
Dim a(11, 11) As Long
Dim b(11) As String
Dim i As Byte
Dim j As Byte
a(0, 0) = 1
For i = 1 To 11
For j = 1 To 11
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
If a(i, j) <> 0 Then
b(j) = b(j - 1) & " " & a(i, j)
End If
Next j
Print b(i)
Next i
END