第21题: [填空题]下列程序的输出结果是______。
Private Sub Command1_Click（ ）
Dim arr(1To 10)
For i＝1 To 10
arr(i)＝i
Next i
For Each i In arr（ ）
arr(i)＝arr(i)*2+1
Next i
MsgBox arr(7)
End Sub 参考答案:O 答案解析:[解析] 本题考查VBA中For Each…Next循环的知识。For Each…Next循环是一种特殊的循环，这种循环只能用在数组中，用来遍历数组中的每一个元素。本题中的第一个循环为数组的每个元素赋
