求VB编程，输入N（一位正整数），输出N+1层杨辉三角形

这个书上有例子 摘抄如下
---------------------------------
private sub command1_click()
const max=15,pos=40
dim yh() '说明可调数组
dim i,n,j as interger
do
n=inputbox("input n:")
loop until n>=1 and n<=max
redim yh(n)
yh(1)=1
print tab(pos-3);yh(1)
for i=2 to n
yh(i)=1
for j=i-1 to 2 step -1
yh(j)=yh(j-1)+yh(j)
next j
for j=1 to i
print tab(pos-3*i+6*(j-1));yh(j);
next j
next i
end sub

姐姐