1   1  /  1  页   跳转页

qbasic的问题

收藏
许愿池
头像
初生襁褓狮
  • 帖子:4
  • 注册: 2005-11-13
  • 来自:
发表于： 2005-11-13 15:07 | 只看楼主 短消息 资料
字号： 小 中 大 1楼

qbasic的问题

对字符串按每隔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
最后编辑2008-02-07 11:48:09
分享到：
gototop
 
sunrui
头像
飘泊而立狮
  • 帖子:406
  • 注册: 2003-03-27
  • 来自:
发表于： 2005-11-19 23:36 | 短消息 资料
字号： 小 中 大 2楼

a$-a1$+a2$  是怎么回事？是不是 a$=a1$+a2$ 啊？

错的很多啊！

前面 4 行和最后一行是可以的，其它就没办法看了。

就说最后的输出吧，这本来是最简单的了。
那个 l 原来是 7，可是，你 do 一次就减一次 1，
do 完了你还能 for i=1 to l 啊?

实话说，你是刚刚学的吧？这个题目对初学者有点难了。
gototop
 
QB精通者
头像
初生襁褓狮
  • 帖子:1
  • 注册: 2008-02-07
  • 来自:
发表于： 2008-02-07 11:59 | 短消息 资料
字号： 小 中 大 3楼

我QB不错
gototop
 
<<上一主题|下一主题>>
1   1  /  1  页   跳转页
页面顶部
Powered by Discuz!NT