第05章 数组

1、第五章 数组二级全真习题目的和要求：1） 掌握和数组的定义方法2） 掌握固定大小数组和动态数组的使用方法3） 尤其是动态数组的用法是二级考试的一个热点，几乎每年都要出现。为此总结如下：1） 在静态数组中其下标只能是常量。不能为变量。而在动态数组中，开始声明时并未指出数组的大小（省略括号中的下标），当要使用它时，随时可用Redim语句重新指出具体大小。也就是说在动态数组中Redim语句中的下标可以是常量，也可以是变量，但这个变量必须是有了确定值的变量。（随后的二级程序填空题好几题都考到了这一点）2） 在过程中可多次使用Redim语句来改变数组的大小，也可改变数组的维数（二级考试的选择题也考到了该点）3） 每次使用Redim语句都会使原来数组中的值丢失，可以在Redim语句后加Preserve参数用来保留数组中的数据，但使用Preserve只能改变最后一维的大小，且为最后一维的维上界（由于数组元素在内存中按列排列的缘故），前面几维大小不能改变。使用Redim Preserve语句不可改变数组的维数或其他的维界，例：dim a( ) as integer dim a ( ) as integ

2、er redim a(3) redim a(3) redim a(2,2)正确 redim preserve a(2,2)语法错误典型分析题：1） 选择题：（2000年春第27题）动静态数组知识点，（2003年秋）控件数组知识点2） 程序填空题：（2003春第8题）综合考察了动态数组的定义、理解及其使用一 选择题 考点：在选择题中，二级考题往往在数组定义中，考察对动态数组定义和数组维界的理解如: 1.(2000年春 27题) 下列语句中的_语句可以用来正确地声明一个动态数组A. Private A(n) as integer B. Dim A() As IntegerC. Dim A(,) as Integer D. Dim A(1 to n)分析：该题明显的考察了对数组维界的理解。在VB中，对于固定大小的数组，维的上、下界必须是常数表达式，不可以是变量名。据此可以排除A、D.另如为固定数组，则数组维数必须为确定值，排除c,B答案定义了一个动态数组，符合题目意思。注：固定数组的维数可以为小数（四舍五入）如：dim c(6.6) as integer.=dim c(7) as integ

3、er 下同 2.(2001年秋 29题) 以下有关数组的说明中，错误的_A. 根据数组说明的方式，可将数组分为动态数组和静态数组B. 在过程中，不能用private语句定义数组C. 利用Redim语句重新定维时，不得改变应经说明过的数组的数据类型D. 数组重新定维后，原有的数组元素内容将不予保留。 3（2002年春 27题）下列有关数组的叙述中，错误的是_A. 在过程中可以用Dim语句对形参数组进行声明B. 数组是同类变量的一个有序集合C. 数组元素可以是控件D. 数组在使用之前，必须先用数组说明语句进行说明 4（2003年春26题）下面有关数组处理的叙述中，不正确的是_ 在过程中用Redim语句定义的动态数组，其下标的上下界可为赋了值的变量 在过程中，可以使用dim,private和static语句定义数组 用Redim语句重新定义动态数组时，不得改变该数组的数据类型 可用Public语句在窗体模块的通用说明处定义一个全局数组A. B c. d. 5（2003年秋）.以下有关控件数组的说法中错误的是（）。控件数组由一组具有共同名称和相同类型的控件组成控件数组中的每一个控件共享同样的事

4、件过程控件数组中的每个元素的下标由控件的Index属性指定同一控件数组中的元素只能有相同的属性设置值析：控件数组是由一组具有共同名称和相同类型的控件组成，数组中的每一个控件共享相同的事件过程，但控件数组中的每一个元素的属性值可以不同，其下标可由控件的index属性设定。二 程序填空题（2000年秋第4题）4. 执行下面程序后，A（1，3）的值是_(8)_4_，A（2，2）的值是_(9)5_，A（3，1）的值是_(10)6_。Option ExplicitPrivate Sub Form_Click()Dim A(3,3) As Integer, I As IntegerDim J As Integer, K As Inteher,N As IntegerFor K=1 To 5If K=3 ThenFor I=1 To 6-KA(K-3+I,I)=NN=N-1Next IElseFor I=1 To KA(K-I+1,3-I+1)=NN=N-1Next IEnd IfNext KFor K=1 To 3For I =1 To 3Print A(K,I);Next IPrintNext

5、K End Sub（2001年春第8题）8. 下面程序得功能是将无序数组中相同得数只保留一个，其余得删除，并输出经过删除后的数组元素，删除相同数是通过将该数组元素后面的元素在数组内依次前移替换前一个元素的值实现的。数组各元素的值从文件data.txt中读取。Option ExplictOption Base 1Private Sub Form_Click()Dim I As Integer,J As Integer,K As IntegerDim A()As Integer,T As Integer,M As IntegerOpen c:my documents2000testdata.txt For Input As #1Do While_(22)not eof(1) _I=I+1Redim Preserve A(I)Input #1,A(I)LoopM=1:T=_(23) I或Ubound(A) _Do While MTI=M+1Do While I=TIf A(I)=A(M)ThenFor J=1 To (24) T-1 _A(J)=A(J+1)Next JT=T-1ElseI=

6、_(25) I+1 _End If LoopM=M+1LoopRedim Preserve A(T)For I=1 To TPrint A(I);Next IPrintEnd Sub（2001年秋）4. 执行下面程序，在窗体上显示的输出结果的第二行是_(7)4 5 6_，第五行是_(8)9 8 7_，第六行是_(9)6 5 4_。Option ExplicitPrivate Sub Form_Click()Dim a(3,3) As Integer, iAs IntegerDim j As Integer,k As InteherFor i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+jPrint a(i,j);Next jPrint next iprintk=(i-1)*3For i=1 To 3For j=1 To 3a(i,j)=kk=k-1Print a(i,j);Next jPrintNext iEnd Sub（2002年春）5.下面的事件过程执行结束后，A(2)是(9)2,A(3)是_(10)3，A(7)是_(11)7Option ExplictOption Base 1Private 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)=1Next II=2Do while I=10 If A(i)=1 then J=I+1 For k=j to 10 step I A(k)=0 N

《第05章 数组》由会员桔****分享，可在线阅读，更多相关《第05章 数组》请在金锄头文库上搜索。