2. 计算机
  3. 编写如下程序代码： Option Base 1 Dim nit()As Integer Private Sub Command I_Click() Dim i As Integer，j As Integer ReDi

编写如下程序代码： Option Base 1 Dim nit()As Integer Private Sub Command I_Click() Dim i As Integer，j As Integer ReDi

admin2018-07-11  35
问题 编写如下程序代码：
    Option Base 1
    Dim nit()As Integer
    Private Sub Command I_Click()
    Dim i As Integer，j As Integer
    ReDim art(3．2)
    For i=1 To 3
    For j=1 To 2
    aiT(i，j)=i+j
    Next j
    Next i
    ReDim arr(3，4)
    For j=3 To 4
    alT(3，j)=j+6
    Next j
    Print arr(3，2)+arr(3，4)
    End Sub
程序运行后，单击命令按钮Commandl，输出结果为(    )。
选项 A、15
B、12
C、13
D、10
答案D
解析 题目在过程commandl—click之前声明了动态数组arr，并使用0ption Base 1语句声明数组下标从1开始，在commandl一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/gsFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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