主题：帮个忙好吗
pan81595488
[专家分：0] 发布于 2005-06-04 09:48:00
123454321
1234321
12321
121
1
回复列表 （共2个回复）
沙发
88324837 [专家分：490] 发布于 2005-06-04 17:29:00
a$="123454321"
for b=1 to 5
print tab(10+b)；mid$(a$,b,11-2*b)
next b
end
记得打个高分啊
板凳
陈贺ＱＢ [专家分：140] 发布于 2005-06-12 09:38:00
a$="123454321"
for i=1 to 5
print tab (10+i); mid$(a$,1,5-i);
print right$ (a$,5-i+1)
next i
end
我来回复
您所在位置：