vb数组题型分析

※数组题型分析

29. 以下有关数组的说明中，错误的是___29___。

(A)根据数组说明的方式，可将数组分为动态数组和静态数组

(B)在过程中，不能用Private语句定义数组

(C)利用ReDim语句重新定维时，不得改变已经定义说明过的数组的数据类型

(D)数组重新定维后，原有的数组元素内容将不予保留

答案：D

分析：要保留数组元素原有的内容用Preserve语句。

26．下面有关数组处理的叙述中，不正确的是26。

①在过程中用ReDim语句定义的动态数组，其下标的上下界可为赋了值的变量

②在过程中，可以使用Dim、Private和Static语句定义数组

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

④可用Public语句在窗体模块的通用说明处定义一个全局数组

(A)①②③④(B)①③④(C)①②③(D)②④

答案：D

分析：在过程中不能用Private定义数组；Public用在标准模块中定义数组。

31. 名为sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是___31___。

(A)Private Sub sort(A() As Integer)

(B)Private Sub sort(A(10) As Integer)

(C)Private Sub sort(ByVal A() As Integer)

(D)Private Sub sort(A(,) As Integer)

答案：A

分析：数组参数必须为ByRef方式（传地址方式）传送。

27. 下列关于数组的叙述中，错误的是___27___。

(A)在过程中可以用Dim语句对形参数组进行说明

(B)数组是同类变量的一个有序的集合

(C)数组元素可以是控件

(C)数组在使用之前，必须先用数组说明语句进行说明

答案：A

分析：形参中不使用Dim语句说明变量和数组。

31. 某过程的说明语句中，正确的数组说明语句是___31___。

Const N As Integer=4

Dim L As Integer

①Dim X(L) As Integer

②Dim A(K) As Integer

Const K As Integer=3

③Dim B(N) As Integer

④Dim Y(2000 to 2008) As Integer

(A)①②④(B)①③④(C)③④(D)②③

答案：C

分析：在定义数组时，每一维的元素个数必须是常数，不能是变量或表达式。

(27)下列语句中的[27]语句可以用来正确地声明一个动态数组。

(A)Private A(n) As Integer(B)Dim A() As Integer

(C)Dim A(,) As Integer(D)Dim A(1 to n)

答案：B

分析：给数组附以一个空维数表，这样就将数组声明为动态数组。

25．在窗体的通用声明处有语句Dim A() As Single，以下在某事件过程中重定义此数组的一组正确语句是：25。

(A) ReDim A(3,3) (B) ReDim A(3,3)

ReDim A(4,4) As Integer ReDim Preserve A(4,4)

(C) ReDim A(3,3) (D) ReDim A(3,3)

ReDim A(3,3) As Integer ReDim Preserve A(3,4)

答案：D

分析：ReDim语句在用Preserve 关键字时，只能改变多维数组中最后一维的上界；如果改变了其它维或最后一维的下界，那么运行时就会出错。

28．定义两个过程Private Sub1(St()As String)和Private Sub2(Ch()As String*6)，在调用过程中用Dim S(3) As String*6，A(3) As String定义了两个字符串数

组。下面调用语句中正确的有28。

①Call Sub1(S) ②Call Sub1(A) ③Call Sub2(A) ④Call Sub2(S)

(A)①②(B)①③(C)②③(D)②④

答案：D

分析：实参和形参的类型要对应。

27.以下有关控件数组的说法中错误的是＿(27)＿。

(A)控件数组由一组具有共同名称和相同类型的控件组成

(B)控件数组中的每一个控件共享同样的事件过程

(C)控件数组中的每个元素的下标由控件的Index属性指定

(D)同一控件数组中的元素只能有相同的属性设置值

答案：D

分析：

27.下列有关数组的说法中，不正确的是。

(A)在窗体模块中不可以定义全局数组

(B)可以使用Erase语句释放所有数组所占据的存储空间

(C)语句Dim X(3.6+2) As Integer定义了一个维上界是6的一维的整形数组

(D)形参数组的类型可以是定长字符串类型

答案：B

分析：使用Erase语句重新初始化固定大小的数组中的元素，以及释放动态数组存储空间。

29．下面有关数组的说法中，错误的是。

A）数组必须先定义后使用

B）数组形参可以是定长字符串类型

C）Erase语句的作用是对已定义数组的值重新初始化

D）定义数组时，数组维界值可以不是整数

解析：Erase语句重新初始化大小固定的数组的元素，以及释放动态数组的存储空间。答案：C

28. 以下有关数组的说法中，正确的是_____。

A.数组是有序变量的集合，序列中的变量类型可以不同

B.数组下标用以确定数组元素在数组中的位置，下标取值只能是0或1

C.在一定条件下动态数组可以反复改变其维数与大小

D.固定大小数组也可以使用ReDim语句改变其大小

答案：C

分析：固定大小数组不能使用ReDim语句改变其大小。

28．下面有关数组的说法中，是错误的。

