资源描述：
《vb第5章 复习资料》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、第5章补充资料习题解答1．在VB6.0中，数组的下界默认为0，用什么语句可以重新定义数组的默认下界？答：OptionBase语句2．要分配存放12个元素的整形数组，下列数组声明（下界若无，按默认规定）那些符合要求？（1）n=12（2）Dima%()Dima(1ton)asintergern=11ReDima(n)（3）Dima%[2,3]（4）Dima(1，1，2)AsInterger（5）Dima%(10)（6）Dima！（）ReDima(1To12)ReDima(3，2)AsInterger（7）Dima%(2
2、,3)（8）Dima（1to31to4）AsInterger答：(2)、(4)、(7)、(8)符合要求。3．程序运行时显示“下标越界”可能产生的错误有哪几种情况？答：下标比下界小或者比上界大。4．已知下面的数组声明，写出它的数组名，数组类型、维数、各维的上下界、数组的大小、并按行的顺序列出各元素。Dima(-1to2，3)asinterger答：数组名为a、数组类型为单精度、二维、各维的下界分别为-1和0、上界分别为2和3、数组的大小4×4共16个元素，各元素排列顺序如下：a(-1,0)a(-1,1)a(-1,2)
3、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=提示：假定在通用声明段对数组的声明如下：Dima%(1to4)，b%(1to4)，c%(1to4)在Form_Load事件过程中对a、b14数组根据要求随机生成数值：根据各小题的要求，在各事件过程分别编写代码。（1）将两个矩阵相加结果存入C矩阵中。答：两个矩
4、阵能相加的条件是它们的行数，列数相同，利用两重循环将它们的对应元素逐一相加即可。程序段如下：Fori=1to4Forj=1to4C(i,j)=a(i,j)+b(i,j)NextjNexti（2）将A矩阵转置。答：矩阵转置是将矩阵的行变为列、列变为行。这也通过两重循环实现，程序段如下：Fori=2to4Forj=1toi-1t=a(i,j)a(i,j)=a(j,i)a(j,i)=tNextjNexti思考：若类循环的终值由i-1改为4，将会产生什么结果？（3）统计C矩阵中最大值及其下标答：因为C矩阵是两维数组，所以最
5、大值的下标也有两个，即行下标和列下标。DimMax%,,%Maxj%Max=c(0,0):Maxi=0:Maxj=0Fori=0to3Forj=0to3Ifc(i,j)>MaxthenMax=c(i,j):Maxi=i:Maxj=jEnsdifNextjNexti（4）以下三角形式显示A矩阵、上三角形式显示B矩阵。答：两维数组形式输出，必须通过两重循环。对于下三角形式较简单，每一行总是从最左边开始输出，只要控制每一个元素的宽度即可；而对于上三角形式，则要控制每一行第一个元素输出的位置，这一般通过Tab函数实现。说明
6、：Space(4-Len(c(i,j)))表示每个元素占4个，其中空格数目与实际数目值位数有关。输出下列三角元素输出上列三角元素Fori=0To3Fori=0To3Forj=0To3Forj=0to3Printc(i,j);space(4-Len(c(i,j)));PrintTab(j*4);c(i,j);NextjNextjPrintPrint14NextiNexti（5）将A矩阵第一行与第三行对应元素交换位置，即第一行元素放到第三行；第三行元素放到第一行。答：Forj=1to3t=c(1,j):c(1,j)=c
7、(3,j):c(3,j)=tNexti（6）求A矩阵两条对角线元素之和。答：对角线有主对角线和副对角线。Sum=0Fori=0to3Sum=Sum+c(i,j)+c(i,3-i)Nexti（7）将A矩阵按列的次序把各元素放入一维数组D中，显示结果。答：关键要找出两维数组各元素和一维数组各元素的关系。Dimc(3,3）,c2（15）……Forj=0to3Fori=0to3k=j*4+ic2(k)=c(i,j)NextjNexti6．声明一个一维字符型数组，有20个元素，每一个元素最多存放个10个字符，要求：（1）由随
8、机数形成小写字母够成的数组，每个元素的字符个数由随机数产生，范围1～10。答：本题较简单，主要是利用随机数产生长度不超过11个字符的字符串。PrivateSubForm_click()Dimst(1To20)AsString,cAsString*1Dimi%,n%Fori=1To20n=Int(Rnd*11+1)Forj=1Tonc=Chr(Int(Rnd*
