VB6.0自定义函数的过程

1、打开VB6.0，新建一个工程，在窗体中添加一个命令按钮，caption分别改为“调用函数”，将窗体Form1的caption属性改为“VB6.0自定义函数”，将界面设置成下图：

2、双击窗体Form1，进入代码编辑窗口，单击左侧下拉三角形，选择通用。

3、在通用段输入如下代码：

Public Sub F1(n%, ByVal m%)

n = n Mod 10

m = m \ 10

End Sub

并将Form_Load事件删除。

以上代码就定义了函数F1，其中包括两个参数，类型均是整型，%表示 短整型，Byval表明了值传递方式，表示值传递，与地址传递相对应。这也是默认的传递方式。

4、双击“调用函数”命令按钮，进入代码编辑窗口，输入如下代码：

Dim x%, y%

x = 12: y = 34

Call F1(x, y)

Print x, y

yongcall进行函数的调用，参数与自定义函数中参数一一对应。

5、关闭代码窗口，按下F5运行程序，单击“调用函数”命令按钮，在窗体中打印输出2   34，可以自己想下为什么是这个结果，这个结果和函数的值传递方式有关，如图：