2. 计算机
  3. 编写如下程序代码： Option Base1 Dim arr()As Integer Frivate Sub Command1_Click() Dim i As Intcger，j As Integer ReDim arr(3，2) For i=1To3

编写如下程序代码： Option Base1 Dim arr()As Integer Frivate Sub Command1_Click() Dim i As Intcger，j As Integer ReDim arr(3，2) For i=1To3

admin2018-06-20  34
问题 编写如下程序代码：
Option Base1
Dim arr()As Integer
Frivate Sub Command1_Click()
Dim i As Intcger，j As Integer
ReDim arr(3，2)
For i=1To3
For i=1To2
air(i，j)=i+j
Next i
Next i
ReDim arr(3，4)
For i=3To4
arr(3，j)=j+6
Next i
Print arr(3，2)+arr(3，4)
End Sub
程序运行后，单击命令按钮Command1，输出结果为(    )。
选项 A、15
B、12
C、13
D、10
答案D
解析 题目在过程command1_Click之前声明了动态数组arr，并使用Option Base1语句声明数组下标从1开始，在Command1_Click过程中使用ReDim语句对动态数组进行了定义，arr数组是一个3行2列的数组，接着使用二重For循环给数组中的运算进行赋值，arr(1，1)=1+1=2；arr(1，2)=1+2=3；arr(2，1)=2+1=3；arr(2，2)=2+2=4；arr(3，1)=3+1=4；arr(3，2)=3+2=5。接着继续使用ReDim语句对动态数组进行定义，arr数组被定义为3行4列的数组，并且当重新分配动态数组时，数组中的内容被清除。接着使用For循环给数组元素赋值，循环共执行2次，数组元素arr(3，3)=3+6=9；arr(3，4)=4+6=10。接着使用print方法输出arr(3，2)+arr(3，4)的结果，由于第二次重新分配动态数组，第一次计算出的arr(3，2)的结果被清除，而第二次并未对数组运算arr(3，2)赋值，所以arr(3，2)默认为0，表达式最终的结果为0+10=10，故D选项正确。本题选择D选项。
转载请注明原文地址:https://kaotiyun.com/show/viGp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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