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

编写如下程序代码： Option Base 1 Dim aft()As Integer Private Sub Command1_Click() Dim i As Integer，j As Integer ReDim

admin2020-07-22  61
问题 编写如下程序代码：
    Option Base 1
    Dim aft()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
    alT(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
解析 题目在过程commandl_Click之前声明了动态数组arr，并使用Option Base 1语句声明数组下标从l开始，在commandl_Click过程中使用ReDim语句对动态数组进行了定义，arr数组是一个3行2列的数组，接着使用二重For循环给数组中的运算进行赋值，arr(1，1)=l+l=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://www.kaotiyun.com/show/Q0Hp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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