函数的定义方式为：
Function functionname ([argument1[,…,argumentn]])
[statements]
[Return value]
[statements]
End Function
对于函数的调用方式是调用函数名functionname()。如果有参数，就按照次序写在括号中。
例2.12(02-12.aspx)用一个函数计算两个整数的和。
1: <script language="vb" runat="server">
2: Function Add(intData1 as Integer,intData2 as Integer) as Integer
3: intData1=intData1+intData2
4: Return intData1
5: End Function
6: </script>
7: <%
8: Dim intTemp1,intTemp2 as Integer
9: intTemp1=2
10: intTemp2=3
11: Response.Write(Add(intTemp1,intTemp2))
12: Response.Write("<br>")
13: Response.Write(intTemp1)
14: %>
在上面的程序中，有下面几点需要说明：
(1) 在第2行～第5行定义了一个函数Add。这个函数带有两个参数：intData1和intData2，并把一个整数作为返回值。
(2) 在第3行把参数intData1与intData2的和放到intData1中，并在第4行把intData1作为结果返回。
在上面的子过程和函数的讲解过程中，可以看出都可以采用带参数的方式来增加子过程和函数的灵活性。需要说明的是，参数的传递有两种方式：通过值传递参数和通过引用传递参数。
在调用子过程和函数的时候，如果没有明确地指出，所有的参数都是通过值进行传递的。所谓通过值进行传递，就是把参数的值复制到参数中。例如例2.12中第11行的Add(intTemp1,intTemp2)，就是通过值进行传递的好例子。在真正执行第2行～第5行定义的Add函数时，是把intTemp1的值2复制给了intData1，把intTemp2的值3复制给了intData2。在第3行把intData1和intData2的和赋值给intData1的时候，intData1的值变成了5，但是这个时候，intTemp1的值仍然是2，不是5(通过第13行的执行可以看出来)，这就是通过值传递参数。这时，intData1和intTemp1是两个不同的变量，在内存中占用不同的存储空间。
在函数和子过程中，使用关键字ByVal来显式表示通过值传递参数。也就是说，如果要用显式的方式进行定义，第2行的函数定义可以写成：
Function Add(ByVal intData1 as Integer,ByVal intData2 as Integer) as Integer
默认的情况是采用通过值传递参数。
那么什么是通过引用传递参数呢？请先看下面的例子。
例2.13(02-13.aspx)用一个函数计算两个整数的和。
1: <script language="vb" runat="server">
2: Function Add(ByRef intData1 as Integer,ByRef intData2 as Integer) as Integer
3: intData1=intData1+intData2
4: Return intData1
5: End Function
6: </script>
7: <%
8: Dim intTemp1,intTemp2))
12: Response.Write("<br>")
13: Response.Write(intTemp1)
14: %>
例2.13与例2.12的区别就在于第2行的Add函数的定义。在这里使用了ByRef关键字表示这时的参数是通过引用进行传递的。执行这个程序就会发现，在程序执行完之后，不但intData1的值变成了5，同时intTemp1的值也变成了5。
通过引用传递参数的方法是把参数的地址传递进去。在第11行进行传递的时候，不是把intTemp1的值复制给intData1，把intTemp2的值复制给intData2，而是把intTemp1的地址给了intData1的地址，把intTemp2的地址给了intData2的地址。在传递成功之后，intData1就是intTemp1，intData2就是intTemp2。所以在第3行intData1的值发生变化时，intTemp1的值也同时发生了变化。
2.5.3 变量的作用域
在进行变量声明时，变量声明的位置决定了这个变量的作用范围。在一个过程或函数外声明的变量是全局变量，对本程序内部所有的过程和函数都起作用；而在一个过程或函数内部声明的变量是局部变量，只对本过程或函数起作用。
下面通过一个例子说明全局变量和局部变量的区别。
例2.14(02-14.aspx)全局变量和局部变量的使用。
1: <script language="vb" runat="server">
2: Dim strGlobal as String="global"
3: Sub SayHello
4: Dim strTemp as String="hello!"
5: Response.Write (strTemp & "<br>")
6: Response.Write (strGlobal & "<br>")
7: if strGlobal<>"" then
8: Dim strTemp1 as String="hello cindy!"
9: Response.Write (strTemp1 & "<br>")
10: end if
11: 'Response.Write (strTemp1 & "<br>")
12: End Sub
13: </script>
14: <%
15: SayHello
16: %>
上面的例子中，有下面几点需要说明：
(1) 第2行声明的变量strGlobal定义在所有的函数或者过程之外，所以是一个全局变量。由于在定义这个变量的时候就为这个变量赋值为“global”，所以，在后面的程序中，第一次使用这个变量时这个变量的值就是“global”。
(2) 第3行～第12行定义了一个子过程SayHello。在这个过程中，首先在第4行定义了一个变量strTemp，由于这个变量是定义在子过程中的，所以这个变量是一个局部变量。在第5行显示这个变量的值的时候，会显示一个“hello!”字符串。
(3) 第6行要显示strGlobal的值，由于这是一个全局变量，所以会显示第1行赋值的“global”。
(4) 第7行～第10行定义了一个If/Endif代码块，在这个代码块中，定义了一个块级局部变量strTemp1(第8行)。由于这个变量是定义在代码块中的，所以只在这个代码块中起作用。所以在第9行要显示它的值的时候，会显示“hello cindy!”。而如果取消第11行的注释，系统将会通告strTemp1变量没有定义。
通过上面的例子可以看出，在编写程序的时候，要时刻注意变量的作用域的问题。因为在不同模块中修改全局变量会导致模块之间相互影响，违反了进行模块化程序设计的初衷。所以要设计好的程序，就应该尽量减少全局变量的使用。
原文链接：https://www.f2er.com/vb/260774.html