[单项选择题] 阅读程序: Option Base 1 Dim art()As Integer Private Sub Form_Click() Dim i As Integer,j As I

13 查阅

[单项选择题] 阅读程序:

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。

计算机考试