对字符串按每隔n个字符届取一个字符的规则将所得的字符组成一个新串，当剩余字任不足nn个时重新从首字符按规则继续届直到原字符为空最后输出新串。如输入abcdefg,3则输出dafegcb
程序如下：看看哪有问题，帮忙改正，不胜感激！！！1
input a$,n
l=len (a$)
dim a$(l)
i=0
do
i=i+1
a$(i)=mid$(a$,n+1,1)
l=l-1
a1$=mid$(a$,n+1,l-n)
a2$=mid$(a$,1,n)
a$-a1$+a2$
loop until a$=""
for i=1 to l
print a$(i)
next i
end