上海立信会计学院VB第五章习题.docVIP

上海立信会计学院 班级： 学号： 1216000433 姓名： 陈学学 指导教师： 曹锋 系部： 金融系 专业： 国际金融 习题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符合要求 3. 程序运行时显示“下标越界”可能产生的错误有哪几种情况？ 答： 引用了不存在的数组元素 下标可能比下标范围大或者小，在应用程序中这一边的数组没有指定范围 4．已知下面的数组声明，写出它的数组名、数组类型、维数、各维的上下界、数组的大小、并按行的顺序列出各元素。 Dim a(-1 To 2,3) As Single 答：数组名：a 数组类型：单精度 维数：二维 各维的下界：-1,0 各维的上界：2,3 数组大小：16 （-1,0），（-1,1），（-1,2），（-1,3） （0，0），（0,1），（0,2），（0,3） （1,0）,(1,1),(1,2),(1,3) （2,0），（2,1），（2,2），（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);b(I,j) Next j Print Next i for i=1 to 4 for j=1 to 4 c(I,j)=a(I,j)+b(I,j) next j next i 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 dim max%,maxi%,maxj% max=c(1,1);maxi=1;maxj=1 for i=1 to 4 for j=1 to 4 if c(I,j)max then max=c(I,j);maxi=I;maxj=j end if next j next i 下三角 for i=1 to 4 for j=1 to i print a(I,j);spc(2) next j print next i 上三角 For i=1 to 4 For j=I to 4 Print tab(j*5);b(I,j) Next j Print Next i for j =1 to 4 t=a(1,j);a(1,j)=a(3,j);a(3,j)=t next j sum=0 for I =1 to 4 sum=sum+a(I,i)+a(I,5-i) next i dim a(1 to 4,1 to 4),d(1 to 16) for j=1 to 4 for i=1 to 4 k=(j-1)*4+i d(k)=a(I,j) print d(k) next i