什么方法可以使得参数值传递多次

Question

如果程序分多个部分,它们之间是依次调用关系,如何将第一部分的某参数值(如:I = 1),传递到第二部分以后.
我发现只能传递到第二部分,如到了第三部分,则失效了,I变为空.即使将I设为Public Const,也不行.
我想在第二部分里面将I肤质给J,再将J传递到第三部分,应该是可以的,但感觉方法太笨了.哪位知道?谢谢!

Answer 1

对不起,上面描述有点错误.
使用Public Const是可行的,但感觉还是麻烦也有点笨.

Answer 2

问题描述不清楚，“部分”是一个什么概念？是一个sub？function？bas？form？
变量的作用域，是一个很基本的问题，楼主还要加强一下基础知识的学习。

Answer 3

Private Function X(ByVal I As Integer) As Integer
X = I
End Function
Private Function Y(ByVal I As Integer) As Integer
Y = I
End FunctionPrivate Function Z(ByVal I As Integer) As Integer
Z = I
End FunctionPrivate Sub Command1_Click()
L = X(5)
L = Y(L)
L = Z(L)
MsgBox L
End Sub

Answer 4

sub1里面的I值通过如下方式传递,但所有使用I值的地方,都不会是I值改变.
sub1:
I = 1
call sub2()sub2(I):
此子程序也用到了I.
call sub3()sub3:
在此计算时候用到了I,但dubug看到的结果I为空