只求图中的5和6

5.
for i=1 to 9
?tab((9-i)*3+1);
for j=1 to i
?j;
next j
for j=i-1 to 1 step -1
?j;
next j
?
next i
6.
'添加
list2.additem list1.text
list1.removeitem list1.listindex
'删除
list1.additem list2.text
list2.removeitem list2.listindex
'全部添加
for i=1 to list1.listcount
list2.additem list1.list(0)
list1.removeitem 0
next i
'全部删除
for i=1 to list2.listcount
list1.additem list2.list(0)
list2.removeitem 0
next i

第五题:
print " 1 "
Print" 121 "
以此类推

楼上厉害