选择题 37. 下列程序的运行结果是______。
Private Sub Command1_Click()
Dim arr(1 To 10)
For i=1 To 10
art(i)=i
Next i
ForEach i In arr()
arr(i)=arr(i)*2+1
Next i
MsgBox arr(7)
End Sub

A、 11
B、 13
C、 15
D、 17

【正确答案】 C

【答案解析】[考点] 本题考查VBA中For Each... Next循环的知识。
For Each... Next循环是一种特殊的循环，这种循环只能用在数组中，用来遍历数组中的每一个元素。本题中的第一个循环为数组的每个元素赋值，而第二个循环中更改了这些值。综合两个循环来看，实际上最后arr(i)的值为2*i+l。