for-loop - 在 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

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