第7章VB习题及答案

第7章 习题与答案

一、 选择题

1.如下数组声明语句，正确的是

（A）Dim a[3,4]As Integer （B）Dim a(3,4)As Integer （C）Dim a(n,n) As Integer （D）Dim a(3,4)As Integer 2.要分配存放如下方阵的数据：

1.1 2.2 3.3 4.4 5.5 6.6 7.7 8.8 9.9

数组声明语句能实现（不能浪费空间）的是

(A) Dim a(9) As Single （B）Dim a(3,3) As Single （C）Dim a (-1 To 1,-5 To -3) As Single （D）Dim a (-3 To 1,-5 To 7) As Integer 3.如下数组声明语句： Dim a(3,-2 To 2,5) 则数组a包含的元素的个数为

（A）120 （B）75 （C）60 （D）13 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）49 （B）0 （C）不确定 （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 （B）1 2 3 （C）1 2 3 2 3 1 1 2 3 2 4 6 2 2 2 3 2 3 1 2 3 3 6 9 3 3 3 6.以下程序

D）1 1 1

（

Option Base 1

Private Sub Command1_Click() Dim a,B(3,3)

a=Array(1,2,3,4,5,6,7,8,9) For i=1 To 3 For j=1 To 3 B(i,j)=a(i*j)

If(j＞=i) Then Print Tab(j*3);format(B(i,j),“###”); Next j Print Next I End Sub 输出结果是

(A)1 2 3 (B)1 (C)1 4 7 (D)1 2 3 4 5 6 4 5 2 4 6 4 6 7 8 9 7 8 9 3 6 9 9 7.要存储n个单精度数，下列语句正确的是

(A)n=InputBox(“input n”) (B)Dim a()As Single Dim a (1 To n)As Single n=InputBox(“input n”) ReDim a(1 To n) (C)Dim a()As Integer (D)Dim a(n)As Single n=InputBox(“input n”) ReDim a(n) Single

8.已知有数组声明：Dim a(-1 To 3,2 To 5)As integer,如下引用数组中的元素，正确的是

（A）a(-1,2) （B）a(4) （C）a[-1,2] （D）a(0,6) 9.下列有关控件数组与一般控件的区别的叙述中，最合理的是

(A) 控件数组一定由多个同类型的控件组成，一般控件只有一个控件；

(B) 控件数组的Index为0，而一般控件的Index为空； (C) 控件数组的Index为1，而一般控件的Index为0； （D）控件数组的建立通过Dim语句声明，而一般控件不必声明。 二、填空题 1.矩阵转置

矩阵转置就是将一个n×m的矩阵行和列互换。例如矩阵： a= ,转置后的矩阵为b=

要实现如本例所示的功能，程序如下： Option Base 1

Private Sub Command1_Click() Dim a%(2,3),b(3,2),i%,j%,n% n=5

For i=1 To 2 For j=1 To 3 (1) n=n+5

Print a(I,j); Next j Print