过程的调用

　　Private Function PC(a As Integer, b As Integer)
　　Static m As Integer, i As Integer
　　m=0: i=2                      '在这里，重新初始化了。
　　i=i + m + 1                  'i=3
　　m=i + a + b                   'm= i+a+b
　　PC=m                           '返回 m
　　End Function

　　k=4: m=1
　　p=PC(k, m) : Print p;
　　p=PC(k, m) : Print p

你 k ,m 是不变，所以 结果也就不变。

----------------------------------
    inc 2
    inc 3
    inc 4

sub inc(a as integer)
    static x as integer           '没有重新初始化，第一次为0 以后继续使用上一次的值
      x=x+a                   '第一次 2 ,第二次 2+3 ＝ 5 ，第三次，5+4 ＝ 9
      print a;
end sub