主题：怎样做蝴蝶飞飞？？[/b][/b][/b]
羽丘芽美
[专家分：0] 发布于 2010-04-15 21:09:00
[size=2][/size]
回复列表 （共6个回复）
沙发
小勇士来了 [专家分：220] 发布于 2010-05-22 19:59:00
CLS
DIM A（1001，1001）
FOR I=1 TO 20
PRINT TAB（I）；“\ * /”
PRINT TAB（I）；“ \|/”
PRINT TAB（I）；“ /|\”
PRINT TAB（I）；“/ * \”
FOR J=1 TO 500000
NEXT J
NEXT I
END
板凳
A(N) [专家分：20] 发布于 2010-05-22 20:19:00
不错不错，我也会做了！！
[em1][em1][em1][em1]
3 楼
神秘-赛尔 [专家分：170] 发布于 2010-11-11 21:20:00
运行了吗？？？？？我的是错误的。A是错的！！！
4 楼
verysmartboy [专家分：1260] 发布于 2010-11-11 21:30:00
楼主，他那个是错的，已经超过了数组范围！什么啊！我给你
5 楼
verysmartboy [专家分：1260] 发布于 2010-11-11 21:55:00
CLS
FOR I=1 TO 10000
IF I MOD 2=0 THEN
PRINT TAB(I) " \ |*| /"
PRINT TAB(i)" \|=|/"
PRINT TAB(I)"----|||----"
PRINT TAB(I)" /|=|\"
PRINT TAB(I)" / |*| \"
ELSE
PRINT TAB(I-11);" \ * /"
PRINT TAB(I-11);" \|/"
PRINT TAB(I-11);" /|\"
PRINT TAB(I-11);" / * \"
END IF
FOR J=1 TO 600000:NEXT
NEXT I
END
6 楼
verysmartboy [专家分：1260] 发布于 2010-11-11 21:56:00
上面的程序名字叫“双蝶飞舞”
我来回复
您所在位置：