vb数组习题

D．36D．16第一章数组一、选择题1．在窗体上画一个命令按钮，然后编写如下程序：OptionBase1PrivateSubCommand1_Click(IndexAsInteger)DimArr1(12)AsInteger,Arr2(3)AsIntegerDimSumAsIntegerSum=2Fori=1To12Arr1(i)=iNextiFori=1To3Arr2(i)=Arr1(i*i)NextiFori=1To3Sum=Sum+Arr2(i)NextiPrintSumEndSub程序运行后，单击命令按钮，在窗体上的输出结果是A．16B．24C．322．在窗体上画一个文本框，然后编写如下代码：OptionBase1PrivateSubForm_Click()DimarrDimStartAsInteger,FinishAsIntegerDimSumAsIntegerarr=Array(12,4,8,16)Start=LBound(arr)Finish=UBound(arr)Sum=0Fori=StartToFinishSum=Sum+arr(i)Nextic=Sum/Finish=cEndSub程序运行后，单击窗体，则在文本框中显示的内容是A．40B．10C．123．阅读程序：OptionBase1PrivateSubForm_Click()DimArr(4,4)AsIntegerFori=1To4Forj=1To4Arr(i,j)=(i-1)*2+jNextjNextiFori=3To4Forj=3To4PrintArr(j,i);NextjPrintNextiC.79D.810810811C.8D.9C.15D.24TOC\o"1-5"\h\zEndSub程序运行后，单击窗体，输出结果是A．57B．6868794．用下面的语句所定义的数组的元素个数是DimA(-3To5)AsIntegerA．6B．75．用下面的语句所定义的数组的元素个数是Dimarr(3To5,-2To2)A．20B．12在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码：PrivateSubCommand1_Click()DimArr1(10),Arr2(10)AsIntegern=3Fori=1To5Arr1(i)=iArr2(n)=2*n+iNextiPrintArr2(n);Arr1(n)EndSub程序运行后,单击命令按钮,输出结果是A.113B.311C.133D.313在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：OptionBase1PrivateSubCommand1_Click()Dima(10),p(3)AsIntegerk=5Fori=1To10a(i)=iNextiFori=1To3p(i)=a(i*i)NextiFori=1To3k=k+p(i)*2NextiPrintkEndSub程序运行后，单击命令按钮，输出结果是A．35B．28C．33D．37在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub程序运行后,单击命令按钮,输出结果是A.4321B.12C.34D.1234在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：OptionBase1PrivateSubCommand1_Click()DimArr(3)AsIntegerFori=1To3Forj=1To3Arr(j)=Arr(i)+1NextjNextiPrintArr(3)EndSub程序运行后，单击命令按钮，输出结果是A.7B.6C.5D.4在窗体上画一个名称为List1的列表框，一个名称为Label1的标签框。列表框中显示若干城市的名称，当单击列表框中的某一城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是A.PrivateSubList1_Click()B.PrivateSubList1_Click()EndSubC.PrivateSubList1_Click()EndSubD.PrivateSubList1_Click()EndSubEndSub为了使列表框中的项目分为多列显示，需要设置的属性为A.ColumnsB.StyleC.ListD.MultiSelect要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的MultiSelect属性设置为A.0B.1C.2D.其他删除列表框中指定的项目所使用的方法为A.MoveB.RemoveC.ClearD.Removeitem用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是A.ListB.ListindexC.TextD.ListCount二、填空题在窗体上画一个文本框，然后编写如下程序：OptionBase1PrivateSubForm_Click()DimArr(10)AsintegerFori=6To10Arr(i)=i-3Nexti=Str(Arr(6)+Arr(Arr(6)+Arr(10)))EndSub程序运行后，单击窗体，在文本框中显示的内容是_10_。以下程序的功能是产生10个0〜1000的随机整数，放入数组Arr中，然后输出其中的最大值。请填空。OptionBase1PrivateSubForm_Click()DimArr(10)AsintegerDimMaxAsintegerRandomizeFori=1To10Arr(i)=int(Rnd*1000)NextiMax=Arr(1)Fori=2To10ifMax=0ThenElseMsgBox"请选择要删除的项目"EndIfEndSub三、编程题1•编写程序，输出魔方阵。魔方阵是一个nxn的二维数组，其中n为奇数。它由1〜nXn的正整数组成，其中每行、每列及对角线上所有数字的总和都相同。产生魔方阵的算法由很多种，下面的程序用“右上斜行法”产生魔方阵，其算法如下：a）把“T放在第一行的中间一列。b）从“1”往右上方走放下“2”，但已超出方阵范围，故将其置于同列第n行。c）从“2”往右上方走放下“3”，也超出方阵范围，将其置于同行第一列。d）由于3是n的倍数，接下来的数字“4”置于同行下一列。e）重复上述步骤，直到填满nXn个数为止。0编写程序，用选择法对数组中的数据按由小到大的顺序进行排序。从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：第一个元素与第十个元素互换，第二个元素与第九个元素互换……第五个元素与第六个元素互换。分别输出数组原来各元素的值和对换后各元素的值。设有如下两组数据：A:2，8，7，6，4，28，70，25B:79，27，32，41，57，66，78，80编写一个程序，把上面两组数据分别读入两个数组中，然后把两个数组中对应下标的元素相加，即2+79,8+27,……，25+80,并把相应的结果放入第三个数组中，最后输出第三个数组的值。有一个nxm的矩阵，编写程序，找出其中最大的那个元素所在的行和列，并输出其值及行号和列号。所建立的矩陆肯:97&784£357369072S3352S14轆離加站36.某单位开运动会，共有10人参加男子100米短跑，运动员号和成绩如下:秒秒秒秒秒763690559321403秒秒秒秒秒力O162237202213编写程序，按成绩排出名次，并按如下格式输出:名次运动员号成绩TOC\o"1-5"\h\z1…………2…………3…………10……7.编写程序，输出“杨辉三角形”