上一篇中我讲到了VB通用过程中的Sub过程，今天我来讲讲它的“另一半”----Function过程

概念

也称函数

与内部函数一样，是一个可以反复使用的程序段，在其他程序段中均可以通过调用来执行这段程序，完成既定工作

声明

[Private|Public|Static] Function 函数名（[参数表] [AS类型]）

      [函数体]

      [<函数名>=<表达式>]

      [Exit Function]

End Function

• 与Sub过程差不多。但Function过程有返回值。声明Function过程要指明数据类型，实际上是返回值的数据类型，默认为Variant类型
•  [<函数名>=<表达式>]若省略，则该过程返回一个默认值：数值型函数过程返回0，字符串函数过程返回空字符串。<表达式>的值是函数返回的结果，通过赋值语句将值赋给<函数名>，该值就是Function过程的返回值

什么时候使用？

function过程同sub过程一样，都是当不同的事件要执行一段相同的代码，这时就可以使用function过程，减少重复代码的使用，避免冗长

优点

防止了程序中代码的反复书写

建立

1.在“代码窗口”直接输入Function过程

2.选择“工具”菜单中的添加过程命令定义Function过程，选择“函数类型”

调用

1.使用Call语句

Call 函数名（参数1，参数2，……）

2.直接使用函数名

如果直接使用函数名的调用方法有两种形式：

• 如果函数有返回值，一般如下形式调用：被赋值对象=函数名（实际参数1，实际参数2，……）
• 如果放弃函数的返回值：函数名 实际参数1，实际参数2，……

光说不练假把式，来看看实例吧！

'-----------------------------------------------
'输入三个数求最大值
'-----------------------------------------------

Private Sub Form_Load()
    Dim a%, b%, c%, d%
    Show
    a = Val(InputBox("请输入一个整数"))
    b = Val(InputBox("请输入一个整数"))
    c = Val(InputBox("请输入一个整数"))
    d = Max(a, b)
    Print "三个整数中最大的数是："; Max(d, c)
End Sub

Function Max(m%, n%) As Integer
    If m > n Then
        Max = m
    Else
        Max = n
    End If
End Function

 VB中的Sub过程和Function过程我都讲完了，那你们有没有想过这个问题呢？既然Sub过程和Function过程的用法这么相似，为什么VB通用过程中还要有两个过程呢？一个不就好了吗？非也非也，既然定义了两个，那肯定他们呢就有不同之处啦！

Sub过程和Function过程的区别：

• Subs是子程序，只作为一个基本的独立语句调用，没有返回值
• 而function过程也称为函数，有有返回值

注：如果在同一个模块中，同一个变量名不能既用作sub过程又用过function过程