编写如下程序代码: Option Base 1 Dim art()As Integer Private Sub Command1_Click() Dim i As Integer,j As Integer ReDim

admin2016-08-24  50

问题 编写如下程序代码:
    Option Base 1
    Dim art()As Integer
    Private Sub Command1_Click()
    Dim i As Integer,j As Integer
    ReDim arr(3,2)
    For i=1 To 3
    For i=1 To 2
    arr(i,j)=i+j
    Next j
    Next i
    ReDim arr(3,4)
    For i=3 To 4
    arr(3,j)=j+6
    Next j
    Print arr(3,2)+arr(3,4)
    End Sub
    程序运行后,单击命令按钮Command1,输出结果为(    )。

选项 A、15
B、12
C、13
D、10

答案D

解析 题目在过程Command1_Click之前声明了动态数组arr,并使用Option Base 1语句声明数组下标从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)+alT(3,4)的结果,由于第二次重新分配动态数组,第一次计算出的arr(3,2)的结果被清除,而第二次并未对数组运算arr(3,2)赋值,所以arr(3,2)默认为0,表达式最终的结果为0+10=10,故D选项正确。本题选择D选项。
转载请注明原文地址:https://kaotiyun.com/show/o4Lp777K
0

最新回复(0)