A) 在模块中由于未使用Option Explicit语句，所以数组不用先定义就可以使用，只不过是Variant类型

B) 过程定义中，形参数组可以是定长字符串类型

C) Erase语句的作用是对固定大小数组的值重新初始化或收回分配给动态数组的存储空间

D) 定义数组时，数组维界值可以不是整数

答案：C

24．以下说法不正确的是24 。

A) 使用不带关键字Preserve的ReDim语句可以重新定义数组的维数

B) 使用不带关键字Preserve的ReDim语句可以改变数组各维的上、下界

C) 使用不带关键字Preserve的ReDim语句可以改变数组的数据类型

D) 使用不带关键字Preserve的ReDim语句可以对数组中的所有元素进行初始化

答案：C

27. 以下对数组参数的说明中，错误的是27 。

A) 在过程中可以用Dim语句对形参数组进行声明

B) 形参数组只能按地址传递

C) 实参为动态数组时，可用ReDim 语句改变对应形参数组的维界

D) 只需把要传递的数组名作为实参，即可调用过程

答案：A

24．以下有关数组参数的说明中正确的是24 。

A)在过程中也可用Dim语句对形参数组进行说明

B)动态数组作为实参时，可用ReDim语句在过程中改变对应形参数组的维界

C)调用过程时，数组名不能作为实参

D)数组可以按地址传递也可以按值传递

答案：B

30．下面有关数组的说法中，正确的是30 。

A) 数组的维下界不可以是负数

B) 模块通用声明处有Option Base 1，则模块中数组定义语句Dim A(0 To 5) 会与之冲突

C) 模块通用声明处有Option Base 1，模块中Dim A(0 To 5)，则A数组第一维维下界为0

D) 模块通用声明处有Option Base 1，模块中Dim A(0 To 5)，则A数组第一维维下界仍为1 答案：C

解析：以模块中Dim的定义为优先。

25．下面有关数组处理的叙述中，正确的是________。

A)在过程中使用ReDim语句可以改变动态数组的数据类型

B)在过程中，可以使用Dim、Private和Static语句来定义数组

C)用ReDim语句重新定义动态数组时，可以改变数组的大小，但不能改变数组的维数

D)不可以用Public语句在窗体模块的通用处说明一个全局数组

答案：D

25. 下列有关数组的叙述中，不正确的是(25)。

①在过程中使用ReDim语句定义的动态数组，其下标的上下界可以是变量

②数组作为形式参数时，传递的是每一个数组元素的值

③在窗体模块的通用说明处可以使用Public说明一个全局数组

④数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值

A)②③B)①③④C)①②③④D)③④

答案：A

27. 下列有关控件数组的说法中，错误的是(27)。

A)控件数组由一组具有相同名称和相同类型的控件组成，不同类型的控件无法组成控件数组

B)控件数组中的所有控件不得具有各自不同的属性设置值

C)控件数组中的所有控件共享同一个事件过程

D)控件数组中每个元素的下标由控件的Index属性指定

答案：B

25.以下说法中，错误的是25 。

A)使用缺省Preserve关键字的ReDim语句可以改变数组的维数和大小

B)ReDim语句只能出现在过程中

C)使用ReDim语句重新定义的动态数组，只能比原数组大

D)使用ReDim语句可以对动态数组的所有元素进行初始化

答案：C

4. 执行下面程序后，A(1，3)的值是___(4)___，A(2，2)的值是___(5)___，A(3，1)的值是

答案：

分析：

9. 本程序的功能是在二维数组中查找鞍点元素，即该元素在所在行中为最大，且在所在列中为最小。在一个数组中可能存在，也可能不存在这样的元素。数组各元素的值从文件data.txt 中读取。

Private Sub Form_Click()

Dim a(3, 3) As Integer, i As Integer, j As Integer

Dim maxvr As Integer, col As Integer, flg As Integer

Open "data.txt" For Input As #1

For i = 1 To 3 '从文件中读入数据，并打印出来

For j = 1 To 3

Input #1, a(i, j)

Print a(i, j);

Next j

Print

Next i

For i = 1 To 3

maxvr =a(i, 1)

col = 1

For j = 2 To 3

If maxvr < a(i, j) Then

maxvr =a(i, j)

col = j

End If

Next j

For j = 1 To 3

If maxvr>a(j,col) Then Exit For

Next j

If j > 3 Then

Print "a("; i; ","; col; ")="; a(i, col)

flg = 1

End If

If Then Print "鞍点元素不存在" ‘flg = 0

Next i

End Sub

7. 下面程序的功能是当循环次数一定时，统计生成互不相同的1~00之间的随机整数的个数。Option Explicit

Option Base 1

Private Sub Form_Click()

Dim Data() As Integer，I As Integer，Idx As Integer

Dim N As Integer，Temp As Integer，Flg As Boolean

N=InputBox("输入循环次数")

ReDim Data(1)

Idx=1

