求解答……各位大侠帮帮忙……急用

Question

怎么在VB中的一个过程中调用前一个过程中的变量，比如前一个过程中变量A的最后取值是X，怎么在下一个过程中继续用A的值……

Answer 1

用 ByRef 传值Sub Main()
    Dim i As Long
    i = 2
    Call Foo(i)
    MsgBox i
End SubSub Foo(ByRef i)
    i = i + 1
End Sub

Answer 2

将A定义为模块变量dim a as longsub sub_1
a=30
end subsub sub_2
print a
end subsub command1_click
sub_1sub_2
end sub