Question

vb用function怎样自定义函数？格式怎么写？举个例子，比如inputbox函数用function怎么写？

Answer 1

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，可以自己想下为什么是这个结果，这个结果和函数的值传递方式有关，

Answer 2

用function自定义函数，跟一般的子程序基本相同。不同的是，function需要有返回值

例如
private function sumQiuHe(x as integer,y as integer)
sumQiuHe=x+y

end function
然后，在其他程序段中调用
dim i as integer
i=sumQiuHe(3,5)
即可得i=8
至于自定义inputbox
这个估计是有些难度了。自定义函数，可以是对已经函数、方法等的组合应用，或者对一些基本函数进行扩展。比如，可以写一段固定输出内容的msgbox,在自定义的函数中加入需要固定显示的对话框内容。如果用VB语句去实现比较基础的函数功能。恐怕是比较难的。
比如，不使用VB的数学运算，你能自己设计一段程序语句去实现加法、乘法吗？也没有这个必要。

Answer 3

在vb中内置的函数书写时会自动给出提示，包括各参数的意义，类型等。

先来个简单的

• 下面是个自定义加法函数（给定a和b，求x的值：x=a+b）

Private Function x(a As Long, b As Long) As Long
    x= a + b
End Function

• 如何调用

  在窗体中添加一个名为Command1的按钮，其Click事件代码如下

Private Sub Command1_Click()
    MsgBox x(1, 2)
End Sub
运行后点击此按钮，提示结果为3.

• 说明

1. 函数的函数名为 x

2. 函数的参数有两个（a和b），用逗号分隔

3. 调用函数x必需指定各参数的值，参数必需用括号括起来

4. 函数和参数都有各自的类型，这里为long，如果指定的参数值或计算结果超出Long的取值范围，会发生溢出错误。

   
   

更多详情见附件

Answer 4

function plus(a as integer,b as integer)
dim s as integer
s=a+b
plus=s
end function

Answer 5

sub function()

end sub