VB 麻烦各位网友给我注释下,万分感谢!

Private Sub Form_Click()
Dim i As Integer
For i = 1 To 3
s = sum(i) '//调用sum函数，并将计算结果赋给变量s
Print "s="; s '//每一次for循环，输出本次s的值
Next i
'//三次for循环中，依次输出的s值为：2 ，5，9

End Sub
Private Function sum(n As Integer) ’//定义一个sum函数，实现对参数n的累加，并将计算结果以函数返回值的形式传给sum
Static j As Integer
j = j + n + 1
sum = j
End Function

Private Sub Form_Click()'鼠标点击窗体事件
Dim i As Integer'声明整型变量i
For i = 1 To 3'开始循环,循环变量i，从1开始，到3，步长为1（默认是1）
s = sum(i)'调用函数sum，并将结果赋值给变量s
Print "s="; s'窗体上打印s
Next i'循环结束

End Sub
Private Function sum(n As Integer)'函数sum，参数为整型n
Static j As Integer'声明静态变量j（静态变量在本函数调用结束后，保留其值）
j = j + n + 1'
sum = j'输出函数值
End Function