数组练习题

数组练习题

08级（3—6）12月13日

一、

选择题

1、定义10个单精度实型一维数组正确的语句是（ ） A、dim abc(9) as single B、 option base 1:dim abc(9) C、 dim abc#(9)

D、dim abc(10) as single

2、用Dim AABB(-2 to 10,4 to 8,1)声明的是一个（ ）维数组。 A、1 B、2 C、3 D、4

3、用下面的语句所定义的数组的元素个数是（ ） Dim S1(-2 To 4) As Integer A、6 B、7 C、8 D、9

4、在窗体上画一个按钮（其NAME属性为Command1），然后编写如下代码： Private sub Command1_Click()

Dim arr1(10) As Integer,arr2 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

5、在窗体上画一个按钮（其NAME属性为Command1），然后编写如下代码： Option Base 1

Private sub Command1_Click()

Dim a(10) As Integer, p(3) As Integer

1

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、35 B、28 C、33 D、37

6、在窗体上画一个按钮（其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

7、在窗体上画一个按钮（其NAME属性为Command1），然后编写如下代码：

2

Option Base 1

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 4

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 10 8 11 9 12 10 13 8、有如下程序段：

N＝－5：M＝6 DIM A（N TO M）

FOR I＝LBOUND（A，1） TO UBOUND（A，1） A（I）＝I NEXT I

PRINT A（LBOUND（A，1）），A （UBOUND（A，1）） 运行后输出的结果是＿＿＿＿。

A、0 0 B、－5 0 C、－5 6 D、0 6 9、有如下程序段：

DIM A （3,3） AS INTEGER

3

FOR M＝1 TO 3 FOR N＝1 TO 3

A（M－1，N－1）＝M＋N－1 NEXT N，M FOR M＝0 TO 2 FOR N=0 TO 2

PRINT A（N，M）； NEXT N PRINT NEXT M

运行后输出的结果为＿＿＿＿。

A、0 1 2 B、1 2 3 C、1 3 1 2 3 2 3 4 3 5、下面程序段的功能为＿＿＿。

K＝0

DIM A（10） FOR I＝1 TO 10

A（I）＝INT （RND＊100） NEXT I INPUT X FOR

I＝1 TO 10

IF X＝A（I） THEN K＝K＋1 NEXT I PRINT K

A．查找X在数组A中的位置 B．统计X在数组A中出现的次数 C．显示有数组A中与X相同的所有的数 D．计算数组A中与X相同的所有数值之和

4

5 D、2 4 6 7 4 6 8 10