VB 5练习题集.docVIP

上海立信会计学院 班级： 学号： 1220030233 姓名： 马晓璐 指导教师： 朱祥德 系部： 外语 专业： 英语 习题5 p123 1、2、3、4、5、6、7、8 1. 在VB6.0中，数组的下界默认为0，用什么语句可以重新定义数组的默认下界？ 答：Option Base 语句 2．要分配存放12个元素的整型数组，下列数组声明（下界若无，按默认规定）哪些符合要求？ （1）n = 12 Dim a(1 To n) As Integer （2）Dim a%() n = 11 ReDim a(n) （3）Dim a%[2,3] （4）Dim a(1, 1, 2) As Integer （5）Dim a%(10) ReDim a(1 To 12) （6）Dim a!() ReDim a(3, 2) As Integer （7）Dim a%(2, 3) （8）Dim a(1 To 3, 1 To 4) As Integer 答：(2)，(4)，(7)，(8)符合要求。 (1)静态数组在声明数组时的下标必须是常数，不能出现变量 (3)不能使用方括号 (5) 已声明了的静态数组，不能再用重定义语句来重定义静态数组的大小 (6)可以反复地改变数组的元素以及维数的数目，但是不能将一个数组定义为某种数据类型之后，再使用ReDim将该数组改为其他数据类型。 3. 程序运行时显示“下标越界”可能产生的错误有哪几种情况？ 答： 引用了不存在的数组元素；下标比可能下标范围大或小，或是在应用程序中这一边的数组没有指定范围；声明数组时没有指定元素的数目 4．已知下面的数组声明，写出它的数组名、数组类型、维数、各维的上下界、数组的大小、并按行的顺序列出各元素。 Dim a(-1 To 2,3) As Single 答：数组名为a、数组类型为单精度、二维、各维的下界分别为-1和0、上界分别为2和3、数组的大小4x4共16个元素 a(-1,0) a(-1,1) a(-1,2) a(-1,3) a(0,0) a(0,1) a(0,2) a(0,3) a(1,0) a(1,1,) a(1,2) a(1,3) a(2,0) a(2,1) a(2,2,) a(2,3) 5．利用随机数生成两个矩阵（数据不一定相同，前者30~70范围、后者101~135）。 要求： （1）将两个矩阵相加结果放入C矩阵中。 （2）将A矩阵转置。 （3）统计C矩阵中最大值和下标。 （4）以下三角形式显示A矩阵、上三角形式显示B矩阵。 （5）将A矩阵的第一行与第三行对应元素交换位置，即第一行元素放到第三行；第三行元素放到第一行。 （6）求A矩阵两条对角线元素之和。 （7）将A矩阵按列的次序把各元素放入一维数组D中，显示结果。 答：Dim a(4, 4) As Integer, b(4, 4) As Integer, c(4, 4) As Integer Randomize Print 矩阵A为： For i = 1 To 4 For j = 1 To 4 a(i, j) = Int(Rnd * 41 + 30) Print Tab(5 * j); a(i, j); Next j Print Next i Print 矩阵B为： For i = 1 To 4 For j = 1 To 4 b(i, j) = Int(Rnd * 35 + 101) Print Tab(5 * j); b(i, j); Next j Print Next i （1）两个矩阵能相加的条件是他们的行数、列数相同，利用两重循环将他们相加即可。 For i= 1 to 4 For j=1 to 4 c(i,j)=a(i,j)+b(i,j) Next j Next i （2）矩阵转置是将矩阵的行变为列、列变为行。 For i= 1 To 4 For j=i+1 To 4 t=a(i,j) a(i,j)=a(j,i) a(j,i)=t Next j Next i （3）因为C是两维数组，所以最大值的下标也有两个，即行下标和列下标。 Dim Max%, Maxi%, Maxj% Max = c(1, 1): Maxi = 1: Maxj = 1 For i = 1 To 4 For j = 1 To 4