1. Sub子程序定义
语法：
[Private|Public] Sub 子程序名(参数表)
语句块
[Exit Sub | Return]
语句块
End Sub
其中：
*Sub，End Sub是子程序的开始和结束标志 。
参数表是调用该子程序时需进行传递的参数说明，有关参数格式和传递请见3.6.4节 。
*子程序名遵循标识符命名规则 。
*Private|Public说明了子程序的访问控制类型，默认为Public 。
*Exit Sub/Return允许中途强制退出子程序 。
例如，以下Add子程序求出两个参数a和b之和并输出：
Sub Add(ByVal a As Integer, ByVal b As Integer)
Dim c As Integer
c = a+b
Response.Write("c=" & c)
En Sub
2. 调用Sub子程序
调用Sub子程序有两种格式，使用Call或直接通过子程序名进行调用 。
语法：
[Call] 子程序名[(参数表)]
其中，参数表为实在参数表，参数个数和数据类型必须与形式参数表相一致 。关键字Call可以省略 。例如，可使用以下任一种格式对Add子程序进行调用：
Call Add(10,20)
Add(10,20)
注意，当Sub子程序没有参数时，子程序名之后的一对括号必须省略 。
【例3.7】 改写例3.1，将显示当前时间的操作设计为子程序Display，再使用“Call Display”语句对其进行调用 。
源代码如下（Ex3-7.aspx）：
<%@ Page Language="vb"%>
<% Call Display %>
|
【责任编辑：老杨 Tel：(010)68576606-8005】
