下列程序的输出结果是( )。 Private Sub Command1_Click() Dim arr(1 To 10) For i=1 To 10 Next i For Each i In arr

admin2011-06-07  15

问题 下列程序的输出结果是(       )。
   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

解析  本题考查VBA中For Each…Next循环的知识。For Each…Next循环是一种特殊的循环,这种循环只能用在数组中,用来遍历数组中的每一个元素。本题中的第一个循环为数组的每个元素赋值,而第二个循环中更改了这些值。综合两个循环来看,实际上最后arr(i)的值为2*i+1。
转载请注明原文地址:https://jikaoti.com/ti/jHw0FFFM
0

随机试题
最新回复(0)