Data(1)=Int(100*Rnd(1))+1

For I=1 To N

Temp=Int(100*Rnd(1))+1

______ ‘Flg=False

Call Compare(Data,Temp,Flg)

If Flg=True Then

Idx=Idx+1

______ ‘ReDim PreServe Data(Idx)

Data(Idx)=Temp

End If

Next I

Print "生成"；Idx;"个不相同的整数"

For I=1 To Idx

Print Data(I);

If I Mod 10=0 Then Print

Next I

End Sub

Private Sub Compare(Arry() As Integer, K As Integer, Logic As Boolean) Dim Ub As Integer，I As Integer

______ ‘Ub=UBound(arry)

For I=1 To Ub

If Arry(I)=K Then

______

End If

Next I

Logic=True

End Sub

答案：

分析：

5.下面的事件过程执行结束后，A(2)

Option Explicit

Option Base 1

Private Sub Command1_Click()

Dim A(10) As Integer

Dim i As Integer, j As Integer, K As Integer

For i = 1 To 10

A(i)= 1

Next i

i = 2

Do While i <= 10

If A(i)= 1 Then

j = i + i

For K = j To 10 Step i

A(K)= 0

Next K

End If

i = i + 1

Loop

For K = 2 To 10

If A(K)= 1 Then A(K)= K

Next K

End Sub

答案：A(2)是2，A(3)是3，A(7)是7

6．本程序的功能是：产生10个个位数互不相同的三位随机正整数，并存放到下标与其个位数相同的数组元素中。例如，395应存到a(5)中。

Option Explicit

Private Sub Form_Click()

Dim a(9) As Integer，x As Integer，k As Integer，i As Integer

Randomize

Do While i< = 9

x = Int(Rnd * 900+100)

(12)‘k = x Mod 10

If a(k)= 0 Then

a(k)= x

(13)‘i = i + 1

End If

Loop

For j = 0 To 9

Print a(i);

Next i

End Sub

．执行下面的程序，单击窗体，则在窗体上显示的第一行是(2)，第二行是(3)

分析：过程前部分为给数组a赋初值，后部分为输出。但要注意的是，内循环的初值为外循环的循环变量j。

4．执行下面程序，单击窗体，在立即窗口上显示的第一行是(7)，第二行是(8)。

(14)8

(15)6

分析：While型循环的条件为假时离开循环，两个Do循环的条件p <= Count和Idx <> Count 中三个变量都在循环中发生变化，所在分析时要特别小心。

4．执行下面程序，从键盘输入3，程序运行结束后，A(1，1)的值是(7)，A(2，2)的值是(8)；A(2，3)的值是(9)。

Private Sub Form_Click()

Dim I As Integer, J As Integer, K As Integer

Dim A() As Integer, N As Integer

N = InputBox("输入N")

ReDim A(N, N)

For I = 1 To N

For J = 1 To N

K = K + 1

A(I, J)= K + 10

Next J

Next I

Call Sub1(A, N)

End Sub

Private Sub Sub1(A() As Integer, N As Integer)

Dim I As Integer, J As Integer

Dim T As Integer, K As Integer

K = N + 1

For I = 1 To Int(N / 2)

For J = I To N - I

T = A(I, J)

A(I, J)= A(K - J, I)

答案：

(7)17

(8)15

(9)12

分析：过程Form_Click的功能主要是给数组A赋初值，过程Sub1的功能是将数组元素按一定的规律进行交换，其中用到了临时变量T。

5.执行下面程序，单击命令按钮Command1 后，A(1,3)值是【12】，A(2,2)值是

答案：【12】19

答案：【13】15

答案：【14】14

6．执行下面程序，窗体上显示的第二行是，单击命令按钮Cmd1,则窗体上显示的第四行

答案：6．4 5 6 1 6 78 5 2 3 4 9

5．执行下面的程序，单击按钮Command1，A(1，1)的值是_____7_____，A(1，4)的值是

_____1_____，A(4，1)的值是____16_____，A(4，4)的值是_____10_____。

Option Base 1

Private Sub Command1_Click()

Dim a() As Integer, i As Integer, j As Integer

Dim k As Integer, n As Integer

n = 4

ReDim a(n, n)

i = 1: j = n: a(i, j)= 1

For k = 2 To n * n

If i + 1 > n Then

i = n - j + 2: j = 1

ElseIf i + 1 <= n And j + 1 > n Then

j = j - i: i = 1

Else

i = i + 1: j = j + 1

End If

a(i, j)= k

Next k

For i = 1 To n

For j = 1 To n

Print a(i, j);

Next j

Print

Next i

End Sub

10.从键盘上输入10个整数，用冒泡排序(Bubble Sort)法对这10个数从小到大排序。

分析：

1. 有Dim a() 的形式，在程序代码中一定要有Preserve语句；

2.

枯藤老树昏鸦，小桥流水人家，古道西风瘦马。夕阳西下，断肠人在天涯。