Question

用VB编写杨辉三角

其中含有tab()和space()函数的代码

Answer 1

INPUT "N="; n
Dim a(n, n)
FOR j = 1 TO n
a(j, j) = 1
a(j, 1) = 1
FOR k = 2 TO j - 1
a(j, k) = a(j - 1, k - 1) + a(j - 1, k)
NEXT k
NEXT j
FOR j = 1 TO n
FOR k = 1 TO j
PRINT TAB(5 * k); a(j, k);
NEXT k
Print
NEXT j 试一下吧!