菜鸟提问:急！为什么全局变量部全局？

chenkai_c

我是菜鸟，请各位高手大虾们帮帮忙！

在一个模块中写的代码：

Option Compare Database
Public I As Integer
Function sumI(ByRef D As Integer)
    For D = 0 To 20
        D = D + 1
        Debug.Print D
    Next
End Function

Function DebugI(ByRef F As Integer)
        Debug.Print F
End Function
Sub Main()
    sumI (I)
    DebugI (I)
End Sub

执行结果如下：

1
3
5
7
9
11
13
15
17
19
21
0

为什么变量不按照引用传递？为什么在sumI()中改变不了I的值？

还有就是在一个模块中定义了一个全局数组如下：

public Array(10) As String

Public Sub1()

      在此改变Array()的值

End Sub

Public Sub2()

     在此调用Array()的值

End Sub

为什么Sub1()中改变了Array()的值，在Sub2()中调用不出来？有什么办法可以调用吗？

chenkai_c

急啊！

andymark

在sumI的Function中，无论D怎样变下面的代码也不会改变，当然不会传递数值

  For D = 0 To 20
      D = D + 1