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

admin2020-08-10  24

问题 编写如下程序代码:
    Option Base 1
    Dim arr(  )As Integer
    Private Sub Command1_Click(  )
        Dim i As Integer,j As Integer
        ReDim arr(3,2)
        For i=1 To 3
           For j=1 To 2
              arr(i,j)=i+j
           Next j
        Next i
        Re Dim m(3,4)
        For j=3 To 4
           arr(3,j)=j+6
        Next i
        Print m(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;air(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=100接着使用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/dqHp777K
0

随机试题
最新回复(0)