数组

一、 选择题

1．用下面的语句所定义的数组的元素个数是（　　）

Dim a(-3 to 5) as integer

A)6 B)7 C)8 D)9

2．用下面的语句所定义的数组的元素个数是（　　）

Dim arr(3 to 5,-2 to 2)

A)20 B)12 C)15 D)24

3．在窗体上画一个命令按钮（其name属性为command1），然后编写如下代码：

Private sub commad1_click()

Dim arr1(10)as integer,arr2(10) as integer

N=3

For i=1 to 5

Arr1(i)=i

Arr2(n)=2*n+i

Next i

Print arr2(n);arr1(n)

End sub

程序运行后，单击命令按钮其输出结果为（　　）

A）11　　3　　　B）3　　11　　C）13　　3　　D）3　　13

4．在窗体上画一个命令按钮（其name属性为command1），然后编写如下代码：

Option base 1

Private sub command1_click()

Dim a(10) as integer,p(3) as integer

K=5

For i=1 to 10

A(i)=i

Next i

For i=1 to 3

P(i)=a(i*i)

Next i

For i=1 to 3

K=k+p(i)*2

Next i

Print k

End sub

运行程序后，单击命令按钮，其输出结果为（　　）

A）5　　　　　　B）28　　　　　C）33　　　　D）3

5．在窗体上画一个命令按钮（其name属性为command1），然后编写如下代码：

Option base 1

Private sub command1_click()

Dim a

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）12　　　　C）34　　　D）1234

6．在窗体上画一个命令按钮（其name属性为command1），然后编写如下代码：

　 Private sub command1_click()

Dim a(4,4)

For i=1 to 4

For j=1 to 4

A(I,j)=(i-1)*3+j

Next j

Next i

For i=3 to 3

For j=3 to 4

Print a(j,i);

Next j

Print

Next i

End sub

程序运行后，单击命令按钮，其输出结果为（　　）

A）6　　9　　　　B）7　　10　　　C）8　　11　　　D）9　　12

7．假定建立了一个名为command1的命令按钮数组，则以下说法中错误的是（　　）

A）数组中每个命令按钮的名称（名称属性）均为command1

B）数组中每个命令按钮的标题（caption属性）都一样

C）数组中所有命令按钮可以使用同一个事件过程

D）用名称command1（下标）可以访问数组中的每个命令按钮

8．在窗体上画一个名称为command1的命令按钮，然后编写如下程序：

Option base 1

Private sub command1_click()

Dim c as integer,d as integer

D=0

C=6

X=array(2,4,6,8,10,12)

For i=1 to 6

If x(i)>c then

D=d+x(i)

C=x(i)

Else

D=d-c

End if

Next i

Print d

End sub

程序运行后，如果单击命令按钮，则在窗体上输出的内容为（　　）

A）10　　　　B）16　　　　C）12　　　　D）20

9．在窗体上画一个命令按钮，名称为command1，然后编写如下事件过程：

Option base 0

Private sub command1_click()

Dim city as variant

City=array(“北京”，“上海”，“天津”，“重庆”)

　 Print city(1)

End sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是（　　）

A）空白　　　　B）错误提示　　　C）北京　　　D）上海

10．在窗体上画一个名称为command1的命令按钮，然后编写如下代码：

Option base 1

Private sub command1_click()

D=0

C=10

X=array(10,12,21,32,24)

For i=1 to 5

If x(i)>c then

D=d+x(i)

C=x(i)

Else

D=d-c

Endif

Next i

Print d

End sub

程序运行后，如果单击命令按钮，则在窗体上输出的内容为（　　）

A）89　　B）99　　C）23　　D）77

二、填空题

1．控件数组的名字由　　　　　　属性指定，而数组中的每个元素由　　　　　属性指定。

2．函数建立的数组的名字必须是　　　　　　　　。

3．在窗体上画一个按钮（其name属性为command1），然后编写代码：

Private sub command1_click()

Dim n() as integer

Dim a,b as integer

A=inputbox(“enter the first number”)

B=inputbox(“enter the secondd number”)

Redim n(a to b)

For k=lbound(n) to ubound(n)

N(k)=k

Print “n(”；k；“)＝”；n(k)

Next k

End sub

程序运行后，单击按钮，在输入中分别输入2和3，结果为　　　　　　　　

4．在窗体上画一个命令按钮（其name属性为command1），然后编写如下代码：

Private sub command1_click()

Dim a(5,5)

For i=1 to 3

For j=1 to 4

A(I,j)=i*j

Next j

Next i

For n=1 to 2

For m=1 to 3

Print a(m,n);

Next m

Next n

End sub

程序运行后，单击命令按钮，其输出结果为　　　　　　　　　　　　。

6．设有程序：

　Option base 1

Private sub command1_click()

Dim arr1,max as integer

Arr1=array(12,435,76,24,78,54,866,43)

=arr1(1)

For i=1 to 8

If arr1(i)>max then

Next i

Print “最大值是：”；max

End sub

以上程序的功能是：用array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。

vb数组单元试卷