怎么输出这 个程序

用什么语言写啊？我VB/QB较熟。。。

用QBASIC吧！
这不是我当年参加我们县QB竟SAI初SAI的题吗？有个人这样写也得了满分：
print "*"
print "**"
print "***"
print "**"
print "*"
这也可以！当时真气死我耶！
我当时写法是这样的：
(想这样写，可最后时间不足，5555555，结果本题0分）

sub p(n as integer)
dim a as string
for i=1 to n
a=a+"*"
next
print a
end sub
'---------------------
dim i as integer
for i=1 to 3
print p(i)
next
print p(2)
print p(1)
end