程序代码：

Public ii As Integer
Function a() As Integer
  Static i As Integer
  i = i + 1
  a = i
End Function

Function b() As Integer
  ii = ii + 2
  b = ii
End Function

Private Sub Command1_Click()
  MsgBox a
  MsgBox b
End Sub