Next i

ReDim Preserve a(3, 4） For j = 3 To 4

a(3, j） = j + 9 Next j

Print a(3, 2）; a(3, 4） End Sub

程序运行后，单击窗体，输出结果是___________。 A、 8 13 B、 0 13 C、 7 12 D、 0 0 13、下面的数组声明语句中__________是正确的。 A、Dim a[3,4] as Integer B、Dim a(3, 4) As Integer C、Dim a[3;4] as Integer D、Dim a(3:4) as Integer 14、设有数组声明语句： Option Base 1

Dim A(2) As Integer

则数组A的下界为__________。

A、0 B、1 C、2 D、不能确定 15、以下说法不正确的是__________。

A、使用ReDim语句可以改变动态数组的维数

B、若用Dim语句定义了动态数组的类型，可以用ReDim更改为其它类型 C、使用ReDim语句可以改变动态数组每一维的大小

D、使用ReDim语句可以对动态数组中的所有元素进行初始化 16、用Array函数给某X赋值时，X必须是__________。 A、已经声明的静态数组 B、已经声明的动态数组 C、Variant类型的变量 D、整型变量

17、设有数组声明语句： Option Base 1

Dim A(-1 To 2) As Long

则函数UBound(A)的值为__________。

A、0 B、－1 C、1 D、2

18、设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法中错误的是__________。

A、命令按钮的Caption属性都是Command1

B、在代码中访问任意一个命令按钮只需使用名称Command1 C、命令按钮的大小都相同

D、命令按钮共享相同的事件过程

19、在窗体上画 1 个命令按钮，并编写如下事件过程： Private Sub Commandl Click() Dim a(3,3) For m=1 To 3

15

For n=1 To 3

If n=m Or n=4-m Then a(m,n)=m+n Else

a(m,n)=0 End If

Print a(m,n); Next n Print Next m End Sub

运行程序，单击命令按钮，窗体上显示的内容为__________。

200204230200040040340045 A、006 B、406 C、006 D、056

20、下列程序段的执行结果为__________。 Dim A(3) For i = 1 To 3 A(i) = i * i Next i

Print A(i - 1)

A、16 B、9 C、4 D、1 21、以下__________是VB中合法的数组元素表示法。

A、X9 B、X[9] C、X{9} D、X(9) 22、设有数组声明语句： Option Base 1

Dim A(-1 to 2) As Integer

则数组A中共有__________个元素。

A、2 B、3 C、4 D、不能确定 23、使用语句Dim A(1 To 15) As Integer声明数组A之后，下面说法中正确的是__________。 A、数组中所有元素的值为0 B、数组中所有元素的值不确定 C、数组中所有元素的值为空串 D、以上说法均不对

24、在以下语句中，a只能是__________。 Dim X(15) For Each a In X Print a; Next a

A、已经声明的静态数组 B、已经声明的动态数组 C、Variant类型的变量 D、整型变量 25、设有数组声明语句： Option Base 1

16

Dim A(2) As Long

则函数LBound(A)的值为__________。

A、0 B、－1 C、1 D、2

26、在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1。设窗体Form1标题为“myform1”，双击控件数组中的第三个按钮，打开代码编辑器，写如下代码： Private Sub M1_Click(Index As Integer) Form1.Caption = \End Sub

运行时单击按钮数组中的第一个按钮，则窗体显示标题为__________。 A、Form1 B、M1 C、myform1 D、myform2

27、在窗体上画一个名为 Command1 的命令按钮，然后编写如下代码： Option Base 1

Private Sub Command1_Click() Dim a, s As Integer a = Array(1, 2, 3, 4) j = 1

For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub

运行上面的程序，其输出结果是__________。

A、1234 B、12 C、34 D、4321

28、窗体上有 Command1、Command2 两个命令按钮。现编写以下程序： Option Base 0

Dim a( ) As Integer, m As Integer Private Sub Command1_Click( )

m=InputBox(\请输入一个正整数\ ReDim a(m) End Sub

Private Sub Command2_Click( )

m=InputBox(\请输入一个正整数\ ReDim a(m) End Sub

运行程序时，单击 Command1 后输入整数 10，再单击 Command2 后输入整数 5，则数组 a 中元素的个数是__________。

A、5 B、6 C、10 D、11 29、下面有关数组的说法中，错误的是__________。 A、一般而言，数组必须先定义后使用 B、数组的下界必须从0开始

C、Erase语句的作用是对已定义固定大小数组的值重新初始化 D、定义数组时，数组维界值可以不是整数

30、下面有关数组处理的叙述中，不正确的是__________。

17

A、过程中用ReDim语句重定义动态数组时，其下标的上下界可为赋了值的变量 B、在过程中，可以使用Dim、Private和Static语句定义数组

C、用ReDim语句重新定义动态数组时，不得改变该数组的数据类型

D、在ReDim语句中使用Preserve语句时，只能改变数组最后一维的维上界

18