Question

vb数字金字塔

Answer 1

dim a as byte, b as byte
for a=1 to 5'共打印五行
print spc(4-a);'预留空格
for b=1 to a'输出左边
print b;
next b
for b=a-1 to 1 step -1'输出右边
print b;
next b
print
next