2. 计算机
  3. 阅读程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i As Integer,j As Integer ReDim arr(3,2)

阅读程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i As Integer,j As Integer ReDim arr(3,2)

admin2013-04-11  18
问题 阅读程序：  Option Base 1  Dim arr()As Integer  Private Sub Form_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*2+j          Next j      Next i      ReDim Preserve arr(3,4)      For j=3 To 4          arr(3,j)=j+9      Next j      Print arr(3,2)+arr(3,4)    End Sub    程序运行后，单击窗体，输入结果为______。
选项 A、 21
B、13
C、8
D、25
答案A
解析 ReDim语句的功能是为动态数组变量重新分配储存空间。而Preserve的功能是当改变原有数组最末维的大小时，使用此关键字可以保持数组中原来的数据。从题目可以看出，第一个For循环是为第二维为1和 2的数组赋值，而第二个For循环是为第二维为3和4的数组赋值。而arr(3,2)=i*2+i=3*2+2=8， arr(3,4)司+9=-4+9=13，故输出结果为8+13=21。
转载请注明原文地址:https://jikaoti.com/ti/ik60FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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