VB第章 复习资料.doc

第5章 补充资料 习题解答 1．在VB6.0中，数组的下界默认为0，用什么语句可以重新定义数组的默认下界？ 答：Option Base语句 2．要分配存放12个元素的整形数组，下列数组声明（下界若无，按默认规定）那些符合要求？ （1）n=12 （2）Dim a%() Dim a(1 to n) as interger n=11 ReDim a(n) （3）Dim a% [2,3] （4）Dim a(1，1，2) As Interger （5）Dim a% (10) （6）Dim a！（） ReDim a(1To12) ReDim a(3，2) As Interger （7）Dim a% (2,3) （8）Dim a（1 to 3 1 to 4） As Interger 答：(2)、(4)、(7)、(8)符合要求。 3．程序运行时显示“下标越界”可能产生的错误有哪几种情况？ 答：下标比下界小或者比上界大。 4．已知下面的数组声明，写出它的数组名，数组类型、维数、各维的上下界、数组的大小、并按行的顺序列出各元素。 Dim a(-1 to 2，3) as interger 答：数组名为a、数组类型为单精度、二维、各维的下界分别为-1和0、上界分别为2和3、数组的大小4×4共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），要求： A= B= C= 提示：假定在通用声明段对数组的声明如下： Dim a%(1 to 4) ，b%(1 to 4)，c%(1 to 4) 在Form_Load事件过程中对a、b 数组根据要求随机生成数值：根据各小题的要求，在各事件过程分别编写代码。 （1）将两个矩阵相加结果存入C矩阵中。 答：两个矩阵能相加的条件是它们的行数，列数相同，利用两重循环将它们的对应元素逐一相加即可。程序段如下： For i=1 to 4 For j=1 to 4 C(i,j) = a(i,j) + b(i,j) Next j Next i （2）将A矩阵转置。 答：矩阵转置是将矩阵的行变为列、列变为行。这也通过两重循环实现，程序段如下： For i =2 to 4 For j = 1 to i-1 t=a(i,j) a(i,j) =a(j,i) a(j,i) =t Next j Next i 思考：若类循环的终值由i-1改为4，将会产生什么结果？ （3）统计C矩阵中最大值及其下标 答：因为C矩阵是两维数组，所以最大值的下标也有两个，即行下标和列下标。 Dim Max%, , % Maxj% Max = c (0,0): Maxi = 0 : Maxj = 0 For i=0 to 3 For j=0 to 3 If c(i,j) Max then Max = c (i,j): Maxi = i :Maxj = j Ensd if Next j Next i （4）以下三角形式显示A矩阵、上三角形式显示B矩阵。 答：两维数组形式输出，必须通过两重循环。对于下三角形式较简单，每一行总是从最左边开始输出，只要控制每一个元素的宽度即可；而对于上三角形式，则要控制每一行第一个元素输出的位置，这一般通过Tab函数实现。 说明：Space(4-Len(c(i,j)))表示每个元素占4个，其中空格数目与实际数目值位数有关。 输出下列三角元素 输出上列三角元素 For i=0 To 3 For i=0 To 3 For j=0 To 3