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,可以自己想下为什么是这个结果,这个结果和函数的值传递方式有关,
在vb中内置的函数书写时会自动给出提示,包括各参数的意义,类型等。
先来个简单的
下面是个自定义加法函数(给定a和b,求x的值:x=a+b)
如何调用
在窗体中添加一个名为Command1的按钮,其Click事件代码如下
说明
函数的函数名为 x
函数的参数有两个(a和b),用逗号分隔
调用函数x必需指定各参数的值,参数必需用括号括起来
函数和参数都有各自的类型,这里为long,如果指定的参数值或计算结果超出Long的取值范围,会发生溢出错误。
更多详情见附件