在For循环中使用每一个

Question

我试图使用For循环中的Each关键字来输入数组中的值，但我无法在下面的代码中执行它，你能帮我理解下面的代码中的错误吗？ 。

Dim Arr(4) 

For Each Element in Arr 

    Element = InputBox("Enter Data") 

Next 

'Nothing is getting stored in the Array: Arr() 

Answer 1

使用索引从每个（*）返回你不能设置一个数组元素，所以你必须做这样的事情，而不是：

Dim Arr(4) 

For i = 0 to 4 
    Arr(i) = InputBox("Enter Data") 
Next 

For Each Element in Arr 
    MsgBox Element 
Next 

（*）我想猜测它是实际值的副本