治子宫粘连价格:一个vb问题,请帮忙

来源:百度文库 编辑:神马品牌网 时间:2024/04/26 13:02:09
function func(a as integer,b as integer) as integer
static m as integer,i as integer
m=0
i=2
i=i+m+1
m=i+a+b
func=m
end function

private sub command1_click
dim k as integer,m as integer
dim p as integer
k=4
m=1
p=func(k,m)
print p;
p=func(k,m)
print p;
end sub
我不理解他的过程,第一个p=8
第二个就不懂了
谢谢讲解
追加20分