下列程序的输出结果是( )。 Private Sub Command l—C1ick() Dim arr(1 To 10) For i=l T0 10 arr(i)=i Next

admin2020-07-25  10

问题 下列程序的输出结果是(    )。
    Private Sub Command l—C1ick()
       Dim arr(1 To 10)
       For i=l T0 10
          arr(i)=i
       Next i   
       For Each i In art0
         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循环的知识。ForEach…Next循环是一种特殊的循环,这种循环只能用在数组中,用来遍历数组中的每一个元素。本题中的第一个循环为数组的每个元素赋值,而第二个循环中更改了这些值。综合两个循环来看,实际上最后arr(i)的值为2*i+1。
转载请注明原文地址:https://kaotiyun.com/show/oxcp777K
0

最新回复(0)