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

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

admin2013-01-23  33
问题 阅读程序:
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
    Next
ReDim Preserve arr(3,4)
    For j=3 To 4
         arr(3,j)=j+9
    Next
    Print arr(3,2)+arr(3,4)
End Sub
程序运行后,单击窗体,输出结果为
选项 A、21       
B、13
C、8
D、25
答案B
解析 每次使用ReDim语句都会使原来数组中的值丢失,也可以在ReDim后加Preserve参数来保留数组中的数据,但使用Preserve只能改变最后一维的大小,前面几维大小不能改变,而在本题中arr(3,2)始终都未赋值,arr(3,4)=4+9=13,故最后为13。
转载请注明原文地址:https://kaotiyun.com/show/tvhp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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