VB6.0作为一种编程语言,已经为用户提供了许多常用函数,但是毕竟有限,不能完全满足开发者的需求,这时我们就需要根据自己的需求进行自定义函数。接下来简要介绍步骤:
工具/原料
VB6.0
计算机(WIN7系统)
方法/步骤
1、打开VB6.0,新建一个工程,在窗体中添加一个命令按钮,caption分别改为“调用函数”,将窗体Form1的caption属性改为“VB6.0自定义函数”,将界面设置成下图:
2、双击窗体Form1,进入代码编辑窗口,单击左侧下拉三角形,选择通用。
3、在通用段输入如下代码:PublicSubF1(n%,ByValm%)n=咯悝滩镞nMod10m=m\10EndSub并将Form_Load事件删坛冰核哧除。以上代码就定义了函数F1,其中包括两个参数,类型均是整型,%表示短整型,Byval表明了值传递方式,表示值传递,与地址传递相对应。这也是默认的传递方式。
4、双击“调用函数”命令按钮,进入代码编辑窗口,输入如下代码:Dimx%,y%x=12砜实蛰斓:y=34CallF吭稿荔徊1(x,y)Printx,yyongcall进行函数的调用,参数与自定义函数中参数一一对应。
5、关闭代码窗口,按下F5运行程序,单击“调用函数”命令按钮,在窗体中打印输出234,可以自己想下为什么是这个结果,这个结果和函数的值传递方式有关,如图: