dim N as integerN=inputbox("输入行数")dim sz(20)a(1)=1for i=1 to N print tab(40-2*i);a(1); for j=I to 2 step -1 a(j)=a(j-1)+a(j) print a(j); next a(I+1)=1 print a(I+1)next
