[讨论]QB顺序的排列 — 编程爱好者社区

您所在位置：社区首页 — QBasic讨论区 — [讨论]QB顺序的排列

主题：[讨论]QB顺序的排列

falkner [专家分：90] 发布于 2006-05-14 17:58:00

请教各位QB高手，如何才能让一串字符从最后一个向前排列，或者说如何使用RIGHT和LEFT语句。

沙发

求救 [专家分：40] 发布于 2006-05-14 21:50:00

每次用right$先取依次比原来的多一个位
然后用left$每次取一个right$里面的

板凳

moz [专家分：37620] 发布于 2006-05-14 22:55:00

最好用mid$()
当然了，用left$()或者right$()也行

do while len(a$)>0
b$=b$+right$(a$,1)
a$=left$(a$,len(a$)-1)
loop

3 楼

汪新富 [专家分：0] 发布于 2006-05-21 11:09:00

[em15][em15][em15]

4 楼

汪新富 [专家分：0] 发布于 2006-05-21 11:09:00

wo bu hui

5 楼

chenhonghong [专家分：70] 发布于 2006-05-28 15:55:00

input a$
for i= len(a$) to 1 step -1
b$=b$+mid$(a$,i,1)
next i
print b$
end

6 楼

lzh609754893 [专家分：20] 发布于 2008-11-26 20:57:00

cls
input a$
a=len(a$)
dim b$(a)
for i=1 to a
b$(i)=mid$(a$,i,1)
next i
for i = a to 1 step -1
c$=c$+b$(i)
next i
print c$
end

您尚未登录，请登录后再回复。点此登录或注册