主题:JJJJJ
天天和和
[专家分:1420] 发布于 2008-10-24 18:33:00
3、字符串删除问题。将字符串A$中与B$相同的字符串删除。(15分)
输入:123456789ABC,789A 输出:123456BC
输入:"1 2 3 4 A B C" , " " 输出:1234ABC
回复列表 (共27个回复)
沙发
xuehua2008 [专家分:20] 发布于 2008-10-24 18:35:00
扩大机
板凳
以吃为贵 [专家分:60] 发布于 2008-10-24 18:39:00
CLS
INPUT A$,B$
X=INSTR(A$,B$)
WHILE X>0
MID$(A$,X,LEN(B$))=””
X=INSTR(A$,B$)
WEND
?A$
END
3 楼
疾疯者L [专家分:100] 发布于 2009-08-17 18:17:00
CLS
INPUT x$,y$
a=INSTR(x$,y$)
WHILE a>0
MID$(x$,a,LEN(y$))=""
a=INSTR(x$,y$)
WEND
?x$
END
4 楼
phile [专家分:2310] 发布于 2009-08-19 12:38:00
服了,楼上程序是错的
5 楼
phile [专家分:2310] 发布于 2009-08-19 12:39:00
全是错
6 楼
天天和和 [专家分:1420] 发布于 2009-08-23 17:37:00
是吗
7 楼
天天和和 [专家分:1420] 发布于 2009-08-23 17:39:00
嗯
8 楼
天天和和 [专家分:1420] 发布于 2009-08-23 17:39:00
你给个正确的啊
9 楼
天天和和 [专家分:1420] 发布于 2009-08-23 17:43:00
CLS
INPUT x$,y$
a=INSTR(x$,y$)
WHILE a>0
a$=left$(x$,a-1)+mid$(x$,a+len(y$))
a=INSTR(x$,y$)
WEND
?x$
END
这样做事队的吗?
请问phile
10 楼
phile [专家分:2310] 发布于 2009-08-24 13:54:00
放电脑里试试就知道了
我来回复