Question

vb 编写程序打印杨辉三角形。

希望在编写的程序中不包含有“函数function过程”及“数组”（目前只学习了顺序、选择、循环结构） 尽量不存在“溢出”问题的。

Answer 1

Function yf(n As Integer)
ReDim a(n + 1, n + 1), b(n + 1, n + 1)
Cls
k = 8
For i = 1 To n
Print String((n - i) * k / 2 + 1, " ");
For j = 1 To i
a(i, 1) = 1
a(i, i) = 1
a(i + 1, j + 1) = a(i, j) + a(i, j + 1)
b(i, j) = Trim(Str(a(i, j)))
Print b(i, j); String(k - Len(b(i, j)), " ");
Next j
Print
Next i
End Function

call yf(10)
输出：

1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
1 6 15 20 15 6 1
1 7 21 35 35 21 7 1
1 8 28 56 70 56 28 8 1
1 9 36 84 126 126 84 36 9 1

追问

可不可不不用“function”？

追答

当然可以，去掉FUNCTION，在最前面定义n并给他赋值

追问

但后面引用

这里怎么办。。。

追答

这样：
dim n as integer
n=10
ReDim a(n + 1, n + 1), b(n + 1, n + 1)
Cls
k = 8
For i = 1 To n
Print String((n - i) * k / 2 + 1, " ");
For j = 1 To i
a(i, 1) = 1
a(i, i) = 1
a(i + 1, j + 1) = a(i, j) + a(i, j + 1)
b(i, j) = Trim(Str(a(i, j)))
Print b(i, j); String(k - Len(b(i, j)), " ");
Next j
Print
Next i