您所在位置：主题：给你们出一道qb希望你们能答对三天后给通过信箱给你们答案你们知道答案发在我的信箱内，
多阳天使
[专家分：0] 发布于 2005-03-20 17:07:00
qirend@eyou.com[b]qirend@eyou.com[/b]
[center]qirend@eyou.com[/center]
declare sub ss(m as integer, n as integer)
dim shared a as integer
dim b as integer
a =10:b=10
call ss (a,b)
print "a=";a,"b=";b
a=20:b=20
call ss ((a),b)
print "a=";a,"b=";b
end
sub ss (m,n)
static c
n=n+c+m
c=a
end sub
[fly]dim shared a as integer[/fly][size=6]dim shared a as integer[/size][color=000080]dim shared a as integer[/color][font=黑体]dim shared a as integer[/font]
[center]qirend@eyou.com[/center]
declare sub ss(m as integer, n as integer)
dim shared a as integer
dim b as integer
a =10:b=10
call ss (a,b)
print "a=";a,"b=";b
a=20:b=20
call ss ((a),b)
print "a=";a,"b=";b
end
sub ss (m,n)
static c
n=n+c+m
c=a
end sub
[fly]dim shared a as integer[/fly][size=6]dim shared a as integer[/size][color=000080]dim shared a as integer[/color][font=黑体]dim shared a as integer[/font]
