阅读程序：Option Base 1Dim arr（） As IntegerPrivate Sub Form_Click（）Dim i As Integer, j As IntegerReDim arr（3, 2）For i = 1 To 3For j = 1 To 2arr（i, j） = i * 2 + jNext jNext iReDim Preserve arr（3, 4）For j = 3 To 4arr（3, j） = j + 9Next jPrint arr（3, 2） + arr（3, 4
题目
阅读程序：
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
相似考题
更多“阅读程序: OptionBase1Dimarr()AsIntegerPrivateSubForm_Click() DimiAsInteger,jAsInte ”相关问题
-
第1题：
有以下程序： 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．813
B．013
C．712
D．00
正确答案：A
解析：ReDim语句的功能是为动态数组变量重新分配存储空间。而Preserve的功能是当改变原有数组最末维的大小时，使用此关键字可以保持数组中原来的数据。从题目可以看出，第一个For循环是为3行2列的数组赋值，而第二个For循环是为第3行的第3、4列赋值。而arr(3,2)＝i*2+j＝3*2+2＝8，arr(3,4)＝j+9＝4+9＝13，故输出结果为8、13。 -
第2题：
阅读程序： 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。 -
第3题：
阅读程序： Option Base 1 Dim arr() As Integer Private Sub Form. Click() Dim i As Integer，i 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 arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为
A．21
B．13
C．8
D．25
正确答案：A
解析：本题考查数组与多重循环等多个知识点。本题是综合性题目，难度较大。首先考生应该了解在VisualBasic中，有四种语句可以用来定义数组的，即Dim、ReDim、Static和Public。这四种语句的格式相同，但是使用的范围不一样。Dim，建立局部数组、公用数组或模块级数组，在窗体模块或标准模块中定义数组，不能在过程中定义；ReDim，用在过程中；Static，建立局部数组，用在过程中；Public，定义全局数组，用在标准模块中。程序使用多重循环给一个数组赋值，使用一个循环语句给另一个数组赋值，arr(3，2)=8，arr(3，4)=13，所以最终结果是8+13=21，选项A正确。 -
第4题：
阅读程序： Option Base 1 Dim arr( )As Integer Private Sub Form_Click( ) Dim i AsInteger，j As Integer ReDim arr(3，2) For i=1 To 3 Forj=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 Nextj 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。 -
第5题：
阅读程序：
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
an(i,j) =i*2+j
Next
Next
ReDim Preserve an(3,4)
For j=3 To 4
an(3,j) =j+9
Next
Print arr(3,2) +air(3,4)
End Sub
程序运行后，单击窗体，输出结果为
A．21
B．13
C．8
D．25
正确答案：B
解析：每次使用ReDim语句都会使原来数组中的值丢失，也可以在ReDim后加Preserve参数来保留数组中的数据，但使用Preserve只能改变最后一维的大小，前面几维大小不能改变，而在本题中arr(3,2)始终都未赋值，alt(3,4)=4+9=13，故最后为13。