您所在位置：主题：请哪个高手帮我做一个题目
ch6889244
[专家分：0] 发布于 2005-05-06 16:37:00
declare sub s1(y$)
const a$="abcde"
common shared c,x$
x$="1"
c=0
call s1(mid$(a$,1))
call s1(x$)
print a$,c,x$
end
sub s1(y$)
static x$
c=c+asc(y$)
x$=x$+y$
end sub
const a$="abcde"
common shared c,x$
x$="1"
c=0
call s1(mid$(a$,1))
call s1(x$)
print a$,c,x$
end
sub s1(y$)
static x$
c=c+asc(y$)
x$=x$+y$
end sub
