主题：讨论
pan81595488
[专家分：0] 发布于 2005-06-03 23:32:00
7
767
76567
7654567
76567
767
7
回复列表 （共7个回复）
沙发
88324837 [专家分：490] 发布于 2005-06-04 17:40:00
a$="7654567"
for b=-3 to 3
print tab(10+abs(b))；
c=7-2*abs(b)
print left$(a$,c\2)+right$(a$,c-c\2)
next b
end
记得给我打个高分啊啊啊啊 [em11]
板凳
编程黑客 [专家分：1660] 发布于 2005-08-18 22:27:00
你想分想疯了[em14]
3 楼
def [专家分：3380] 发布于 2005-08-19 07:09:00
哎！
4 楼
def [专家分：3380] 发布于 2005-08-19 07:25:00
a$ = "7654567"
b = -3
strtloop:
IF b = 4 THEN GOTO endloop
PRINT TAB(10 + ABS(b));
c = 7 - 2 * ABS(b)
PRINT MID$(a$, 1, (7 - 2 * ABS(b)) \ 2) + MID$(a$, 8 - (c - c \ 2), c - c \ 2)
b = b + 1
GOTO strtloop
endloop:
END
果然是墙中自有强中手，强中自有墙钉手
据说这个块很多，虽然块很多
5 楼
shiyr [专家分：390] 发布于 2005-08-23 19:16:00
你想要速度啊
print " 7"
print " 767"
print " 76567"
print " 7654567"
print " 76567"
print " 767"
print " 7"
6 楼
def [专家分：3380] 发布于 2005-08-23 19:27:00
用poke/peek啊啊啊啊啊啊啊啊啊啊啊这个高速，不然直接拨内存啊。。。
7 楼
moz [专家分：37620] 发布于 2005-08-23 21:24:00
哎,别这样子嘛,挑什么刺呢
我来回复
您所在位置：