参考答案：C

解析：

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