数组和自定义类型

　　一、 单选题

　　1. 下面数组声明语句，_________正确。

　　A） Dim a[2,4] As Integer

　　B） Dim a(2,4) As Integer

　　C） Dim a(n,n) As Integer

　　D） Dim a(2 4) As Integer

　　2．要分配存放如下方阵的数据，可使用________数组声明语句来实现（不能浪费空间）。

　　A） Dim x(9) As Single

　　B） Dim x(3,3) As Single

　　C） Dim x(-1 to 1, -5 to -3) As Single

　　D） Dim x(-3 to -1, 5 to 7) As Integer

　　3. 下面数组声明语句中，数组包含元素个数为 ________。

　　Dim a(-2 to 2,5)

　　A） 120

　　B） 30

　　C） 60

　　D） 20

　　4．下面程序的输出结果是 ________。

　　Dim a

　　a = Array(1,2,3,4,5,6,7)

　　For i = Lbound(A） to Ubound(A）

　　a(i) = a(i) * a(i)

　　Next i

　　Print a(i)

　　A） 36

　　B） 程序出错

　　C） 49

　　D） 不确定

　　5．下面程序的输出结果是 ________。

　　Option Base 1

　　Private Sub Command1_Click()

　　Dim a%(3, 3)

　　For i = 1 To 3

　　For j = 1 To 3

　　If j > 1 And i > 1 Then

　　a(i, j) = a(a(i - 1, j - 1), a(i, j - 1)) + 1

　　Else

　　a(i, j) = i * j

　　End If

　　Print a(i, j);

　　Next j

　　Print

　　Next i

　　End Sub

　　A）1 2 3

　　2 3 1

　　3 2 3

　　B） 1 2 3

　　1 2 3

　　1 2 3

　　C） 1 2 3

　　2 4 6

　　3 6 9

　　D） 1 2 3

　　2 2 2

　　3 3 3

　　6．以下定义数组或给数组元素赋值的语句中，正确的是______。

　　A）Dim a As Variant

　　a = Array(1,2,3,4,5)

　　B）Dim a(10) As Integer

　　a = Array(1,2,3,4,5)

　　C）Dim a%(10)

　　a(1) = "ABCDE"

　　D）Dim a(3),b(3) As Integer

　　a(0) = 0

　　a(1) = 1

　　a(2) = 2

　　b = a

　　7．设有如下的记录类型

　　Type Student

　　number As String

　　name As String

　　age As Integer

　　End Type

　　则正确引用该记录类型变量的代码是______。

　　A）Student.name ="张红"

　　B）Dim s As Student

　　s.name ="张红"

　　C）Dim s As Type Student

　　s.name ="张红"

　　D）Dim s As Type

　　s.name ="张红"

　　8. 在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码：

　　Option Base 1

　　Private Sub Command1_Click()

　　Dim a

　　s=0

　　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）4321

　　B）1234

　　C）34

　　D）12

　　9. 执行以下Command1的Click事件过程在窗体上显示______。

　　Option Base 0

　　Private Sub Command1_Click( )

　　Dim a

　　a=Array("a","b","c","d","e","f","g")

　　Print a(1);a(3);a(5)

　　End Sub

　　A）abc

　　B）bdf

　　C）ace

　　D）无法输出结果

　　10. 在窗体上画一个名称为Command1 的命令按钮，然后编写如下事件过程：

　　Option Base 1

　　Private Sub Command1_Click()

　　Dim a

　　a = Array(1, 2, 3, 4, 5)

　　For i = 1 To UBound(A）

　　a(i) = a(i) + i – 1

　　Next

　　Print a(3)

　　End Sub

　　程序运行后，单击命令按钮，则在窗体上显示的内容是______。

　　A）4

　　B）5

　　C）6

　　D）7