在For循环中使用Each

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

您无法使用For Each（*）返回的索引器设置数组元素，因此您必须执行以下操作：

Dim Arr(4)

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

For Each Element in Arr
    MsgBox Element
Next

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

Answer 2

对于每个循环，仅适用于预先存在的数组数据。不能用于分配。

如果需要在每个循环中使用，可以使用以下方法：

Dim Arr(4)

i=0

For Each Element in Arr
   Arr(i)= InputBox("Enter Data")
   i++

Next

我实际上并不了解语法，但是以下概念将帮助您提供数组中的数据。