在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

(*)我猜它是实际值的副本