u
Function过程Function过程的定义格式为：
[ 说明符 ] Function 函数名 （参数列表）As 类型说明符
局部变量或常量声明
语句序列
函数名=表达式
End Function
调用Function过程的格式为：
变量名=函数名（参数列表
例题3：计算S=1！+2！+3！+……+20！
思路分析：
考虑编写通用过程计算n!，然后调用该通用过程计算1！+2！+3！+……+20！。由于n!的计算结果是一个值，因此可选用Function过程。
Private Sub Form_Click()
DimS As Single, I As Integer
S = 0
For I = 1 To 20
S = S + FACT(I)
Next I
Print "1!+2!+……20!=", S
End Sub
Function FACT(n As Integer) As Single
Dim I As Integer, temp As Single
temp = 1
For I = 1 To n
temp = temp * I
Next I
FACT = temp
End Function
vSub过程
Sub过程的定义格式为：
[ 说明符 ] Sub 过程名 （参数列表）
局部变量或常量声明
语句序列
End Sub
调用Function过程的格式为：
[ Call ] 过程名（参数列表）
例题4：在窗体上多次打印指定个数的*号。
思路分析：
考虑编写通用过程打印*号，然后调用该通用过程多次打印指定个数的*号。由于该通用过程仅仅进行打印操作，无返回值，因此可选用Sub过程。
SubMyPrint(NAs Integer)
Dim i As Integer
For i = 1 To N
Print "*";
Next i
End Sub
PrivateSub Form_Click()
MyPrint (5)
MyPrint (20)
MyPrint (100)
EndSub