...额。。对了，你怎么一直在发VB的。。

3.代码（例子）：pubic与private的区别
模块中：
Private Sub mysub1()
'只能在当前模块下使用
End Sub
Public Sub mysub2()
'显示一个对话框，输出的字符串为“call mysub2”
MsgBox "call mysub2"
End Sub
窗体中：
Private Sub command1_click()
mysub2
‘mysub1 不合法
End Sub
4.static静态变量
例子：
模块中：
//无论调用几次，i只会被初始化一次；若去掉static，每次调用都重新给i符值
Public Static Sub mysub2()
Dim i As Long
MsgBox "call mysub2 i=" & CStr(i)
i = i + 1
End Sub
窗体中：
Private Sub command1_click()
mysub2
End Sub

B.传值：
模块中 :
Public Sub mysub2(ByVal n As Long)
n = n + 100
End Sub
窗体中
Private Sub Command1_Click()
Dim m As Long
m = 100
mysub2 m
MsgBox "m=" & CStr(m) End Sub
运行结果：m=100