上海立信会计学院VB习题

上海立信会计学院班级：12160401学号：1216000433姓名：陈学学指导教师:曹锋系部：金融系专业：国际金融习题5p1231、2、3、4、5、6、7、81.在VB6.0中，数组的下界默认为0,用什么语句可以重新定义数组的默认下界？答：optionbase语句2．要分配存放12个元素的整型数组，下列数组声明(下界若无，按默认规定)哪些符合要求？(1)n=12Dima(1Ton)AsInteger(2)Dima%()n=11ReDima(n)(3)Dima%[2,3](4)Dima(1,1,2)AsInteger(5)Dima%(10)ReDima(1To12)(6)Dima!()ReDima（3,2）AsInteger（7）Dima%（2,3）（8）Dima（1To3,1To4）AsInteger答：2,4,7,8符合要求3.程序运行时显示“下标越界”可能产生的错误有哪几种情况？答：引用了不存在的数组元素下标可能比下标范围大或者小，在应用程序中这一边的数组没有指定范围4．已知下面的数组声明，写出它的数组名、数组类型、维数、各维的上下界、数组的大小、并按行的顺序列出各元素。Dima（-1To2,3）AsSingle答：数组名：a数组类型：单精度维数：二维各维的下界：-1,0各维的上界：2,3数组大小：16（-1,0），（-1,1），（-1,2），（-1,3）（0，0），（0,1），（0,2），（0,3）forj=1toforj=1to4forj=1toforj=1to4Fori=1toFori=1to4（1,0）,（1,1）,（1,2）,（1,3）（2,0），（2,1），（2,2），（2,3）5．利用随机数生成两个矩阵（数据不一定相同，前者30~70范围、后者101~135）。353347306747566935334730674756695266665550394138103133111123115127103109125132134113101135118130要求：（1）将两个矩阵相加结果放“矩阵中。（2）将A矩阵转置。（3）统计C矩阵中最大值和下标。（4）以下三角形式显示A矩阵、上三角形式显示B矩阵。（5）将A矩阵的第一行与第三行对应元素交换位置，即第一行元素放到第三行；第三行元素放到第一行。（6）求A矩阵两条对角线元素之和。（7）将A矩阵按列的次序把各元素放入一维数组D中，显示结果。答：dima(4,4)asinteger,b(4,4)asinteger,c(4,4)asintegerRandomizePrint“矩形A为：”Forj=1to4A(I,j)=int(rnd*41+30)Printtab(5*j);b(I,j)NextjPrintNexti(1)fori=1to4forj=1to4c(I,j)=a(I,j)+b(I,j)nextjnexti(2)fori=1to4forj=i+1to4t=a(i.j)a(I,j)=a(j,i)a(j,i)=tnextjnexti(3)dimmax%,maxi%,maxj%max=c(1,1);maxi=1;maxj=1fori=1to4Fori=1to20Fori=1to20Fori=1to20Fori=1to20ifc(I,j)>maxthenmax=c(I,j);maxi=I;maxj=jendifnextjnexti下三角fori=1to4forj=1toiprinta(I,j);spc(2)nextjprintnexti上三角Fori=1to4Forj=Ito4Printtab(j*5);b(I,j)NextjPrintNexti(5)forj=1to4t=a(1,j);a(1,j)=a(3,j);a(3,j)=tnextj(6)sum=0forI=1to4sum=sum+a(I,i)+a(I,5-i)nexti(7)dima(1to4,1to4),d(1to16)forj=1to4fori=1to4k=(j-1)*4+id(k)=a(I,j)printd(k)nextinextj声明一个一维字符类型数组，有20个元素，每个元素最多放10个字符，要求：(1)由随机数形成小写字母构成的数组，每个元素的字符个数由随机数产生，范围1~10.(2)要求将生成的数组分4行显示，规定每个元素宽度为10。(3)显示生成的字符数组中字符最多的元素。答：(1)dima(1to20)asstring*10,i%,j%,k%,n%,s$,max%RandomizePrinta(i);spc(3)Printa(i);spc(3)N=int(rnd*10+1)S=””Forj=1tonS=s&chr(int(rnd*26+97))NextjA(i)=sNexti(2)K=0fori=1to20K=k+1Printtab((k-1)*10+1);a(i)Ifk=5thenk=0PrintNexti(3)max=len(trim(a(1)))ForI=2to20Iflen(trim(a(i)))>maxthenmax=len(trim(a(1)))NextiPrintmaxFori=1to20Iflen(trim(a(1)))=maxthenEndifNexti简述列表框和组合框的异同处。答：相同处：可存放字符串不同处：