2. 计算机
  3. 下列程序的输出结果是( )。 Private Sub Command1_Click()For Each i In arr() Dim arr(1To10) For i=1To10 arr(i)=1 Next i arr(i)=arr(i)*2+1 N

下列程序的输出结果是( )。 Private Sub Command1_Click()For Each i In arr() Dim arr(1To10) For i=1To10 arr(i)=1 Next i arr(i)=arr(i)*2+1 N

admin2020-09-01  32
问题 下列程序的输出结果是(    )。
Private Sub Command1_Click()For Each i In arr()
Dim arr(1To10)
For i=1To10
arr(i)=1
Next i
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循环的知识。For Each…Next循环是一种特殊的循环，这种循环只能用在数组中，用来遍历数组中的每一个元素。本题中的第一个循环为数组的每个元素赋值，而第二个循环中更改了这些值。综合两个循环来看，实际上最后arr(i)的值为2*i+1。
转载请注明原文地址:https://www.kaotiyun.com/show/Cecp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)