Sub过程的编写示例

Sub过程的编写示例
【例1】编写计算n! 的Sub过程。

分析：在使用函数过程求n!的示例中，阶乘值由函数名返回，因此只需设置一个参数n，如果改成用Sub过程实现，由于Sub过程名不能返回值，所以需要在形参表中引入另一个参数来返回阶乘值。

Sub Fact(N As Integer, F As Long) ' 参数F用于返回阶乘值
Dim I As Integer
F = 1
For I = 1 To N
F = F * I
Next I
End Sub
【例2】编写Sub过程，打印以下图形。

*
***
*****
*******
*********
分析：打印以上图形，不需要返回值，因此可以用Sub过程实现，该过程也无需引入参数。

Sub a()
For I = 1 To 5
Print Tab(6 - I);
For J = 1 To 2 * I - 1
Print "*";
Next J
Print
Next I
End Sub
【例3】编写Sub过程，求三个数中的最大数和最小数。

分析：首先要设置三个参数，如x、y、z，用于接收三个原始数据，另外引入两个参数max和min，用于返回最大和最小数。

Sub s(x, y, z, max, min)
max = x
min = x
If y > max Then max = y If y < min Then min = y If z > max Then max = z If z < min Then min = z End Sub。