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

admin2012-03-22  28

问题 阅读程序:    Option Base 1    Dim art()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 ale(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/Dmhp777K
0

最新回复(0)