A-A+
下列程序的输出结果是()。 Private Sub Command1_Click() Dim
问题详情
下列程序的输出结果是()。
Private Sub Command1_Click()
Dim arr(1 To 10)
For i=1 To 10
Next i
For Each i In arr()
Next i
End Sub请帮忙给出正确答案和分析，谢谢！
参考答案
正确答案：15
15 解析： 本题考查VBA中For Each…Next循环的知识。For Each…Next循环是一种特殊的循环，这种循环只能用在数组中，用来遍历数组中的每一个元素。本题中的第一个循环为数组的每个元素赋值，而第二个循环中更改了这些值。综合两个循环来看，实际上最后arr(i)的值为2*i+1。
