文档介绍：VB中函数的定义以及调用
每年到了这个时候，都会看到有关函数调用的问题，今天又遇到了这样一道题目，我把答案写在我的空间里吧！
一，问题的原文如下：
执行下面程序，单击命令按钮Command1后，窗体上显示的第一行内容是 （21），第二行内容是 （22），最后一行内容是 （23）。
Private Sub Command1_Click()
    Dim a As Integer, k AsInteger
    a = 2
    k = Fun(1, a) + Fun((a),a)
    Print k
End Sub
Private Function Fun(x As Integer, y As Integer) As Integer
    Static k As Integer
    k = k + x + y
    x = x + y
    y = y + k
    Fun = x + y
    Print Fun; x; y
End Function
求详细过程
 
二，我的回答如下：
本文涉及到，静态变量、自定义函数、自定义函数的调用、函数中参数的类型（传值与传址类型）。
（一），静态变量
在过程或函数里，用Static声明的变量，叫静态变量，静态变量的值，将一直被保存到程序结束。
例如：在窗体上添加一个按钮，编写代码：
Private Sub Command1_Click()
    Static k As Integer
    k = k + 1
    Print k
End Sub
启动并单击按钮，会发现，每单击一次，k的值增加1。
说明，尽管退出Command1_Click()事件过程，但是K的值一直保持。这就是静态变量与用DIM声明的变量的不同之处。
（二），自定义函数
举个简单例子，详细介绍请看我的另一篇文章：VB6 当中自定义过程和函数的参数类型。
例如1：在窗体上添加一个按钮，编写代码：
Option Explicit
Private Sub Command1_Click()
Dim y As Integer
y = F()    '调用函数
Print y
End Sub
'下面是一个自定义函数
Private Function F() As Integer
   F = 100
End Function
启动程序，单击按钮，输出100。
这里Function F() As Integer表示是一个没有参数的函数，函数返回值是整数类型。在主程序里y = F()是表示把调用函数F()得到的结果，赋予变量y，其中调用的格式为F()。
例如2：在窗体上添加一个按钮，编写代码：
Option Explicit
Private Sub Command1_Click()
Dim y As Integer
y = F(8)    '调用函数
Print y
End Sub
'下面是一个自定义函数
Private Function F(Byval a as integer) As Integer
   F = 2 * a
   a = a + 1
End Function
启动程序，