就是自己编写一个子过程（sub等）来实现功能
高阳ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联公司的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：13518219792（备注：SSL证书合作）期待与您的合作！
例 s=1!+2!+3!+4!+...+10!
编程如下：
Dim s As Long
Private Sub Command1_Click()
For i = 1 To 10
Call jc(i) '调用子过程
Sum = Sum + s
Next i
Print s
End Sub
Private Sub jc(ByVal n As Integer) ‘子过程
s = 1
For i = 1 To n
s = s * i
Next i
End Sub
既然是所有窗体都共用，为何不放在Moudle模块里呢？再把窗体名称做为参数传进去。
简单的说：
其实没什么很难理解的东西,所谓(子)过程 你可以简单的理解vb代码中所有的 以 **()开头到 ** end 结束的部分,从格式上上说 这些都是一块一块的! 但是他们的关系并没什么 基本上可以在代码的任何位置插入.
可以说 每一个过程(块)都具有一个独立的功能.所以很多个功能集合或嵌套之后 可以实现更复杂的功能.
通用过程 指放在模块中的过程 (细心点你可以看到模块中的public和窗体中的private关键字)前者是 '公用' 后者是 '私有'!
公用 ---指整个vb工程项目范围内都可以使用
私有---指仅在本窗体中使用
如果 一个过程a调用了很多个过程(比如调用了很多函数),那么这些函数本身就是一段过程代码,那时你可以理解这些函数过程为 这个过程a的子过程.这仅是个相对概念.不是很重要.
重要的是上面说的通用过程,(它在vb代码中是公用的,即你在窗体中写代码,可以之间调用 模块中的各过程,但是其它窗体中不能直接调用另一个窗体中定义的过程.
能理解吗？
sub一般情况下是一个英文前缀，有向下的意思，比如subway（地铁）
submarine（潜水艇）
在计算机中一般是“子……”的意思，比如SubString（子字符串），SubItems（子项）
这儿呢，sub就是指一个“子过程”，一般就简称“过程”，面向对象概念中也叫“方法”。
end
sub标志着子过程的结束，也就是说在sub与end
sub之间，就是这个子过程的内容。
你的 sub过程这个是子过程，无返回值的，这里Form1_Load中b仍然 b=""
如果你想b="注释",将你的sub过程改成自定义函数，用b来接收返回值就行了，代码如下
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim a As String = "rem"
Dim b As String = ""
b = sub过程(b, a)
Me.Text = b '为什么“b”不是等于 "注释"
End Sub
Private Function sub过程(ByVal 输出 As String, ByRef 输入 As String) As String
If 输入 = "rem" Then
输出 = "注释"
End If
Return 输出
End Function
Private Sub 表示这个子过程是私有的，只能在本窗体或本模块中起作用，其他窗体或模块是不能调用这个子过程的；
Sub 或 Public Sub 则表示这是个公共的子过程，工程内的所有窗体和模块都可以调用。