阅读程序： Option Base 1 Dim arr() As Integer

问题单项选择题

阅读程序： 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 3For j=1 To 2 arr(i，j)=i*2+jNext j Next i ReDim arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为

A．21

B．13

C．8

D．25

答案

参考答案：A

解析：本题考查数组与多重循环等多个知识点。本题是综合性题目，难度较大。首先考生应该了解在Visual Basic中，有四种语句可以用来定义数组的，即Dim、ReDim、Static和Public。这四种语句的格式相同，但是使用的范围不一样。 Dim，建立局部数组、公用数组或模块级数组，在窗体模块或标准模块中定义数组，不能在过程中定义； ReDim，用在过程中；Static，建立局部数组，用在过程中；Public，定义全局数组，用在标准模块中。程序使用多重循环给一个数组赋值，使用一个循环语句给另一个数组赋值，arr(3，2)=8，arr(3，4)=13，所以最终结果是8+13=21，选项A正确。