数组习题.docx

1、数组习题第五章 数组习题一、 选择题1. 如下数组声明语句，（ b ）正确。 （A）Dim a3,4 as integer （B）Dim a(3,4) as integer（C）Dim a(n,n) as integer （D）Dim a(3 4) as integer2. 要分配存放如下方阵，可使用声明语句( c )来实现（不能浪费空间）。. （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 integer3. 数组声明语

2、句Dim a(3,-2 to 2,5) as integer中，数组a包含的元素个数为（120 ）。4. 用语句Dim a(-3 to 5) as integer所定义的数组的元素个数是（ 9 ）。 5. 用语句Dim a(3 to 5，-2 to2)所定义的数组的元素个数是（ 15 ）。 6. 下面的B中有（ 9 ）个数组元素。 Dim B : B=Array(1,2,3,4,5,6,7,8,9)二、 填空题1. 控件数组的名字由（name）属性指定，而数组中的每个元素由（index）属性指定。2. 由Array函数建立的数组的名字必须是（ 变体类型）类型。3. 数组定义Dim D(20)

3、，数组D有（ 21个）个数组元素。三、分析程序的运行结果1. 在窗体上画一个命令按钮command1，然后编写如下事件过程：option base 1private 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*101 next i print send sub程序运行后，单击command1，输出结果为：12342. 在窗体上画一个命令按钮command1，然后编写如下事件过程：option base 1private sub command1_click() dim a

4、,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);b(I,j); next j print next i end sub程序运行后，单击command1，输出结果为：1 2 3 4 6 93. 在窗体上画一个命令按钮command1，然后编写如下事件过程：option base 1private sub command1_click() dim a%(3,3) for i=1 to 3 for j=1 to 3 if j1 and i1 th

5、en 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 iend sub程序运行后，单击command1，输出结果为：1 2 32 3 13 2 34. 在窗体上画一个命令按钮command1，然后编写如下事件过程：option base 1private sub command1_click() dim a%(10),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) n

6、ext i for i=1 to 3 k=k+p(i)*2 next i print kend sub程序运行后，单击command1，输出结果为：335. 在窗体上画一个命令按钮command1，然后编写如下事件过程：option base 1private 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=1 to 4 for j=1 to 4 print a(j,i); next j print next iend sub程序运行后，单击comma

7、nd1，输出结果为：1 4 7 102 5 8 113 6 9 124 7 10 136. 在窗体上画一个命令按钮command1，然后编写如下事件过程：option base 1private sub command1_click() dim a%(5,5) for i=1 to 3 for j=1 to 4 if j1 and i1 then a(i,j)=i*j end if next j next i for n=1 to 2 for m=1 to 3 print a(m,n); next m print next nend sub程序运行后，单击command1，输出结果为：0 0

8、0 0 4 67. 在窗体上画一个命令按钮command1，然后编写如下事件过程：private sub command1_click() dim a%(5) for i=0 to 4 a(i)=i+1 t=i+1 if t=3 then print a(i); a(t-1)=a(i-2) else a(t)=a(i) endif if i=3 then a(i+1)=a(t-4) a(4)=1 print a(i); next iend sub程序运行后，单击command1，输出结果为： 1 2 3 1 4 18. 在窗体上画一个命令按钮command1，然后编写如下事件过程：privat

