CLS
INPUT n
FOR i = 1 TO n
PRINT "[fly]";
FOR j = 1 TO i - 1
PRINT USING "#"; j;
NEXT j
PRINT STRING$(n - i + 1, MID$(STR$(i), 2));
PRINT "[fly]"
NEXT i

CLS 
x=5
FOR i = 1 TO x
PRINT "[fly]";
FOR j = 1 TO i - 1
PRINT USING "#"; j;
NEXT j
PRINT STRING$(x - i + 1, MID$(STR$(i), 2));
PRINT "[fly]"
NEXT i
END

CLS 
x=5
FOR i = 1 TO x
PRINT "[fly]";
FOR j = 1 TO i - 1
PRINT USING "#"; j;
NEXT j
PRINT STRING$(x - i + 1, MID$(STR$(i), 2));
PRINT "[fly]"
NEXT i
END

..
了解没损失，选择很重要,赚钱有方法
 联络QQ908889846  
事业者请浏览 http://www.thxt999.com/Member.asp?u_id=cdc666
免费玩奇迹农场：首先打开摩客奇迹农场官方游戏网站.    http://www.ga-me.hk/ 点马上注册.  ID号码是六位数以上的字母和数字组合的都可以.推广员ID号写我的ID cdc666

寻找中国的最优秀的网商领袖精英  
当今世界正经历着全球经济一体化的大潮，中国本土企业也因此面临着前所未有的机遇与挑战。
在这场洗礼中，哪些互联网平台有能力成为世界级的电子商务平台？网商精英要怎样做，才能最终成长为世界级网商精英领袖？
淘宝商盟平台震撼登场，携手淘宝30万商家联盟购物商城。
平台刚刚启动，互联网的网商精英请咨询qq: 908889846 
占领市场第一先机，合力打造网商系统！
淘宝商盟官网   www.taobaosm.com
 http://blog.sina.com.cn/tbsm8
淘宝商盟奖励制度