主题:混合图形
天尝地酒
[专家分:870] 发布于 2007-10-31 16:25:00
编程打印以下图形。
********$$$$$$$$
*******$*$$$$$$$
******$*$*$$$$$$
*****$*$*$*$$$$$
****$*$*$*$*$$$$
***$*$*$*$*$*$$$
**$*$*$*$*$*$*$$
*$*$*$*$*$*$*$*$
**$*$*$*$*$*$*$$
***$*$*$*$*$*$$$
****$*$*$*$*$$$$
*****$*$*$*$$$$$
******$*$*$$$$$$
*******$*$$$$$$$
********$$$$$$$$
最后更新于:2007-11-02 16:45:00
回复列表 (共11个回复)
沙发
人才锐锐 [专家分:260] 发布于 2007-10-31 21:06:00
这么简单的还要问人啊?[em10]
板凳
傲视人间 [专家分:60] 发布于 2007-11-02 11:47:00
[quote]
这么简单的还要问人啊?[em10][/quote]
[em10]
3 楼
天尝地酒 [专家分:870] 发布于 2007-11-02 16:43:00
喂!喂!喂!
我又不是不会做!
我是想看看有几种方法!
4 楼
天尝地酒 [专家分:870] 发布于 2007-11-21 17:15:00
Wow!怎么没人呀!大热天的!!!!!!!!!
5 楼
多阳天使克隆版 [专家分:0] 发布于 2007-11-21 17:23:00
傻的了,晕!
6 楼
网虫一号 [专家分:1230] 发布于 2007-12-06 17:08:00
上面的人全都是傻的,偶晕菜了。
7 楼
QB小猪 [专家分:1200] 发布于 2007-12-06 17:20:00
cls
for i=8 to 1 step -1
?string$(i,"*");strimg$(8-i,"$*");string$(i,"$")
next i
for i=1 to 7
?string$(i,"*");strimg$(8-i,"$*");string$(i,"$")
next i
end
8 楼
QB小猪 [专家分:1200] 发布于 2007-12-06 17:23:00
还有一种:
cls
for i=-7 to 7
?string$(abs(i),"*");strimg$(8-abs(i),"$*");string$(abs(i),"$")
next i
end
9 楼
神秘侠客 [专家分:80] 发布于 2008-01-19 23:00:00
太简单了!~
10 楼
网虫一号 [专家分:1230] 发布于 2008-01-26 16:20:00
那你就编编看看!别光说不做!呸!
我来回复