9、e sub command1_click() dim a%(3,3) dim b b=array(1,2,3,4,5,6,7,8,9) j=1 for i=0 to 8 j=i mod 3 k=i3 a(j,k)=b(i) next i k=1 for j=0 to 2 print tab(3*(j+1);a(k,j); next j end sub程序运行后，单击command1，输出结果为：2 5 89. 在窗体上画一个命令按钮command1，一个文本框text1，然后编写如下事件过程：private sub command1_click() dim b b=array(34,5,13,

10、35,9,6,42) for i=1 to ubound(b,1) if b(i)b(i-1) then x=b(i) for j=i-1 to 0 step -1 if b(j)x then exit for b(j+1)=b(j) next j b(j+1)=x end if next i text1=” for i=0 to ubound(b,1) text1=text1+str(b(i)+”,” next iend sub运行程序后，文本框text1中的内容是：42，35，34，13，9，6，510. 在窗体上画一个命令按钮command1，然后编写如下事件过程：private sub

11、 command1_click() dim a(3,3) for i=0 to 3 for j=0 to 3 a(i,j)=(i+1)*10+j next j,i for i=0 to 3 for j=0 to 3 if ij then x=a(i,j) ：a(i,j)=a(j,i) : a(j,i)=x end if next j,i for i=0 to ubound(a,1) for j=0 to ubound(a,2) print a(i,j); next j print next iend sub运行程序后，文本框text1中的内容是：10 20 30 4011 21 31 41 1

12、2 22 32 4213 23 33 4311. 在窗体上画一个命令按钮command1，然后编写如下事件过程：private sub command1_click() dim arr1%(10),arr2(10) n=3 for i=1 to 5 arr1(i)=i arr2(n)=2*n+i next i print arr2(n);arr1(n)end sub程序运行后，单击command1，输出结果为：11 312. 在窗体上画一个命令按钮command1，然后编写如下事件过程：private sub command1_click() dim m%(10) for k=1 to 10

13、m(k)=12-k next k x=6 print m(2+m(x)end sub程序运行后，单击command1，输出结果为：413. 在窗体上画一个命令按钮command1，然后编写如下事件过程：private sub command1_click() dim b b=array(56,22,16,67,26,14,9,87) k=3 do while kubound(b,1) b(k)=b(k+1) k=k+1 loop print b(5)end sub程序运行后，单击command1，输出结果为：914. 在窗体上画一个命令按钮command1，然后编写如下事件过程：private

14、 sub command1_click() dim b,a(2,4) b=array(1,2,3,4,5,6,7,8,9,10,11,12,13,14) for i=0 to 2 for j=0 to 4 a(i,j)=b(i*(ubound(a,2)+1)+i) next j next i print b(i*(ubound(a,2)+1)-3)end sub程序运行后，单击command1，输出结果为：1315. 在窗体上画一个命令按钮command1，然后编写如下事件过程：private sub command1_click() dim a(5 to 16) dim b b=array(

15、1,2,3,4,5,6,7,8,9) for i=1 to 8 a(5+i)=b(i) next i print a(7)end sub程序运行后，单击command1，输出结果为：316. 在窗体上画一个命令按钮command1，然后编写如下事件过程：private sub command1_click() dim b,a(3,3) b=array(1,2,3,4,5,6,7,8,9) j=1 for i=0 to 8 k=i3 : j=I mod 3 a(k,j)=b(i) print a(k,j); if j=2 then print next iend sub程序运行后，单击comma

16、nd1，输出结果为：1 2 34 5 67 8 917. 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click()Dim i As Integer,j As IntegerDim a(10,10)As IntegerFor i=1 To 3For j=1 To 3a(i,j)=(i-1)*3+jPrint a(i,j);Next jPrintNext iEnd Sub程序运行后，单击命令按钮，窗体上显示的是1 2 34 5 67 8 918. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写

17、如下事件过程：Private Sub Command1_Click()Dim array1(10,10) As IntegerDim i,j As IntegerFor i=1 To 3For j=2 To 4array1(i,j)=i+jNext jNext IText1.Text=array1(2,3)+array1(3,4)End Sub程序运行后，单击command1，文本框中显示的结果为：12四、简答题1. 要分配存放12个元素的整形数组，下列数组声明（若无下界，按默认规定）哪些符合要求？（1）n=12 （2）Dim a%（）Dim a（1 to n）as integer n=11R

18、eDim a（n）（3）Dim a%2,3 （4）Dim a(1,1,2) as integer（5）Dim a%（10） （6）Dim a!（）ReDim a（1 to 12） ReDim a（3,2）as integer（7）Dim a%（2,3） （8）Dim a（1 to 3 1 to 4）as integer2. 已知下面的数组声明，写出它的数组名、数组类型、维数、各维的上下界、数组的大小，并按行的顺序列出各元素。 Dim a(-1 to 2,3) as single3. 静态数组和动态数组的区别是什么？在声明静态数组、重定义动态数组时的下标都可以用变量来表示吗？4. 已声明了静态数

19、组a(3,4)，能否在下面再用重定义动态数组a(4,4)来重定义A数组的大小？5. 使用ReDim语句可以改变数组类型吗？6. 在ReDim语句中加了Preserve关键字，对重定义数组有何限制？7. 利用随机数生成两个四行四列的矩阵（数据不一定相同，前者范围在3070，后者为101135）。要求：（1）将两个矩阵相加结果放入C矩阵中。（2）将a矩阵转置。（3）求C矩阵中元素的最大值和下标。（4）以下三角形式显示A矩阵、上三角形式显示B矩阵。（5）将A矩阵第一行与第三行对应元素交换位置，即第一行元素放到第三行，第三行元素放到第一行。（6）将A矩阵两条对角线元素之和。（7）将A矩阵按列的次序把各元素放入一位数组D中，显示结果。8. 声明一个有20个元素的一维字符类型数组，要求：（1）由随机数形成小写字母构成的数组，每个元素的字符个数由随机数产生，范围111。（2）要求将生成的数组分四行显示。（3）显示生成的字符数组中字符最多的元素。9. 自定义一个职工类型，包含职工号、姓名和工资。声明一个职工类型的动态数组。输入n个职工的数据，要求按工资递减的顺序排序，并显示排序的结果，每个职工一行显示三项信息。